Effacer le contenu des feuilles d'un classeur

Résolu
senecartour Messages postés 391 Statut Membre -  
senecartour Messages postés 391 Statut Membre -
Bonjour,
Je sais comment effacer le contenu d'une feuille nommée. Mais je cherche comment effacer les contenus de toutes les feuilles de mon classeur contenant 12 onglets.
En effet, je souhaiterais, à partir d'un bouton, effacer le contenu de toutes les feuilles sans avoir à associer les noms des onglets à ma macro.
Merci d'avance pour votre aide!!

2 réponses

Gyrus Messages postés 3360 Statut Membre 526
 
Bonjour,

Sub EffacerTout()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Cells.ClearContents
Next Sh
End Sub

A+
0
senecartour Messages postés 391 Statut Membre 3
 
Bonjour Gyrus,
C'est exactement ce que je voulais!
Merci infiniment!
0