Associer la fonction Vlookup à une variable
Bonjour la communauté
Mon sujet qui est le suivant:
Je récupère d'une TextBox une séquence de codes 3 digits séparés par un "/" (ex "011/015/057/124") - Chaque code correspond à un numéro de club
Une table recense l'ensemble des clubs en France; elle liste en colonne "A" le code des club et en colonne "D" le nom du Président du club correspondant
Je souhaiterais extraire le nom du Président pour chacun des codes de ma séquence. J'ai tenté d'utiliser la fonction Vlookup mais cela ne fonctionne pas. Une erreur 424 est détectée en ligne 15.
Quelqu'un parmi vous aurait-il une idée pour résoudre ce problème ?
Merci beaucoup pour le temps que vous aurez mis à lire ce message et y répondre :hola:
Slts
Si
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Sub Président()
Dim MonDestinataire As Variant
Dim Code As Variant
Dim arr As Variant
Dim MultiAL As Variant
Dim CodeDpmt As Variant
MultiAL = "011/015/057/124" ' Séquence en dur pour le test, sinon MultiAL = ...TextBox.value
arr = Split(MultiAL, "/")
For Each Code In arr
MonDestinataire.FormulaR1C1 = "=VLOOKUP(Code,R1C1:R200C4,4,FALSE)"
MsgBox MonDestinataire & " - " & Code
Next
End Sub |