Selection et suppression feuille vide excel

cs_pilou2607 Messages postés 9 Date d'inscription lundi 6 novembre 2006 Statut Membre Dernière intervention 16 novembre 2006 - 14 nov. 2006 à 20:01
cs_pilou2607 Messages postés 9 Date d'inscription lundi 6 novembre 2006 Statut Membre Dernière intervention 16 novembre 2006 - 16 nov. 2006 à 18:52
Bonjour

Je cale sur un petit probleme.
Comment est ce que je peux avec une macro rechercher et supprimer les feuilles ou onglets vides dans un fichier excel sans etre obliger de les verifier les uns apres les autres

Merci par avance

2 réponses

dthuler Messages postés 121 Date d'inscription dimanche 9 mars 2003 Statut Membre Dernière intervention 29 avril 2009
15 nov. 2006 à 09:38
Salut,

Tu devras boucler sur chaque feuille pour les tester...
Utilises la fonction suivante proposée par Microsoft qui fonctionne ma fois très bien:

GetRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row

Si GetRealLastRow égal zéro, donc ta feuille est vide (logique)...

Ce qui nous donne en pseudo-code :

Pour Chaque Feuille Dans Classeur {
Selectionne Zone "A1" de Feuille
Si Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row = 0 Alors Efface Feuille}

David
0
cs_pilou2607 Messages postés 9 Date d'inscription lundi 6 novembre 2006 Statut Membre Dernière intervention 16 novembre 2006
16 nov. 2006 à 18:52
Merci beaucoup. Je ne connaissais pas la fonction

A+
0
Rejoignez-nous