preserver des feuilles cachées

Francis · 16 Mai 2005

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

PascalXLD · 16 Mai 2005

Bonjour

Essaies

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 'tata' and ws.Visible=true Then ws.Delete
Next
Application.DisplayAlerts = True

Bon courage

Francis · 16 Mai 2005

Rebonjour Pascal et le forum
Toujours aussi rapide Pascal
merci
Francis

preserver des feuilles cachées

Francis

XLDnaute Junior

PascalXLD

XLDnaute Barbatruc

Francis

XLDnaute Junior

Discussions similaires