XL 2016 RechercheV sous VBA

[Blaster]

Bonjour à tous,

Je rencontre une petite difficulté en essayant d'utiliser la fonction rechercheV sous VBA, le debugger me retour
une incompatibilité de Type. Je vous ai joint un fichier test , Merci à ceux qui pourraient m'aiguiller sur la bonne voie.

Sub Macro1()
Dim X, Formule  As Variant
Dim TEST As String

TEST = "PIERRE"

Formule = "=+VLOOKUP(TEST,TABLE_SERVICE,2,FALSE)"
 
X = Evaluate(Formule)

MsgBox (X)
 
End Sub

Bien cordialement,

 

[fanfan38]

Bonjour et bienvenu sur le forum
il manque le plus important... l'userform...
A+ François

 

[Dranreb]

Bonjour.
Vous ne pouvez pas utliser une variabe VBA en tant que nom Excel. Avec sa valeur entre apostrophes doublées ça marche, ceci affiche "COMMERCE":

Dim TEST As String
TEST = "PIERRE"
MsgBox Evaluate("VLOOKUP(""" & TEST & """,TABLE_SERVICE,2,FALSE)")

 

[Blaster]

@fanfan38, @Dranreb merci infiniment pour cette subtilité qui m'avait échappé
cela fonctionne désormais très bien.

Au plaisir de nos prochains échanges sur le forum.