Discussion :

[marinef]

Je veux comparer ces 2 colonnes. Parcour la premiere colonne N° SERIALISATION et parcourir la 2eme SERIAL, et si on detecte un même numéro alors on marque une petite croix a coté du serial.
Voici le code que j'ai ecris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
I = 8
Do
I = I + 1
    Serial = Workbooks(Ref).Sheets("Feuil1").Cells(I, 2).Value
    J = 7
    Do
      J = J + 1
      If Workbooks(Ref2).Sheets("Feuil1").Cells(J, 2).Value = Serial Then
      Workbooks(Ref).Sheets("Feuil1").Cells(J, 1) = "X"
      End If
    Loop Until Workbooks(Ref2).Sheets("Feuil1").Cells(J, 2).Value = ""
 Loop Until Workbooks(Ref).Sheets("Feuil1").Cells(I, 2).Value = ""

Cependant ça ne me met pas les bonne croix aux bons endroits.. Les croix rouges sont celles qui auraient du etre inscrites. Pourtant il y a bien 6crois pour 6 serials identiques...

[zandru]

Bonjour,
si j'ai bien compris ce que tu veux faire, je pense que la seule erreur est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
I = 8
Do
I = I + 1
Serial = Workbooks(Ref).Sheets("Feuil1").Cells(I, 2).Value
J = 7
Do
J = J + 1
If Workbooks(Ref2).Sheets("Feuil1").Cells(J, 2).Value = Serial Then
Workbooks(Ref).Sheets("Feuil1").Cells(I, 1) = "X"
End If
Loop Until Workbooks(Ref2).Sheets("Feuil1").Cells(J, 2).Value = ""
Loop Until Workbooks(Ref).Sheets("Feuil1").Cells(I, 2).Value = ""

(passer J à I)
Qu'en pense-tu ?

[J.Michel]

regarde ce topic: http://www.developpez.net/forums/sho...29#post3432629

Tu devrais pouvoir l'adapter à ton cas

[marinef]

oh!!!
merci comme koi... jsuis vraiment.. une quiche

[zandru]

Si ça marche