Effacement ligne si cellule vide

Pierrot93

XLDnaute Barbatruc

• 11 Août 2010

• #2

Re : Effacement ligne si cellule vide

Bonsoir,

essaye le code ci-dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

L

lechti31

XLDnaute Occasionnel

• 11 Août 2010

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2010

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

L

lechti31

XLDnaute Occasionnel

• 11 Août 2010

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2010

• #6

Re : Effacement ligne si cellule vide

Re,

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

Code:

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

@+

 

Vote positif 0 Vote négatif