Effacer des cellules sur plusieurs feuilles

cestmoipaslui Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
cestmoipaslui Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention   5
 
OK merci beaucoup
0
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   182
 
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   Statut Membre Dernière intervention   5
 
merci beaucoups
0