effacer plusieurs feuilles ?

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #2

Re : effacer plusieurs feuilles ?

Bonjour


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

Code:

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Mai 2009

• #3

Re : effacer plusieurs feuilles ?

Bonjour

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #4

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

 

Pièces jointes

• efface cellule.xls

  46 KB · Affichages: 56

Dernière édition: 18 Mai 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #5

Re : effacer plusieurs feuilles ?

Re


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

Code:

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

 

Dernière édition: 18 Mai 2009

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #6

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #7

Re : effacer plusieurs feuilles ?

Re


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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #8

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 +

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #9

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 )

Code:

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #10

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #11

Re : effacer plusieurs feuilles ?

Re


Essaie ceci

Code:

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #12

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #13

Re : effacer plusieurs feuilles ?

Re



J'ai testé avant de poster le code


Cela fonctionne sur mon PC.

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 18 Mai 2009

• #14

Re : effacer plusieurs feuilles ?

excuse moi cela marche j'avait juste oublier un morceau

encore merci

 

Vote positif 0 Vote négatif