Comparer deux colonnes Excel avec VBA

**sambrook** · 07/02/2013, 11h35

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 :

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

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

**Kimy_Ire** · 07/02/2013, 12h15

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

Code :

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

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 !

**sambrook** · 07/02/2013, 13h16

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

**Kimy_Ire** · 07/02/2013, 13h23

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 ! ^^

**COCONUT2** · 07/02/2013, 13h27

J'aurais fait un truc du genre:

Code :

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

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