[VBA] Supprimer plusieurs feuilles Excel

Fermé

Feuille

Opacho - 1 juin 2010 à 15:14
headshoot444 Messages postés 1 Date d'inscription lundi 2 mai 2016 Statut Membre Dernière intervention 2 mai 2016 - 2 mai 2016 à 11:18

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.

A voir également:

Comment supprimer plusieurs feuilles excel en même temps
Comment supprimer une page sur word - Guide
Supprimer compte instagram - Guide
Liste déroulante excel - Guide
Fusionner plusieurs feuilles excel en une seule - Guide
Formule excel - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 1/06/2010 à 16:19

Bonjour,
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)

headshoot444 Messages postés 1 Date d'inscription lundi 2 mai 2016 Statut Membre Dernière intervention 2 mai 2016
2 mai 2016 à 11:18

Sub Test()
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

Discussions similaires

Excel : protéger une partie de la feuille

si imprimante en panne, où imprimer?

Excel : Recherche sur plusieurs feuilles

envoi feuille excel

Excel - Récupérer données autre feuille

macro référence

Discussions similaires

Newsletters