effacer plusieurs feuilles ?

[angoul]

Bonjour
j'ai besoin de vos conseil
j'ai plusieurs feuilles avec des noms differents, sinon les feuilles sont identique sur la presentation.
j'aimerai creer un bouton avec un avertissement pour effacer d'un seul coup toute mes feuilles a votre avi quelle serait la solution la plus pratique

merci de vos conseil.

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Bonjour


Un exemple (efface les feuilles dont le nom commence par toto)

Sub efface()
Dim i&
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
If Sheets(i).Name Like "toto*" Then
Sheets(i).Delete
End If
Next
End Sub

 

[PascalXLD]

Re : effacer plusieurs feuilles ?

Bonjour

attention sur un classeur Angoul tu ne peux pas supprimer toutes feuilles il en faut toujours une minimum

 

[angoul]

Re : effacer plusieurs feuilles ?

je me rend compte que j'ai mal interpreter ma demande
c'est pas effacer mes feuilles, mais effacer ce qu'il y a dedans

merci de ton aide, mais peut etre qu'un modele de ma feuille serait plus explicite

excuser moi de mon erreur

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Re


Donc tu veux effacer le contenu des colonnes D et E de tes feuilles ?

Sub efface2()
Dim i&
For i = 1 To Worksheets.Count
If Sheets(i).Name Like "Veteran*" Then
Sheets(i).Range("D8:E43").ClearContents
End If
Next
End Sub

 

[angoul]

Re : effacer plusieurs feuilles ?

voila exactement, mais j'ai plein de categorie
j'ai mis sa mais sa marche pas
Private Sub CommandButton45_Click()
Dim i&
For i = 1 To Worksheets.Count
If Sheets(i).Name Like "Veteran*;Pupille*;Benjamin*;Minime*;Cadet*;Junior*;Senior*;Espoir* " Then
Sheets(i).Range("D8:E43").ClearContents
End If
Next
End Sub

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Re


Peux-tu lister le noms de toutes les feuilles présentes dans ton classeur , stp ?

 

[angoul]

Re : effacer plusieurs feuilles ?

voila la liste :
Mini-poussinM -30; PoussinM -32; PupilleM -34; BenjaminM -37; MinimeM -47; CadetMOpen; JuniorM Open; SeniorM Open; VeteranM Open; Espoirm Open
Mini-poussinM -37; PoussinM -42; PupilleM -44; BenjaminM -47; MinimeM -57; CadetF Open; juniorF Open; SeniorM Open; VeteranF Open;EspoirF Open; Mini-poussinM 37 et +; PoussinM 42 et +; PupilleM 44 et +; BenjaminM 47 et +; MinimeM 57 et +;
Mini-poussinF -28; PoussinF -30; PupilleF -32; BenjaminF -35; MinimeF -43;
Mini-poussinF -33 PoussinF -40; PupilleF -42; BenjaminF -45; MinimeF -50;
Mini-poussinF 33 et +; PoussinF 40 et +; PupilleF 42 et +; BenjaminF 45 et +;
MinimeF 50 et +

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Re


Il y n'y a d'autres feuilles ?

Menu ou Sommaire ou Feuil1 Feuil2 ?


Toutes ces feuilles sont à traitées ?

Le but visé étant celui là
(Toutes les feuilles dont nom n'est pas , seront traitées )

Sub efface3()
Dim i&
For i = 1 To Worksheets.Count
If Not Sheets(i).Name Like "Feuil*" Then
Sheets(i).Range("D8:E43").ClearContents
End If
Next
End Sub

 

[angoul]

Re : effacer plusieurs feuilles ?

alors j'ai comme page, a ne pas effacer, menu, reultats,tableau, poule 6, poule 4, categorie, inscription, saisie

merci de ton aide

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Re


Essaie ceci

Sub efface4()
Dim i&
For i = 1 To Worksheets.Count
If Not Sheets(i).Name Like "menu" _
And Not Sheets(i).Name Like "resultats" _
And Not Sheets(i).Name Like "tableau" _
And Not Sheets(i).Name Like "poule *" _
And Not Sheets(i).Name Like "categorie" _
And Not Sheets(i).Name Like "inscription" _
And Not Sheets(i).Name Like "saisie" Then
Sheets(i).Range("D8:E43").ClearContents
End If
Next
End Sub

 

[angoul]

Re : effacer plusieurs feuilles ?

merci
j'ai un message d'erreur sur la formule que tu ma donner
il y a la ligne : Sheets(i).Range("D8:E43").ClearContents en jaune
peut etre parce que sur mes feuilles j'ai pas toutes les cases de rempli a chaque fois
cela depend du nombre de personne

 

[vbacrumble]

Re : effacer plusieurs feuilles ?

Re



J'ai testé avant de poster le code


Cela fonctionne sur mon PC.

 

[angoul]

Re : effacer plusieurs feuilles ?

excuse moi cela marche j'avait juste oublier un morceau

encore merci