> Tous les forums > Forum Bureautique
 excel 2016 conserver formules , encadrement et titresSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TJA435
  Posté le 09/12/2019 @ 17:42 
Aller en bas de la page 
Petit astucien

Bonjour,

Dans une feuille excel peut-on effacer facilement les données sans effacer les formules,cadres, titres,etc ?

Merci pour votre aide.

Publicité
poussebois
 Posté le 09/12/2019 à 17:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour ,

Ben oui, tu peux effacer toutes les données que tu veux sans incidence sur les cadres et les titres.

Quant aux formules qui font référence à ces données, elles réagiront en conséquence (de l'absence de données) ...

@ +

Debrief
 Posté le 10/12/2019 à 11:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

En effet on peut garder les formats dans ce genre d'opération. Par contre on ne peut pas effacer les données sans effacer les formules.

On pourrait se dire qu'en collage spécial Formules vers une feuille vierge, seules les formules seraient copiées pour ensuite tout effacer de la feuille d'origine pour y recopier cette feuille et ses formules.

Hélas ! En collage spécial Formules comme en récupération VBA <range>.Formula ou PasteSpecial xlPasteFormulas, Excel récupère non seulement les formules mais aussi les données !!

Exemple:
'Attention PasteSpecial Paste:=xlPasteFormulas copie AUSSI les constantes !
Rng.PasteSpecial Paste:=xlPasteFormulas
On Error Resume Next
Rng.SpecialCells(xlCellTypeConstants).ClearContents 'Erreur si pas de constantes !
On Error GoTo 0

Donc pour revenir à ta question, à ma connaissance, il n'y a pas d'autre option que de faire une macro:

Sub FormulasOnly()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).ClearContents 'Erreur si pas de constantes !
On Error GoTo 0
End Sub

TJA435
 Posté le 10/12/2019 à 12:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci à poussebois et Debrief.

TJA435
 Posté le 14/12/2019 à 18:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Je viens de passer la macro, cela a bien effacé les données mais pas les formules, mais par contre cela a enlevé tous les titres de colonnes.

est-ce normal ?

Merci pour votre aide.

Debrief
 Posté le 14/12/2019 à 23:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

C'est normal, les titres de colonnes sont des données comme les autres.

Si tu veux les préserver, il faut les exclure de la plage (Range) à "nettoyer".

Soit en précisant explicitement le Range: exemple avec une plage à nettoyer en A2:Z99 en supposant que les titres sont sur la ligne 1:
ActiveSheet.Range("A2:Z99").SpecialCells(xlCellTypeConstants).ClearContents 'Erreur si pas de constantes !

Soit en le décalant vers le bas d'une ligne en supposant que tes titres de colonnes sont sur la 1ère ligne de la plage utilisée dans la feuille:
ActiveSheet.UsedRange.Offset(1,0).SpecialCells(xlCellTypeConstants).ClearContents 'Erreur si pas de constantes !

TJA435
 Posté le 15/12/2019 à 12:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Debrief.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
excel 2016 remplir une colonne
numéroter toutes les lignes avec excel 2016
Pb formules excel
Excel 2016 affichage des nombres
Comment ouvrir 1 fichierr excel 97-2003 avec excel 2016 ?
Liste déroulante EXCEL 2016
Excel 2016 Tableaux Dynamiques (TCD)
Pb modèle Excel 2016
REchercher un fichier excel 2016 enregistré
Enrichir des titres dans Excel (Office 365)
Plus de sujets relatifs à excel 2016 conserver formules , encadrement et titres
 > Tous les forums > Forum Bureautique