Fipat
XLDnaute Occasionnel
Bonjour,
Je bloque sur un code.
je veux vérifier si en colonne B j'ai une valeur sur la dernière ligne et vérifier sur la première cellule vide de la colonne A qu'il n'y à rien.
Si c'est bien le cas je veux supprimer cette ligne.
Merci
Je bloque sur un code.
je veux vérifier si en colonne B j'ai une valeur sur la dernière ligne et vérifier sur la première cellule vide de la colonne A qu'il n'y à rien.
Si c'est bien le cas je veux supprimer cette ligne.
VB:
Sub test()
Dim a$, b$
Dim X&
a = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
b = Sheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row
If a = "" And b <> "" Then
MsgBox "la ligne va être supprimée"
For X = Cells(b, 2).CurrentRegion.Rows.Count To 1 Step -1
If Cells(X, 2).Value <> "" And Cells(X, 1).Value = "" Then Cells(X, 1).EntireRow.Delete
Next
End Sub
Merci