titom59280
XLDnaute Junior
bonjour a tous,
je voulais savoir comment effacer les même cellules sur plusieurs feuilles en une seule commande.
je voulais savoir comment effacer les même cellules sur plusieurs feuilles en une seule commande.
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
Feuille.Cells(1, 1).Delete Shift:=xlUp
Next
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells(1) = "" Then
Application.EnableEvents = False
For t = 1 To ThisWorkbook.Sheets.Count
Sheets(t).Range(Target.Address) = ""
Next t
Application.EnableEvents = True
End If
End Sub
Sub Toto()
Dim T
T = Array("Janvier", "Mois2", "Mars2011",...) 'Mettre ici le nom des 12 onglets que tu veux traiter
For x =0 to 11 'Boucle sur chaque onglet
Sheets(T(0)).range("B:D,F,G,K:M,O,P").clearcontents
Next x
End Sub