Discussion :

[Thomas1434]

Hello !

Rien à faire, le VLookup en VBA n'est vraiment pas ma ma tasse de thé.

Après avoir essayé plus de 20 variantes, je me tourne vers votre science Une idée de ce qui empêche le code ci-dessous de fonctionner (exemple simplifié) ?

Code :

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

1
2
3
4
5
6
7
Sub VLookup_Macro()
Dim arrayF As Range
Sheets("A").Activate
Set arrayF = Range("A1:B10")
Sheets("B").Activate
Cells(1, 2) = Application.WorksheetFunction.VLookup(Cells(1, 1).Value, Sheets("A").Range("arrayF"), 2, False)
End Sub

Voici l'erreur que j'obtiens : application-defined or object defined error.

Des idées ?

Merci d'avance.

[gFZT82]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub VLookup_Macro()
Dim ArrayF As Range
    Set ArrayF = Sheets("A").Range("A1:B10")
    With Sheets("B")
        .Cells(1, 2) = Application.WorksheetFunction.VLookup(.Cells(1, 1).Value, ArrayF, 2, False)
    End With
End Sub

Cordialement.

[jfontaine]

Bonjour,

Si tu place ta variable ArrayF entre Quote tu ne fais plus référence à la variable mais à la plage nommée ArrayF

Essais comme cela (pas testé)

Code :

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

1
2
3
4
5
Dim arrayF As Range
 
Set arrayF = Sheets("A").Range("A1:B10")
 
Sheets("B").Cells(1, 2).Value = Application.WorksheetFunction.VLookup(Cells(1, 1).Value, arrayF, 2, False)

EDIT : so good gFZT82