Comparaison de deux colonnes
Bonjour,
J'ai un petit soucis au niveau de la comparaison de deux colonnes de données.
Je veux comparer deux colonnes sur deux feuilles de calcul differentes, mais mon code ne fonctionne pas entierement.
Voici ce que devrais faire mon code;
Il devrait prendre la premiere valeur de la 1er colonne et la comparé à toutes les valeurs de la 2eme colonne, et une fois la condition est vraie recopier la valeur de la cellule de la 2eme colonne dans une colonne prédefinie pour cela.
Je vous affiche mon code et dite moi ce qui va pas :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Sub changement()
Dim x As Long
Dim y As Long
For x = 58 To 2000
For y = 515 To 2000
If Right(Range("E" & x), 5) = Mid(Sheets("Plaf").Range("B" & y), 7, 5) Then
ActiveSheet.Cells(x, "X") = Worksheets("Plaf").Cells(y, "B")
End If
Next y
Next x
End Sub |
Merci
