A voir également:
- Supprimer des feuilles masquées
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer application windows 10 - Guide
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+
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,
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,
