utilisation de la fonction "find"

Version imprimable

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:

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.
@+

08/07/2015, 13h48
Marc-L

Bonjour,

conformément aux règles de ce forum, merci de poster le code entre balises via l'icône dédiée # !

Mauvaise utilisation de la méthode Find en cas de non correspondance, voir déjà son exemple dans l'aide VBA …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Bonjour,

Essaie (non testé) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
     Dim ShInfo As Worksheet, ShResult As Worksheet, C As Range, Plage As Range, X As Range
     Set ShInfo = Workbooks("info.xlsx").Sheets(1)
     Set ShResult = Workbooks("result.xlsx").Sheets(1)
     With ShResult
        Set Plage = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
     End With
     With ShInfo
        For Each C In .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
            For Each X In Plage
                If C.Value = X.Value And C.Offset(, 1).Value = X.Offset(, 1).Value Then
                    C.Offset(, 2).Value = X.Offset(, 2).Value
                    C.Offset(, 3).Value = X.Offset(, 3).Value
                    Exit For
                End If
            Next X
        Next C
     End With
End Sub

Bonjour,

Ce n'est pas :

Code:

1
2
3
4
5
6
 
If x = 0 Then
    f = f + 1
    Else
    Range("C" & f) = Workbooks(result.xlsx).Worksheets("feuil1").Columns("C" & f)
End If

mais :

Code:

1
2
3
4
5
6
 
If x Is Nothing Then
    f = f + 1
Else
    Range("C" & f) = Workbooks(result.xlsx).Worksheets("feuil1").Columns("C" & f)
End If

Hervé.

08/07/2015, 14h41
Marc-L

Ne manque-t-il point les guillemets dans le nom du classeur ?! 8-)
08/07/2015, 16h18
Theze

Bien vu Marc ! ;)

Hervé.
09/07/2015, 11h26
vwtroudy

2 pièce(s) jointe(s)

j'ajoute les deux fichier pour être plus précis

Bonjour,

Je mets en ligne 2 fichiers pour être plus précis, notez que je ne peux pas anticiper le nombre de lignes renseignées, ça reste un exemple.

Dans le fichier info.xlsx j'ai mis en rouge le résultat attendu après recherche (il faut exactement que l'association A&B soit trouvée)

pour rappel: je recherche l'association de chaque ligne des colonnes A & B du fichier "info" dans les colonnes A&B du fichier "résult", si je les trouve je copie/colle les info C & D de la ligne correspondante dans le fichier "info", sinon j'inscris "données non trouvées"

encore merci pour votre aide

Pièce jointe 182674 Pièce jointe 182675
09/07/2015, 11h34
Marc-L

Si le nombre de lignes n'est pas énorme,
pourquoi alors te perdre dans un code alors qu'une simple formule de calculs ferait l'affaire ?!

1 pièce(s) jointe(s)

Bonjour,

J'ai mis la macro dans le classeur info que j'ai donc enregistré sous info.xlsm :

PJ : Pièce jointe 182683

La macro est la suivante (j'ai seulement changé le nom du classeur) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
     Dim ShInfo As Worksheet, ShResult As Worksheet, C As Range, Plage As Range, X As Range
     Set ShInfo = Workbooks("info.xlsm").Sheets(1)
     Set ShResult = Workbooks("result.xlsx").Sheets(1)
     With ShResult
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
     End With
     With ShInfo
        For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
            For Each X In Plage
                If C.Value = X.Value And C.Offset(, 1).Value = X.Offset(, 1).Value Then
                    C.Offset(, 2).Value = X.Offset(, 2).Value
                    C.Offset(, 3).Value = X.Offset(, 3).Value
                    Exit For
                End If
            Next X
        Next C
     End With
End Sub