Changement d'emplacement de ligne en fonction de critère

[gant1801]

Bonjour à tous,
J'ai réalisé une macro me permettant de couper une ligne possédant un critère et de la coller dans une partie située en contre-bas.
Le problème est que lorsque j'active ma macro, dans le cas où deux lignes successives présentent le critère en question, la macro plante et n'agit pas sur toutes les lignes.

Code VBA:

Sub Non_concerne()

Dim Ledernier As Integer
Ledernier = Range("C3").End(xlDown).Row
Dim I As Integer
For I = 4 To Ledernier
If Cells(I, 12).Value = "Non concerné" Then
'Range(Cells(I, 1), Cells(I, 28)).Select
Rows(I).Select
Selection.Cut

Dim D As Integer
D = Range("C10000").End(xlUp).Row + 1
'Cells(D, 1).Select
Rows(D).Select

ActiveSheet.Paste
Application.CutCopyMode = False

Rows(I).Select
Selection.Delete Shift:=xlUp
End If
Next I
End Sub

Je joins mon fichier au cas où cela puisse aider.
Merci de l'aide
Gant

 

[vgendron]

Re : Changement d'emplacement de ligne en fonction de critère

Hello

suffit de faire ta boucle dans l'autre sens..

For I = Ledernier To 4 Step -1

 

[gant1801]

Re : Changement d'emplacement de ligne en fonction de critère

Merci vgendron, votre modification marche parfaitement!
Pourriez-vous néanmoins m'expliquer pourquoi.
Je comprends que la macro part de la ligne "Ledernier" et remonte à chaque fois d'une ligne, mais en quoi cela apporte une amélioration par rapport à mon code?
Merci de votre aide
Ps: J'ai eu quelques soucis avec les réponses, j'ai du le refaire trois fois (j'espère que les trois ne vont pas apparaître en même temps...)

 

[vgendron]

Re : Changement d'emplacement de ligne en fonction de critère

c'est simple
dans ta boucle tu pars de 4 à 10
si la ligne 4 répond au critère tu la copies, la déplaces et enfin la supprimes (ce qui fait remonter toutes les lignes du dessous. c'est à ce moment la que ca "plante" car la ligne 5 devient la ligne 4
lorsque tu passes à la ligne suivante (donc la nouvelle ligne 5) tu n'as pas testé celle qui vient de passer en 4...
execute ta macro en mode pas à pas (F8) et tu verras tout de suite

 

[gant1801]

Re : Changement d'emplacement de ligne en fonction de critère

Il est vrai que c'est logique dit comme ça, je penserais à exécuter la macro en pas à pas la prochaine fois...
Merci