Macro pour supprimer des lignes

Résolu
noe2008 Messages postés 191 Statut Membre -  
noe2008 Messages postés 191 Statut Membre -
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

1 réponse

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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).Delete
    Next li


    Cdlmnt
    0
    1. noe2008 Messages postés 191 Statut Membre 4
       
      oui ça fonctionne maintenant merci
      0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses
Masquer une commande amazon
Akim -
Akim -

4 réponses