Bonjour à tous,
j'ai besoin de supprimer les lignes entre la ligne 16 et l ligne 200 et dont les colonnes A, D, et G sont vides et j'ai fait cela
Sub sup_CelVide()
Dim celvide As Variant
Sheets("DEVIS").Select
For Each celvide In Range("A16:A200" & Range("D" & Range("G" & Rows.Count).End(xlUp).Row))
If celvide = "" And celvide.Offset(0, 3) = "" And celvide.Offset(0, 6) = "" Then
Rows(celvide.Row).EntireRow.Delete
End If
Next celvide
End Sub
Mais cela ne fonctionne pas pourquoi ?
merci d'avance
j'ai besoin de supprimer les lignes entre la ligne 16 et l ligne 200 et dont les colonnes A, D, et G sont vides et j'ai fait cela
Sub sup_CelVide()
Dim celvide As Variant
Sheets("DEVIS").Select
For Each celvide In Range("A16:A200" & Range("D" & Range("G" & Rows.Count).End(xlUp).Row))
If celvide = "" And celvide.Offset(0, 3) = "" And celvide.Offset(0, 6) = "" Then
Rows(celvide.Row).EntireRow.Delete
End If
Next celvide
End Sub
Mais cela ne fonctionne pas pourquoi ?
merci d'avance