XL 2013 procédure supp feuille

[jemi999]

Bonjour, je suis stoppé dans cette question pour mon TP qui sera rendue demain.
SVP quelq'un me donner une fonction qui efface les feuilles vides du classeur courant en personalisant la confirmation. On pourra ici d'utiliser les fonctions integrées ISARRAY et ISEMPTY.
j'ai essayé avec :
Sub purgfeuilles()
Dim feuille As Worksheet
For Each feuille In Sheets
If IsEmpty(feuille.Cells) Then
bouton = vbYesNo + vbDefaultButton2
repnse = 1
msgbox("supprimer la feuille", bouton)
If reponse = vbYes Then
Worksheet.Delete
End If
feuille.Delete
End If

Next feuille
end sub

 

[Modeste]

Re : procédure supp feuille

Bonjour jemi999 et bienvenue,

Si tu repasses par ici, il faudrait qu'on s'entende sur ce que tu appelles des "feuilles vides": les cellules pourraient être vides, sans pour autant que la feuille le soit (zone de texte, graphique, commentaires, etc.)

Pas certain, par ailleurs que la fonction ISEMPTY puisse être appliquée à l'ensemble des cellules d'une feuille!?

S'il s'agit de vérifier que toutes les cellules sont vides, il me semble que ceci pourrait fonctionner:

Sub purgfeuilles()
Dim feuille As Worksheet
For Each feuille In Sheets
If Application.CountA(feuille.Cells) = 0 Then
bouton = vbYesNo + vbDefaultButton2
reponse = MsgBox("supprimer la feuille", bouton)
If reponse = vbYes Then feuille.Delete
End If
Next feuille
End Sub

 

[jemi999]

Re : procédure supp feuille

Merci, ce code est fonctionnel mais si on a plusieurs feuilles vide il efface juste une comment faire pour passer au les autres?

 

[shmider]

Re : procédure supp feuille

Bonjour à vous deux,

En fait ce code permet effectivement de supprimer l'ensemble des feuilles vides après vérification.

Retente et tiens nous au courant.
@+

 

[Modeste]

Re : procédure supp feuille

Bonsoir jemi999, shmider,

Merci au second pour la confirmation (même si un fichier au format .xlsx ne saurait contenir de macro: il devrait être du type .xlsm)

Comme le fichier existait -avec même un bouton tout prêt à servir- j'en ai lâchement profité: j'ai placé le code proposé dans un module standard et associé la macro au bouton de shmider.

Les 4 onglets de couleur rouge sont des feuilles vides, contrairement aux autres ... et ces 4 feuilles sont bien supprimées au terme de l'exécution!?