Re : Supprimer la dernière feuille visible d'un classeur
Bonjour Serieuxetcool,
Demande assez bizarre, voici un code avec boucle.
Bruno
Code:
Dim k%
For k = Sheets.Count To 1 Step -1
If Sheets(k).Visible = -1 Then
Application.DisplayAlerts = False
Sheets(k).Delete:
Application.DisplayAlerts = True
Exit Sub
End If
Next
Re : Supprimer la dernière feuille visible d'un classeur
Merci à toi Youki(BJ) pour ta réponse.
J'ai testé et ça fonctionne bien. J'avais essayé une petite boucle comme la tienne mais j'y arrivais pas justement. Peut être parce que je parcourais la boucle For dans l'autre sens que toi.