Problème avec boucle for

Bonjour,

Je suis actuellement entrain de faire un programme de suivie de dossier et je suis confronté a un petit problème :/.

Dans la colonne : " Commande / Statut ", je souhaite que si la valeur de cette case est : "Perdu(motif)", la ligne en question soit supprimé.

Mon programme marche mais quand je veux le mettre dans une boucle "for" pour tester toutes les case non vide de la colonne "H", cela ne marche pas, si quelqu'un avait une idée .

Merci d'avance =)

Bonjour,

Je veux bien essayer de t'aider mais je n'ai qu'XL 2002.

Peux-tu STP envoyer le fichier en xls ?

Bonjour,

essaye avec

Sub test()
Dim LG%, i%
LG = Range("A65536").End(xlUp).Row
    For i = 7 To LG
        If Cells(i, "h") = "Perdu(motif)" Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

Amicalement

Claude

édit: d'accord avec toi cousinhub, erreur de ma part !

Bonsoir,

Perso, je préfère commencer par le bas, lors de suppression de lignes.....

Sub test()
Dim DerLig As Long, I As Long
DerLig = [H65000].End(xlUp).Row
For I = DerLig To 7 Step -1
    If Cells(I, 8).Value = "Perdu(motif)" Then
        Rows(I).Delete
    End If
Next I
End Sub

Bonne soirée

Humm je viens d'essayer vos deux codes mais pour moi cela ne marche pas O_o

Re-,

tout à fait normal que cela ne fonctionne pas (si on s'en réfère à ton classeur exemple...)

dans l'onglet "Accueil", en colonne H, on a : Perdu (motif) (note l'espace entre Perdu et (motif))

et dans l'onglet "Administratif", on a : perdu(motif (Perdu avec un p minuscule, et pas de parenthèse fermante)

Donc, en mettant un peu d'ordre dans ton classeur, et en obligeant une validation de saisie, par exemple, cela devrait fonctionner...

Ou alors

Décidément.... A croire que j'ai pas les yeux en face des trous ^^".

Encore une fois merci, ce forum est vraiment génial, des réponses rapides et qui correspondent à nos attentes, que demander de plus ? .

Même si cela ne reste qu'un "Merci", je vous remercie tout les deux =)