Suppression feuille

[croftman]

[Résolu] Suppression feuille

Bonjour!

Voila j'ai ce code :

For i = 9 To Sheets.Count
    If Sheets(i).Name <> "Recapitulatif" Then
        Sheets(i).Delete 'Erreur
    End If
Next

Et à la Sheets(i).Delete, la feuille est bien supprimé mais j'ai l'erreur 9

"L'indice n'appartient pas à la sélection"

Je ne comprends pas pourquoi il me renvoi une erreur juste après la suppression de la feuille??

Merci d'avance!

 

[Raja]

Re : Suppression feuille

Bonjour,

Tu es sûr d'avoir plus de 9 feuilles dans le classeur. Sinon pourquoi cette ligne de code ?

For i = 9 To Sheets.Count

 

[croftman]

Re : Suppression feuille

J'ai 8 feuilles dans mon classeur à ne pas supprimer, ensuite j'ai x feuilles à supprimer puis 1 à ne pas supprimer (la feuille Récapitulatif), voila pourquoi la boucle for

 

[Denis]

Re : Suppression feuille

Bonsoir le Fil & le Forum
pour supprimer tes feuilles dans une boucle, il est préférable de faire ta boucle en décomptant.

For i = Sheets.Count to 9 step -1
If Sheets(i).Name <> "Recapitulatif" Then
Sheets(i).Delete
End If
Next

Bon courage et à +
Denis

 

[croftman]

Re : Suppression feuille

Ah oui en effet merci bien Denis, ça marche impec ^^