en double, en triple , etc...

[yohinomura]

Bonjour le Forum

ceci est pour mon second projet (j'ai réalisé le premier avec votre concours sans avoir besoin de poster un message)
j'en profite donc pour vous dire un grand MERCI !!!

voici mon problème:

Const cam = 1
For k = Range("j1000").End(xlUp).Row To 2 Step -1
If Range("i" & k) = cam Then Rows(k).Activate
Selection.Copy
Sheets("Camion").Activate
Range("a2").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("NonTrié").Activate
Next k

avec ce code, je retrouve des lignes en double, en triple et plus (aléatoirement mais les doublons se suivent toujours) dans la nouvelle feuille et je n'arrive pas a voir d'où vient ce problème.
Sur la feuille "source", il n'y pas de double.

en plus, je suis obligé de copier la ligne complète alors qu'une partie suffirais mais range("A" : "L" & k).Select n'est pas correct.

je fais donc appel à vos connaissance pour me sortir de ce mauvais pas.

 

[homepyrof53]

Re : en double, en triple , etc...

Bonjour,

Regarde cette modification
Const cam = 1
For k = Range("j1000").End(xlUp).Row To 2 Step -1
If Range("i" & k) = cam Then
Rows(k).Activate
Selection.Copy
Sheets("Camion").Activate
Range("a2").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("NonTrié").Activate
end if
Next k

si non le mieux serait de joindre un fichier

 

[yohinomura]

Re : en double, en triple , etc...

merci

cela fonctionne très bien, il n'y a plus de doublon