Pb condition si cells Vide

[rjcb]

Bonjour,

J'ai ce bout de fonction:

  lastrow = Range("A65536").End(xlUp).Row + 1
    
    For i = 2 To lastrow - 1
                If Range("E" & i) = " " Then
                    Rows(i).Select
    Selection.Delete Shift:=xlUp
                    End If
                  Next i

Je ne comprends pas, j'ai bien des cellules vides en Ei et cela ne rentre pas dans la boucle.
J'ai essayé avec = Empty ou IsEmpty = true, meme pb.

Je vous joint le fichier

Si vous voyez l'erreur

Merci à vous

 

[Efgé]

Re : Pb condition si cells Vide

Bonjour rjcb,
Pour trouver une cellule vide il faut utiliser If Range("E" & i) = "" si on utilise If Range("E" & i) = " " , la macro cherche les cellules qui possèdent un espace.
Pour supprimer des lignes, il faut partir du bas et remonter.
Ma proposition:

Sub Test0()
lastrow = Range("A65536").End(xlUp).Row + 1
For i = lastrow - 1 To 2 Step -1
    If Range("E" & i) = "" Then Rows(i).Delete Shift:=xlUp
Next i
End Sub

Cordialement

 

[rjcb]

Re : Pb condition si cells Vide

Merci bcp Efgé ! Cela marche très bien !