Comparer deux colonnes Excel avec VBA

Version imprimable

Bonjour,

mon probleme aujourd'hui c'est de comparer deux colonnes Excel

Si cell(colonneA)=cell(ColonneB) alors on prends les 3 cell(droite(colonneB)) et on colle la valeur dans les 3 cell(droite(ColonneA))
j'ai ecris ce code mais bon il me tourne pas bien
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Do While Worksheets("feuil2").Cells(A, 1).Value <> "" initial = Worksheets("feuil2").Cells(A, 1).Value Do While Worksheets("feuil3").Cells(b, 8).Value <> "" Second = Worksheets("feuil3").Cells(b, 8).Value If Second = initial Then Worksheets("feuil2").Cells(A, 13).Value = Worksheets("feuil3").Cells(b, 9).Value End If b = b + 1 Loop A = A + 1 Loop
si vous pouvez m'aider n'hésitez surtout pas

Merci

En espérant avoir compris ce que tu souhaites, je te propose ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub compare()
Dim cell_testA As Range
Dim cell_testB As Range
 
With Worksheets("Feuil2")
    Set cell_testA = .Range("A1")
    Set cell_testB = Worksheets("Feuil3").Range("B1")
    For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        For j = 0 To Worksheets("Feuil3").Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row - 1
            If cell_testA.Offset(i, 0) = cell_testB.Offset(j, 0) Then
                For k = 1 To 3
                    cell_testA.Offset(i, k) = cell_testB.Offset(j, k)
                Next k
            End If
        Next j
    Next i
End With
 
End Sub

Tiens moi au courant ! :ccool:

07/02/2013, 12h16
sambrook

:ccool:Bonjour,

Merci bcp pour ta reponse, meme si j'ai pas pu l'integrer dans mon code

je te reexcplique mon probleme

j'ai une feuille 2 avec colonne code
j'ai une feuille 3 avec colonne code , prix lieux et nature

ce que je veux faire
1) comparer les codes de la feuille 2 avec les codes de la feuille 3
2) Si le code de la feuille 2 est egale au code de la feuille 3 alors
on copie les cellule correspendante ( c'adire prix, lieux et nature ) devant le code de la feuille 2

en bref c'est une comparaison avec comme clé primaire le code si il match on copie les carecteristiques

j'espere que j'etais bien claire

Merci bcp

c'est tres gentil:ccool::ccool::ccool::ccool:
07/02/2013, 12h23
Kimy_Ire

Le code que j'ai fait est pour remplacer le tien ! ^^

Bref, ce que j'ai fait compare la colonne A de ta feuil2 et la colonne B de ta feuil3. Si il trouve un correspondance, il place dans la feuil2 les trois colonnes de droite de la colonne B de la feuil3.

Je crois que c'est ce que tu veux ! ^^

J'aurais fait un truc du genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 for i=1 to worksheet("feuil2").cells(1,1).end(xldown).row 'derniere cellule renseignée de la colonne, nécessite que toutes les cellules soient remplies for j=1 to worksheet("feuil3").cells(1,1).end(xldown).row if worksheet("feuil2").cells(i,1)=worksheet("feuil3").cells(j,1) then worksheet("feuil2").cells(i,2)=worksheet("feuil3").cells(j,2) end if next next
bien sur il y a des contraintes:
dans les 2 feuilles, il y a une liste ininterrompue de valeur

Si ce n'est pas le cas on peut utiliser

Code:

Cells(35000,1).end(xlup).row

dernière cellule renseignée de la colonne 1

07/02/2013, 14h41
sambrook

Merci bcp pour vos réponses

ça marche parfaitement

:ccool::ccool::ccool::ccool::ccool:

thx a lot