Effacer des cellules sur plusieurs feuilles

Fermé
cestmoipaslui Messages postés 25 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 6 février 2017 - 20 mai 2016 à 09:57
cestmoipaslui Messages postés 25 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 6 février 2017 - 20 mai 2016 à 17:55
Bonjour,

J'ai fait une macro pour effacer des données page par page, mais est-il possible de ne faire qu'une macro pour toutes les feuilles?

Effacer une cellule cela pourrait être:
Sheets(ActiveSheet.Name).Cells(10,20)
Mais pour une plage est-ce possible?
Merci


3 réponses

f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 712
20 mai 2016 à 10:36
Bonjour,

Effacer contenu d'une meme plage de cellules sur toutes les feuilles

Sub test()
    For x = 1 To Worksheets.Count
        Worksheets(x).Range("A1:C12").ClearContents
    Next x
End Sub
0
cestmoipaslui Messages postés 25 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 6 février 2017 5
20 mai 2016 à 12:09
OK merci beaucoup
0
The_boss_68 Messages postés 929 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 3 décembre 2024 178
20 mai 2016 à 13:07
Bonjour,

Exemple de macro à mettre dans un module, et exécuter par un bouton de commande formulaire (efface les données dans la plage A1: L35) sur feuil1,feuil2,feuil3

Sub Reset()
With Feuil1.Range("A1:L35")
.ClearContents
End With
With Feuil2.Range("A1:L35")
.ClearContents
End With
With Feuil3.Range("A1:L35")
.ClearContents
End With
End Sub


Slts
0
cestmoipaslui Messages postés 25 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 6 février 2017 5
20 mai 2016 à 17:55
merci beaucoups
0