supprimer les memes cellules sur plusieurs feuilles.

[titom59280]

bonjour a tous,

je voulais savoir comment effacer les même cellules sur plusieurs feuilles en une seule commande.

 

[GeoTrouvePas]

Re : supprimer les memes cellules sur plusieurs feuilles.

Bonjour,

Une petite boucle de ce genre devrait solutionner ton problème :

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Sheets
    Feuille.Cells(1, 1).Delete Shift:=xlUp
Next

 

[titom59280]

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é

 

[Softmama]

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.

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.

 

[JHA]

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.

JHA

 

[Softmama]

Re : supprimer les memes cellules sur plusieurs feuilles.

Donc re,

Ceci fera ce que tu demandes, mais à tester...

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

 

[titom59280]

Re : supprimer les memes cellules sur plusieurs feuilles.

merci ca marche nikel