A
albert
Guest
Bonjour à tous, bonjour forum,
Le code suivant supprime une par une des feuilles choisies (3 à – 8)
Je cherche à supprimer ce groupe de feuilles en une seule fois.
J’ai cherché des solutions comme par exemple Loop Until mais à chaque fois il y a bogue et F8 ne me donne pas la soluce (on peut pas tout avoir)
Sub KillSheet2()
Compteur = Worksheets.Count - 8
A = Compteur
B = 3
'-----------------------------------
For i = 2 To A
Sheets(B).Select
FeuilToKill = B
Application.DisplayAlerts = False
On Error GoTo Out
Sheets(FeuilToKill).Delete
Application.DisplayAlerts = True
B = B + 1
'-----------------------------------
Exit Sub
Out:
MsgBox "La Feuille : " & FeuilToKill & " n'existe pas"
Next i
End Sub
merci d'avance
albert
Le code suivant supprime une par une des feuilles choisies (3 à – 8)
Je cherche à supprimer ce groupe de feuilles en une seule fois.
J’ai cherché des solutions comme par exemple Loop Until mais à chaque fois il y a bogue et F8 ne me donne pas la soluce (on peut pas tout avoir)
Sub KillSheet2()
Compteur = Worksheets.Count - 8
A = Compteur
B = 3
'-----------------------------------
For i = 2 To A
Sheets(B).Select
FeuilToKill = B
Application.DisplayAlerts = False
On Error GoTo Out
Sheets(FeuilToKill).Delete
Application.DisplayAlerts = True
B = B + 1
'-----------------------------------
Exit Sub
Out:
MsgBox "La Feuille : " & FeuilToKill & " n'existe pas"
Next i
End Sub
merci d'avance
albert