effacer données dans classeur

[yo1814]

Bonjour,
Je vous soumets ma demande, j'aimerais créer une macro me permettant d'effacer en un seul clic toutes les données se trouvant dans toute les feuilles d'un classeur.
Merci d'avance

 

[porcinet82]

Salut Yo1814,

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

Sub test()
Dim i As Byte

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

@+

 

[yo1814]

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

 

[yo1814]

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:

 

[porcinet82]

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.

@+