suppression de lignes

[darib52]

bonjour à tous,
j'ai un tableau dont le nombre de lignes est variable.
je souhaite que des lignes soient effacées par macro à partir du moment où la cellule A est non renseignée.
un exemple est dans le fichier joint.

merci de vos conseils ou solutions
amicalement

 

[PascalXLD]

Re : suppression de lignes

Bonjour

petit code

Sub EffaceLigne()

Dim x As Integer
For x = Range("A1").SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Range("A" & x) = "" Then
        Rows(x).Delete
    Else
        Exit For
    End If
Next
End Sub

 

[wilfried_42]

Re : suppression de lignes

bonjour darib, pascal

ton fichier en retour

 

[darib52]

Re : suppression de lignes

merci à vous 2.

amicalement