Effacer le contenu des feuilles d'un classeur

Résolu/Fermé
senecartour Messages postés 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 14 juil. 2014 à 19:14
senecartour Messages postés 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 14 juil. 2014 à 19:31
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 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
14 juil. 2014 à 19:22
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 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 3
14 juil. 2014 à 19:31
Bonjour Gyrus,
C'est exactement ce que je voulais!
Merci infiniment!
0