Bonjour,
Je souhaite supprimer toutes les feuilles d'un classeur sauf les 3 premières. J'ai utilisé ce code mais qui ne fonctionne que partiellement. Au bout d'un moment, il ne supprime plus les feuilles et reste bloqué. Je pense que cela est dû au comptage total des feuilles au fur et à mesure des suppressions mais je ne vois pas quoi modifié. Auriez-vous une idée ?
Par avance merci de votre aide.
Sub SupprimerFeuilles()
Dim i As Integer
Application.DisplayAlerts = False
For i = 4 To Sheets.Count
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub
Je souhaite supprimer toutes les feuilles d'un classeur sauf les 3 premières. J'ai utilisé ce code mais qui ne fonctionne que partiellement. Au bout d'un moment, il ne supprime plus les feuilles et reste bloqué. Je pense que cela est dû au comptage total des feuilles au fur et à mesure des suppressions mais je ne vois pas quoi modifié. Auriez-vous une idée ?
Par avance merci de votre aide.
Sub SupprimerFeuilles()
Dim i As Integer
Application.DisplayAlerts = False
For i = 4 To Sheets.Count
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub