Bonjour,

Je suis un peu débutant et j'ai des difficultés dans l'utilisation de la commande Find

je détaille:
J'ai 2 fichiers info.xlsx et result.xlsx et je souhaite comparer l'association de deux cellules provenant de deux colonnes (A & B) (sur la même ligne) du fichier info.xlsx par rapport au colonne A & B du fichier result.xlsx.
Si l'association existe inscrire les infos de la colonne C & D de la ligne trouvée du fichier "result" vers le fichier "info" en C & D, Sinon écrire "données non trouvées".

J'ai essayé de tater avec ça...

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
 
Sub test()
Dim cible As String
Dim f As Integer
Dim x As Long
f = 2
Do While Range("A" & f) <> ""
cible = Sheets("feuil1").Range("A" & f)
 
x = Workbooks(result.xlsx).Worksheets("feuil1").Columns("A:A").Find(cible, LookIn:=xlValues, LookAt:=xlWhole).Activate
If x = 0 Then
    f = f + 1
    Else
    Range("C" & f) = Workbooks(result.xlsx).Worksheets("feuil1").Columns("C" & f)
End If
Loop
End Sub
Mais je ne crois pas avoir la bonne approche

Merci de votre aide.
@+