Nouveau problème, suppression d'une ligne VBA

Re Bonjour pour la 8ème fois de la matinée

J'espère ne pas trop vous embêter

Alors voilà, j'ai mon tableau, toujours le même :

J'ai un bouton : "Exporter l'agence" qui me permet d'avoir une feuille avec toutes les données de l'agence qui s'empilent les uns à la suite des autres, tout marche très bien, j'en suis content

Seul problème, j'aimerais que lorsqu'il est écrit le mot : "PAQ" dans la cellule Bx et bien dans la feuille Excel qui c'est créer pour l'agence en question, cette ligne se supprime, j'ai donc écris ce petit code :

    For i = 18 To DerLigne
    If Left(Range("D" & i).Value, 3) = "PAQ" Then

    Rows(i & ":" & i).Select
    Selection.Delete

    End If
    Next i

Le code marche, seulement il m'efface toutes les lignes avec PAQ sauf une, je sais pas pourquoi... est-ce que quelqu'un pourrait m'aider ?

Si ce n'est pas clair, je ferais différents screen des étapes, je joint quand même le fichier pour que vous puissiez voir et travailler dessus, l'agence à Exporter est : Arbois Enrobés et le tableau est déjà près,

fichier.xls

Et bon appétit !

Bonjour,

Esaye plutôt ceci :

For i = 18 To DerLigne 
If Left(Range("D" & i).Value, 3) = "PAQ" Then 
Rows(i).Delete 
End If 
Next i

Amicalement

Dan

Bonjour, merci mais j'obtiens le même résultat.

Re,

Désolé mais je n'avais pas vu que tu avais posté un fichier et là c'est évident que ce que je t'ai proposé fera la même chose.

Essaye plutôt ce code :

For i = DerLigne To 18 Step -1
 If Left(Range("D" & i).Value, 3) = "PAQ" Then
Rows(i).Delete
End If
Next i
End Sub

Amicalement

Dan

Un grand merci à toi !!

Mais peux-tu m'expliquer ce qui change par rapport au code précédent ?

Merci

re,

Simplement que tu commences par la dernière ligne plutôt que de commencer par la ligne 18.

Dan

Ok merci à toi