Suppresion de ligne vide

[roulax]

Bonjour,

Petite question en rapport avec la suppression de ligne vide.
Je travaille sur une macro qui copie des données venant de différents classeurs. Ma macro me crée des lignes sans données que je voudrais supprimer.

J'ai établis le code ci-dessous qui supprime toutes les lignes !

    ActiveCell.SpecialCells(xlLastCell).Select
    PLIG = ActiveCell.Row
    nb_lign = 1
    Range("C7").Select
    For nb_lign = 1 To PLIG
    ActiveCell.Offset(1, 0).Select
    If IsEmpty(ActiveCell.Offset(1, 0).Value) Then
    Rows.Delete
    Exit For
    End If
    Next nb_lign

Une idée sur le problème ?

 

[Pierrot93]

Re : Suppresion de ligne vide

Bonjour,

je ne comprends pas trop ton code, ci-dessous un exemple qui supprime la ligne pour laquelle la cellule de la colonne A est vide...

Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If IsEmpty(Cells(i, 1)) Then Rows(i).Delete
Next i
End Sub

En espérant que cela puisse t'aider à avancer...

bonne journée
@+

Edition : problème de clavier...

 

[roulax]

Re : Suppresion de ligne vide

Bjr Pierrot93,

Je vais tester avec ton code,

Merci pour ta réponse rapide.