[VBA Excel] supprimer tous les onglets sauf un

Bonjour,

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

Code:

---

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

Salut,

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

Code:

---

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:

---

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

bonjour

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

Code:

---

1 2 3 4

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

---

cordialement
michel

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

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 ?

rebonjour

dans ce cas tu peux tester

Code:

---

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

C'est parfait.

Merci !