Projet VBASuppression
Suppression de Feuilles
Procédure - facultative et dangereuse ! - sous forme de boucle de programme pour la suppression des feuilles vide
Sub proc_supprime_feuilles()
'Enlève les affichages de confirmation de suppression
Application.DisplayAlerts = False
For i = 2 To Sheets.Count Step 1
Sheets("Feuil" & i).Select 'Sélection
ActiveSheet.Delete 'Suppression
Next i
'Réactive les affichages de confirmation de suppression
Application.DisplayAlerts = True
End Sub
'Enlève les affichages de confirmation de suppression
Application.DisplayAlerts = False
For i = 2 To Sheets.Count Step 1
Sheets("Feuil" & i).Select 'Sélection
ActiveSheet.Delete 'Suppression
Next i
'Réactive les affichages de confirmation de suppression
Application.DisplayAlerts = True
End Sub
Attention de faire une sauvegarde avant de tester cette procédure :-)
