Discussion :

[Vishnou]

Bonjour,

J'ai deux fichiers excel. J'aimerais comparer la colonne A du fichier 1 et la colonne K du fichier A2. On compare fichier 1 au fichier 2, c'est-à-dire que si l'on trouve un nom de la colonne A du fichier 1 dans la colonne K du fichier 2 j'aimerais que dans le fichier 1 colonne J, cela renvoi le résultats "Déjà Existant".

Merci pour votre aide

[rjamin]

Bonsoir,

J'ai beau regarder dans excel je na vois pas de colonne A3 ou K11.
Je vois une colonne A ou K mais si on précise A3 ou K11 il ne peut plus s'agir de colonne mais bien de cellule et ce n'est pas la même chose.

Alors il faut absolument revoir la présentation de votre problème à moins qu'un devin ne soit de passage. J'ai juste compris qu'il s'agit de trouver des doublons dans deux feuilles/fichiers? différents

Bon courage.

[Vishnou]

Bonsoir,

J'ai beau regarder dans excel je na vois pas de colonne A3 ou K11.
Je vois une colonne A ou K mais si on précise A3 ou K11 il ne peut plus s'agir de colonne mais bien de cellule et ce n'est pas la même chose.

Alors il faut absolument revoir la présentation de votre problème à moins qu'un devin ne soit de passage. J'ai juste compris qu'il s'agit de trouver des doublons dans deux feuilles/fichiers? différents

Bon courage.

Oui je m'en excuse c'est bien les colonnes A et K.
Et tu as bien saisi le problème, je veux savoir s'il existe des doublons entre la colonne A du fichier 1 et la colonne K du fichier 2. Le résultats doit être renvoyé dans la colonne J du fichier 1.

[casefayere]

Bonsoir,

si tu cherches bien dans deux fichiers ouverts, ci-dessous une solution en vba, à adapter

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
20
21
Sub test()
Dim dl1 As Integer, dl2 As Integer, cel1 As Range, cel2 As Range, dj As Integer
Dim wsf1 As Range, wsf2 As Range
With Workbooks("essai1.xlsm").Sheets("feuil1")
   dl1 = .Range("a" & .Rows.Count).End(xlUp).Row
   Set wsf1 = .Range("a2:a" & dl1)
End With
With Workbooks("essai2.xlsm").Sheets("feuil1")
   dl2 = .Range("k" & .Rows.Count).End(xlUp).Row
   Set wsf2 = .Range("k2:k" & dl2)
End With
dj = 2
   For Each cel1 In wsf1
      For Each cel2 In wsf2
         If cel2 = cel1 Then
            Workbooks("essai1.xlsm").Sheets("feuil1").Range("j" & dj) = cel2
            dj = dj + 1
         End If
      Next cel2
   Next cel1
End Sub