Re : supprimer les memes cellules sur plusieurs feuilles.
en faite moi j'ai 14 feuilles 12 pour les mois de l'année et deux autres ce que je voudrais c que les cellules de la colonne : b c d f g k l m o p de seulements les 12 mois de l'années soit supprimé ca peut marcher avec le code que tu ma donné
Re : supprimer les memes cellules sur plusieurs feuilles.
Bonsoir, Titom59280,
Je t'ai fait cette macro (dans le module Thisworkbook) qui à chaque effacement de cellules ds une feuille efface les mêmes cellules dans les autres feuilles.
VB:
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
Vois le fichier joint.
[edit] Tu as précisé ta demande depuis, et cette macro ne fait pas exactement ce que tu souhaites.
Re : supprimer les memes cellules sur plusieurs feuilles.
Bonjour à tous,
Tu peux également sélectionner tous les onglets sur lesquels tu veux supprimer les données en restant appuyer sur Ctrl , puis sur l'un des onglets tu supprimes les données que tu veux cela sera fait dans tous les autres onglets.
Re : supprimer les memes cellules sur plusieurs feuilles.
Donc re,
Ceci fera ce que tu demandes, mais à tester...
VB:
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