Discussion :

[Pierre67]

Bonjour à tout le monde

je suis en train de comparer 2 colonnes avec le bout de code suivant qui fonctionne à un ypsilon près à savoir :

je récupère bien les valeurs qui ne sont pas communes entre les 2 listes
mais c'est l'incrément colonne = colonne + 5 qui me pose problème (car s'il trouve une valeur commune on augment de 5 et me décale les données)

par exemple : pour le premier tour de recherche ok ça roule- il me met la bonne valeur dans la bonne colonne on incrémente de 5
au 2 ème tour, il y a concordance => on incrémente de 5 et passe au troisième tour, pas concondance mais données décalées

Code :

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

1
2
3
4
5
6
7
8
9
 
colonne = 9
For Each c In Sheets("CAL").Range("B40:B55")
    Set v = Range("BD4:CT4").Find(c, LookIn:=xlValues, lookat:=xlWhole)
        If v Is Nothing Then
            Cells(4, colonne) = c.Value
        End If
        colonne = colonne + 5     
Next c

si quelqu'un a un tuyau je suis preneur
merci à vous
cordialement

[Pierre67]

j'ai trouvé, il faut incrémenter avant le end if
merci