counterbob
XLDnaute Nouveau
Bonjour, ma question est presque dans le titre.
Sur un classeur se trouve dans la feuille "Liste" une liste de noms correspondant aux feuilles qui doivent être présente.
je souhaiterais un code qui supprime les feuilles qui ne sont pas présente dans la liste.
Je bloque. J'ai essayé ce code mais c'est pas bon du tout.
Je joins un classeur exemple
merci pour une piste
Sur un classeur se trouve dans la feuille "Liste" une liste de noms correspondant aux feuilles qui doivent être présente.
je souhaiterais un code qui supprime les feuilles qui ne sont pas présente dans la liste.
Je bloque. J'ai essayé ce code mais c'est pas bon du tout.
Je joins un classeur exemple
merci pour une piste
VB:
Sub deleteFeuille()
Dim nom As String
For i = 2 To Sheets("Liste").Range("A1").End(xlDown).Offset(1, 0).Row - 1
nom = Cells(i, 1).Value
For Each sh In Sheets
If sh.Name <> nom Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
Next
End Sub