Discussion :

[Mugette]

Bonjour,
Je voudrais grace a un bouton sur la feuil1 de mon fichier xls, vider le contenu total(sauf les entêtes) de mes autres feuilles.
Est-ce possible ???
Si oui comment...

Merci d'avance.

[leroissejp]

Bonjour,
Tu peux faire ceci tout simplement.Si tu as 5 feuilles où plus il suffit d'ajouter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton1_Click()
Sheets(2).Range("A2:Z65536").Delete
Sheets(3).Range("A2:Z65536").Delete
End Sub

jpleroisse

[Megaxel]

Et si tu ne connais pas le nombre de feuilles, une petite boucle s'impose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i = 2 To Worksheets.Count
   Sheets(i).Range("A2:Z65536").Delete
Next i

Je commence à 2 pour ne pas impacter la feuille où se trouve le bouton.

[Mugette]

alors ok ca marche tres bien meme trop bien puisque ca delete les formats et ça c'est vraiment dommage.
y aurai t il une petite chose qui me supprime mes lignes en me gardant les formats de cellules ?

[Mugette]

j'ai oublié de vous remercié... ;-)

[Mugette]

c'est bon j'ai trouvé je vais mettre mes format dans une procédure et ca ira...
ciao

[SfJ5Rpw8]

c'est bon j'ai trouvé je vais mettre mes format dans une procédure et ca ira...
ciao

sinon remplace .delete par .ClearContents

[SilkyRoad]

bonjour

pour supprimer les données en conservant les mises en forme , tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2:Z65536").ClearContents

cordialement
michel

[SilkyRoad]

Ooouuppss....

bonjour Bbil ...;o)