Supprimer des feuilles masquées
emilalex
-
Emilalex -
Emilalex -
Bonjour,
J'ai un classeur avec une cinquantaine de feuilles masquées et 3 affichées.
Pouvez-vous me donner la syntaxe pour faire une macro qui supprime automatiquement toutes les feuilles masquées sans avoir à les identifier ?
Merci par avance.
J'ai un classeur avec une cinquantaine de feuilles masquées et 3 affichées.
Pouvez-vous me donner la syntaxe pour faire une macro qui supprime automatiquement toutes les feuilles masquées sans avoir à les identifier ?
Merci par avance.
Configuration: Windows XP / Internet Explorer 7.0
2 réponses
-
Peut être quelque chose du genre
for feuille = 1 to 50
sheets("Feuil"& i).Select
if AtiveWindow.SelectedSheets.Visible = False then
activeWindow.SelectedSheets.delete
endif
next
Il faut tester mais cela devrait fonctionner.
A+ -
Merci de ta réponse.
Cela ne fonctionne pas, j'ai corrigé le AtiveWindows du IF par ActiveWindows.
Mes feuilles ne s'appelent plus Feuil1, Feuil2, etc mais avec des noms trés variés.
Pour cette raison que j'aimerais supprimer les feuilles masquées sans avoir à les nommer dans ma macro.
Cordialement,
