chris6999
XLDnaute Impliqué
Bonjour le FORUM
J'ai besoin dans mon projet de supprimer les lignes pour lesquelles j'ai dans la colonne G la valeur 7010Z ou 6820B (cellules en orange dans la grille)
Mon code actuel ne fonctionne que partiellement et je ne parviens pas à comprendre pourquoi
'dernière cellule non vide sur la colonne C
derlig = Range("C" & Rows.Count).End(xlUp).Row
For Each c In Range(Cells(4, "G"), Cells(derlig, 7))
If c.Value Like "7010Z" Or c.Value Like "6820B" Then c.EntireRow.Delete
Next c
Après avoir préalablement numéroté les lignes je me rends compte qu'il semble traiter une ligne sur 2..Quelqu'un pourrait-il m'expliquer cette bizarerie
Merci d'avance pour votre aide
Bon après midi à tous
J'ai besoin dans mon projet de supprimer les lignes pour lesquelles j'ai dans la colonne G la valeur 7010Z ou 6820B (cellules en orange dans la grille)
Mon code actuel ne fonctionne que partiellement et je ne parviens pas à comprendre pourquoi
'dernière cellule non vide sur la colonne C
derlig = Range("C" & Rows.Count).End(xlUp).Row
For Each c In Range(Cells(4, "G"), Cells(derlig, 7))
If c.Value Like "7010Z" Or c.Value Like "6820B" Then c.EntireRow.Delete
Next c
Après avoir préalablement numéroté les lignes je me rends compte qu'il semble traiter une ligne sur 2..Quelqu'un pourrait-il m'expliquer cette bizarerie
Merci d'avance pour votre aide
Bon après midi à tous