Supprimer lignes si cellule avec valeur !

[samimi94]

Bonjour,

Je rencontre un souci dans mon projet VBA.
Je souhaite supprimer les lignes d'un fichier si la cellule de la colonne F possède une valeur (aussi bien numérique que Alpha).
J'ai beau faire des recherches, je ne trouve que la syntaxe pour des cellules vides ou avec 0.

Merci pour votre aide.

Bonne journée.

 

[Hulk]

Re : Supprimer lignes si cellule avec valeur !

Hello Samimi,

Essaie ceci

    Dim c As Range

    Set c = Range("F1:F" & Range("F65536").End(xlUp).Row)
    
    For Each c In c
        If c <> "" Then c.Rows.Delete
    Next c

Cdt, Hulk.

 

[Catrice]

Re : Supprimer lignes si cellule avec valeur !

Bonjour,

A tester :
Sub Test()
For i = Range("F65536").End(xlUp).Row To 1 Step -1
If Cells(i, 6) <> "" Then Rows(i).Delete
Next
End Sub


voir le fichier joint

 

[samimi94]

Re : Supprimer lignes si cellule avec valeur !

Bonjour Hulk, Catrice,

Very thanks 😉

Vous m'avez trouvé la solution en un rien de temps.
Ça me retire une épine du pied. Le résultat est tout à fait ce que je souhaitais.

Merci beaucoup et bonne journée.