macro pour supprimer des lignes Résolu

Question

Bonjour, 
je travaille sur une macro pour supprimer toutes les lignes dans ne contenant pas la valeur " valide " entre BG5:BG100 
mais mon code contient des erreurs il ne marche pas
voila ma macro si vous pouvez m'aider et merci

Sub supp_ligne()
For Each cell In Range("BG5:BG100")
If cell <> "valide" Then Rows(i).Delete
Next

End Sub


Configuration: Windows 7 / Chrome 49.0.2623.87

ccm81 · Answer

Bonjour

il te faut commencer par le bas et en remontant. Essaies comme ceci
For li = 100 to 5 Step -1  If Range("BG" & li).Value <> "valide" then Rows(li).DeleteNext li

Cdlmnt

Macro pour supprimer des lignes

1 réponse

Votre réponse

Discussions similaires