Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer la dernière feuille visible d'un classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SERIEUXETCOOL

XLDnaute Occasionnel
Bonjour le Forum,

J'ai un classeur qui contient des feuilles affichées ET des feuilles masquées avec la propriété "very hidden".

Je souhaite supprimer la dernière feuille visible du classeur (celle qui est le plus à droite).

Pour ce faire j’utilise le code suivant :

Code:
Worksheets(Worksheets.Count).Delete 'Supprime la dernière feuille inutile

Mais évidement avec mes feuilles cachées, ça ne fonctionne pas.

Comment dois-je m'y prendre très simplement pour supprimer la dernière feuille visible de mon classeur ?


Bien cordialement,


André
 
Re : Supprimer la dernière feuille visible d'un classeur

Bonjour Serieuxetcool,
Demande assez bizarre, voici un code avec boucle.
Bruno
Code:
Dim k%
For k = Sheets.Count To 1 Step -1
If Sheets(k).Visible = -1 Then
Application.DisplayAlerts = False
Sheets(k).Delete:
Application.DisplayAlerts = True
Exit Sub
End If
Next
 
Re : Supprimer la dernière feuille visible d'un classeur

Merci à toi Youki(BJ) pour ta réponse.

J'ai testé et ça fonctionne bien. J'avais essayé une petite boucle comme la tienne mais j'y arrivais pas justement. Peut être parce que je parcourais la boucle For dans l'autre sens que toi.

En tout cas merci, tu m'a débloqué. C'est sympa.

André
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…