Effacement ligne si cellule vide

[lechti31]

Bonjour,
Me revoici avec un nouveau souci
J'aimerai faire une macro pour effacer une ligne complète quand une des cellules de cette ligne est vide.
Dans mon tableau il faudrait que la macro supprime la ligne complète quand les cellules de la colonne "E" sont vides.
J'ai essayé avec la fonction ROW mais la variable entre parenthèse n'est pas prise en compte

 

[Pierrot93]

Re : Effacement ligne si cellule vide

Bonsoir,

essaye le code ci-dessous :

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

bonne soirée
@+

 

[lechti31]

Re : Effacement ligne si cellule vide

Ca marche pour les lignes où la cellule de la colonne E est vide entre deux ligne ou la colonne E est pleine mais ne fonctionne pas pour les ligne après la dernière cellule E pleine
Une autre solution si tu as je suis preneur
Merci

 

[Pierrot93]

Re : Effacement ligne si cellule vide

Re,

normal, puisque je me base sur la dernière cellule de la colonne E... si tu dois te baser sur une autre colonne pour déterminer la dernière cellule, il te suffit de modifier la lettre en rouge sur ce bout de code

Range("[COLOR="Red"][B]E[/B][/COLOR]65536")

 

[lechti31]

Re : Effacement ligne si cellule vide

Merci pour ta réponse, j'ai trouvé ma solution en fouillant sur le forum avec ta formule les dernières lignes où la cellule E est vide, sa ne fonctionne pas par contre avec cette formule tout fonctionne correctement
Merci encore

For i = 20 To 1 Step -1
If Range("E" & i).Value = "" Then Rows(i).Delete
Next i

 

[Pierrot93]

Re : Effacement ligne si cellule vide

Re,

peut être aussi ainsi, si le nombre de lignes est variable ...

Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If IsEmpty(Cells(i, 5)) Then Rows(i).Delete
Next i

@+