Discussion :

[arthurgmusik]

Bonjour tout le monde,

J'aimerai utiliser la fonction VLookup dans une macro VBA. Je cherche à remplir la valeur de la deuxième colonne de la deuxième feuille avec la valeur de la deuxième colonne de la première feuille, si il ya correspondance entre les deux premières colonnes des deux feuilles; sinon cela remplit avec autre chose. C'est pas si compliqué que ca je vous promet aha

Voila ce que j'ai fait, mais quand je lance, cela ne marche pas et cela ne m'affiche rien.. retour sur la feuille excel.

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
Sub Chercher()
 
 
On Error GoTo Other:
 
Dim i As Long
 
For i = 1 To Range("B1000000").End(xlUp).Row
 
Sheet2.Range("B" & i).Value = WorksheetFunction.VLookup(Sheet2.Range("A1").Value, Sheet1.Range("A:B"), 2, False)
 
Next
 
Exit Sub
 
Other:
Sheet2.Range("B" & i).Value = "NOT FOUND"
Resume Next
 
End Sub

Si vous avez une idée cela m'aiderait beaucoup..
Merci!

[Transitoire]

Bonsoir,
Je connais mal VLookUp, mais je vous propose un truc qui marche chez moi.
J'espère avoir bien compris vos souhaits

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
Sub Chercher()
Dim i As Long
 On Error GoTo Other:
 
For i = 1 To Range("B1000000").End(xlUp).Row
        If Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("A" & i).Value Then
                Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Range("B" & i).Value
        Else
        End If
Next
 
Exit Sub
 
Other:
Sheet2.Range("B" & i).Value = "NOT FOUND"
Resume Next
 
End Sub

Par contre, votre dossier .XLSX n'accepte pas les macros, il faut le transformer en =.XLSM
Cordialement

[RastaBomboclat]

Salut,

Essaies avec le code ci-desssous. Je l'ai tester avec ton fichier et il marche très bien.

J'ai joint ton fichier. Et heureusement pour toi que les Administrateur ne t'ont pas vue. En effet il est interdit de joindre un fichier au premier message. On ne joint de fichier qu'en cas "extreme" ou sur demande d'un autre membre susceptible d'aider.

Merci de mettre un si ma contribution a servi. On le trouve juste en bas au coin droit
Et s'il n'y a plus de question ne pas oublier de cliquer sur en bas à gauche

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
22
23
24
25
26
27
Sub MonVlookupQuiFonctionneFinalement()
Dim rng As Range
Dim i As Long
 
Application.ScreenUpdating = False
 
Worksheets("Sheet2").Activate
Range("A1").Activate
 
With Worksheets("Sheet2").Cells
Set rng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
 
    For i = 1 To rng.Rows.Count
 
        rng.Cells(i, 2) = Application.VLookup(.Cells(i, 1), Sheets("Sheet1").Range("A:B"), 2, False)
        If IsError(rng.Cells(i, 2)) Then
           If rng.Cells(i, 2) = CVErr(xlErrNA) Then ' Pour changer le "#NA" en to "Doublon ou Pas trouvé" le cas échéant.
             rng.Cells(i, 2) = "Doublon ou Pas trouvé"
           End If
        End If
    Next
End With
 
Set rng = Nothing
Application.ScreenUpdating = True
 
End Sub

[arthurgmusik]

Merci beaucoup pour vos réponses !!

RastaBomboclat ta solution marche parfaitement
Transitoire merci pour l'astuce je ne savais pas

Bonne semaine à vous