Autres Suppression de lignes Excel

[Michel1942]

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)

 

[sylvanu]

Bonsoir Michel,
Essayez :

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

 

[Michel1942]

Merci sylvanu pour cette réponse immédiate
C'est parfait et si simple.
Un grand merci et mes amitiés.

 

[Michel1942]

Bonjour sylvanu,
Encore une petite question. Que signifie le signe % dans l'exemple?
Encore merci

 

[sylvanu]

Bonjour,
Juste un truc de fainéant.
Dim DL% veut dire Dim DL as Integer.
Vous avez aussi $ pour String, & pour Long, # pour Double, ! pour Single.