effacer données dans classeur

porcinet82

XLDnaute Barbatruc

• 13 Avril 2006

• #2

Salut Yo1814,

Et bien avec ce code ca devrait fonctionner (a joindre a un bouton bien entendu ):

Code:

Sub test()
Dim i As Byte

For i = 1 To Sheets.Count
    Cells.Clear
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

Y

yo1814

XLDnaute Nouveau

• 13 Avril 2006

• #3

Bonjour Porcinet82
Merci pour ta proposition, mais en essayant, mais je ne suis pas arrivé.

 

Vote positif 0 Vote négatif

Y

yo1814

XLDnaute Nouveau

• 13 Avril 2006

• #4

Bonjour Porcinet82,
Je pensais utiliser la commande:
ClearContents, mais je ne sais pas comment préciser que veux effacer sur toutes les feuilles du classeur avec cette commande.
Merci de me renseigner :sick:

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 13 Avril 2006

• #5

re,

Je ne comprend pas ce qui ne fonctionne pas. Pour effacer sur toutes les feuilles, il faut utiliser une boucle, d'ou la ligne For i=1 to Sheets.Count qui va de 1 au nombre de feuille présentent dans ton classeur.
Ensuite, pour chaque feuille, je lui dis d'effacer le contenu de toutes les cellules, d'ou la ligne Cells.Clear.

Voili, voilou, j'espère qu'avec ce petit complément d'informations ca ira, si ce n'est pas le cas refais signe.

@+

 

Vote positif 0 Vote négatif