Supprimer des Feuilles
Résolu
The Drummer
Messages postés
1
Date d'inscription
mardi 17 octobre 2006
Statut
Membre
Dernière intervention
17 octobre 2006
-
17 oct. 2006 à 19:35
Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007 - 17 oct. 2006 à 19:59
Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007 - 17 oct. 2006 à 19:59
1 réponse
Dolphin Boy
Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007
17 oct. 2006 à 19:59
17 oct. 2006 à 19:59
Salut, normal, avec l'instruction For tu fixes au départ les valeurs possibles de i. Sheets.Count n'étant pas remis à jour à chaque boucle. Et comme tu supprimes ... donc fais ça à l'envers. D'autre part, inutile de mettre Application.DisplayAlerts=False dans la boucle, une fois au début ça suffit (à moins qu'il y ait autre chose dans ta boucle que tu n'as pas posté).
Dim i as integer
Application.DisplayAlerts=False
For i=Sheets.Count to 9 step - 1
Sheets(i).delete
Next(i)
Application.DisplayAlerts=True
Dim i as integer
Application.DisplayAlerts=False
For i=Sheets.Count to 9 step - 1
Sheets(i).delete
Next(i)
Application.DisplayAlerts=True
