OVH Cloud OVH Cloud

user form et rechercheV

1 réponse
Avatar
denis le breton
Bonjour,
le contexte : dans un user form, il y a un textbox, la saisie d'un valeur
doit récuperer dans un fichier excel une série de valeur, exemple
je saisi le numéro d'immatriculation de la voiture et je récupère la marque,
le modèle, le nom du propriétaire
dans le VBA j'avais réglé le pb autrfois par un truc du genre

' formule de recherche
recherche = "" & "=VLOOKUP(RC[-1],[" & fic & "]" & mois &
"!R4C3:R23C4,2,FALSE)" & "" '(ou fic est le fichier et mois
et la feuille)
' lancement de la recherche
ActiveCell.FormulaR1C1 = (recherche)
' évite les #na
ActiveCell.FormulaR1C1 = "=IF(ISNA(RC[-1]),"""",RC[-1])"

1 réponse

Avatar
AV
Avec des plages nommées (Immats, Noms, ...etc...)et le fichier avec la BD
ouvert, pour récupérer le Nom du proprio en fonction de l'immatriculation saisie
dans le TextBox, ça pourrait avoir cette allure :

nomFichier = "test.xls"
x = """" & TextBox1.Text & """"
MsgBox Evaluate("index(" & nomFichier & "!Noms,match(" & x & "," & nomFichier &
"!Immats,0))")

AV