Autres Suppression de lignes Excel

Michel1942 · 25 Avril 2022

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 · 25 Avril 2022

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

Michel1942 · 25 Avril 2022

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

Michel1942 · 26 Avril 2022

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

sylvanu · 26 Avril 2022

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.

Autres Suppression de lignes Excel

Michel1942

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Michel1942

XLDnaute Nouveau

Michel1942

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires