Macro pour supprimer des lignes

Résolu
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
oui ça fonctionne maintenant merci
0

Discussions similaires

Supprimer conversation messenger pour tout le monde
mercidemaider -
sd -

7 réponses