Autres Suppression de lignes Excel

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 !

Michel1942

XLDnaute Nouveau
Bonsoir à tous,



Je suis un débutant de 80 ans en VBA (tout fini par arriver!)

J'ai le problème suivant, illustré par deux fichiers joints.

Ces fichiers ont une longueur variable, ont du texte intercalé et se terminent par le mot Fin
suite à divers traitements.
Je voudrais supprimer les lignes vide mais contenant des liaisons, dans l'exemple 21 à 27.
Je sèche là dessus depuis longtemps malgré mes recherches sur plusieurs sites.

Je remercie d'avance les auteurs de réponse.

Remarque: je suis sous Excel 2003 (Eh oui çà date)
 

Pièces jointes

Bonsoir Michel,
Essayez :
VB:
Option Explicit
Sub Supprime()
    Dim DL%, L%,
    Application.ScreenUpdating = False
    DL = [A65500].End(xlUp).Row
    For L = DL To 1 Step -1
        On Error Resume Next
        If Cells(L, "A") = 0 Then Cells(L, 1).EntireRow.Delete
    Next L
End Sub
 

Pièces jointes

- 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

Retour