Effacer des feuilles sous VBA

[JoelleN]

Bonjour le monde,

J'ai un boutton de commande, qui va effacer toutes les feuilles qui comment par "client_". Une fois je clique sur ce boutton il me supprime la première feuille après il m'affiche une erreur: "l'indice n'appartient pas à la selection".
J'aimerai bien que mon button m'efface ttes mes feuilles d'un coup.

Voila mon code :


Private Sub CommandButton1_Click()
Dim Mycount, i

Mycount = Workbooks("Essai8Client").Worksheets.Count

For i = 1 To Mycount
If Left(Workbooks("Essai8Client").Worksheets(i).Name, 7) = "client_" Then
Workbooks("Essai8Client").Worksheets(i).Delete
End If
Next i

End Sub

Merci pr votre aide...

Joelle.

 

[Pierrot93]

Re : Effacer des feuilles sous VBA

Bonjour Joelle

essaye en modifiant le début de ta boucle ainsi

For i = Mycount  To 1 Step -1

sinon peut être passer par une boucle "For Each", plus facile à gérer.

bonne journée
@+

 

[JoelleN]

Re : Effacer des feuilles sous VBA

Salut Pierrot93,

Ca marche nickel now 😀. Merci, bonne journée!!!!