Bonjour forum
Je voudrais effacer toutes les feuilles d'un classeur sauf la feuille ' tata ' et les feuilles cachées.
Mais les feuilles cachées sont aussi effacées.
Que faut-il modifier ?
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 'tata' And ws.Visible Then ws.Delete
Next
Application.DisplayAlerts = True
Merci pour votre aide
Francis
Je voudrais effacer toutes les feuilles d'un classeur sauf la feuille ' tata ' et les feuilles cachées.
Mais les feuilles cachées sont aussi effacées.
Que faut-il modifier ?
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 'tata' And ws.Visible Then ws.Delete
Next
Application.DisplayAlerts = True
Merci pour votre aide
Francis