Discussion :

[drinkmilk]

Bonjour,

Je souhaite supprimer dans un fichier Excel tous les onglets sauf un. Pour cela, j'ai essayé le code suivant:

Code :

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

1
2
3
        For i = 1 To (Sheets.Count - 1)
            Sheets(i).Delete
        Next i

Le problème: j'obtiens l'erreur d'exécution 9: "L'indice n'appartient pas à la sélection". Cette erreur n'apparaît au bout de quelques suppressions.

De plus, pour chaque suppression, une boîte de dialogue s'affiche et demande à l'utilisateur de confirmer la suppression. Pour la suppresion de 20 onglets, il faut donc cliquer 19 fois...

Est-ce que quelqu'un a une idée pour corriger ce problème ? Ou alors, y-a t-il un autre moyen de le faire ?

Merci

[Theocourant]

Salut,

Un post précédent m'a fait pensé à un code de réponse pour ton problème

Code :

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

1
2
3
4
5
For i = 1 To Sheets.Count
   if Sheets.Count >1 then 
      Sheets(1).Delete 'Efface la 1ère feuille
   end if
Next i

ou encore plus simple:

Code :

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

1
2
3
While Sheets.Count > 1
      Sheets(1).Delete 'Efface la 1ère feuille
Wend

J'espère que cela pourra t'aider

@+

Théo

[SilkyRoad]

bonjour

une autre possibilité en complément de la reponse de Theo

Code :

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

1
2
3
4
Dim i As Integer
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next i

cordialement
michel

[ouskel'n'or]

Enfin, si tu connais le nom de la feuille à conserver, tu utilises les codes précédent et par un test sur le nom, tu exclus cette feuille.

La mousse du cosse

[drinkmilk]

Non, je ne connais pas le nom de la feuille à conserver. Mais les solutions proposées me conviennent parfaitement.

Merci !

Néanmoins, j'ai toujours la demande de confirmation pour la suppression. Il n'y a pas de moyen de supprimer une feuille sans qu'il y ait d'avertissement ?

[SilkyRoad]

rebonjour

dans ce cas tu peux tester

Code :

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

1
2
3
4
5
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True

cordialement
michel

[drinkmilk]

C'est parfait.

Merci !