[VBA] Supprimer plusieurs feuilles Excel
Opacho
-
headshoot444 Messages postés 1 Statut Membre -
headshoot444 Messages postés 1 Statut Membre -
Bonjour,
Dans le cadre d'un projet contenant du VBA, l'utilisateur est amené à creer différentes feuilles (dans le but d'une consultation). A la fermeture du classeur, je souhaiterai que toutes les feuilles ainsi créées soient automatiquement supprimées, le problème c'est que je ne peux pas connaître le nom de ces feuilles et je suis donc bloqué. J'ai commencé un bout de code mais je me retrouve vite dans l'impasse:
Sub Test()
Application.DisplayAlerts = False
nbfeuille = Worksheets.Count
For i = 4 To nbfeuille (je souhaite garder les 4 premières feuilles du classeur Excel)
w = ActiveSheet.Name
Next i
End Sub
Si vous avez quelques solutions à mon problème, ça ne serait pas de refus ^^
Merci d'avance.
Dans le cadre d'un projet contenant du VBA, l'utilisateur est amené à creer différentes feuilles (dans le but d'une consultation). A la fermeture du classeur, je souhaiterai que toutes les feuilles ainsi créées soient automatiquement supprimées, le problème c'est que je ne peux pas connaître le nom de ces feuilles et je suis donc bloqué. J'ai commencé un bout de code mais je me retrouve vite dans l'impasse:
Sub Test()
Application.DisplayAlerts = False
nbfeuille = Worksheets.Count
For i = 4 To nbfeuille (je souhaite garder les 4 premières feuilles du classeur Excel)
w = ActiveSheet.Name
Next i
End Sub
Si vous avez quelques solutions à mon problème, ça ne serait pas de refus ^^
Merci d'avance.
A voir également:
- Comment supprimer plusieurs feuilles excel en même temps
- Supprimer rond bleu whatsapp - Guide
- Excel trier plusieurs colonnes en même temps - Guide
- Comment supprimer une page sur word - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
2 réponses
Bonjour,
Valable seulement si les feuilles ajoutées le sont "Après" (After)
Sinon faut tester les noms des feuilles que tu connaît.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Valable seulement si les feuilles ajoutées le sont "Après" (After)
Sub SuppFeuille()
Dim i As Integer
Application.DisplayAlerts = False
For i = 5 To Sheets.Count
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub
Sinon faut tester les noms des feuilles que tu connaît.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Dim i As Integer
application.DisplayAlerts = False
For i = 5 To Sheets.Count
Sheets(5).Delete
Next i
End Sub
en remplaçant i par 5, ça marche mieux