Fonction RECHERCHEV dans UserForm
Bonjour à tous,
j'aimerais créer un UserForm avec une liste déroulante (ComboBox1) et 2 zone de text (TextBox1 et 2)
Il faudrait que les valeurs de ces TextBox dépendent de la valeur du ComboxBox1, à l'aide du fonction VLOOKUP qui cherche ds une base de données.
J'avais fait ça sur une feuille de calcul, cela fonctionnait, mais je n'arrive pas à l'appliquer à l'userform. Cela donnait quelquechose comme ça :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Application.Calculation = xlManual
Range("C7").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C3,TABLEAU,2,0)"
Range("C8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C3,TABLEAU,3,0)"
Application.Calculation = xlAutomatic
Range("H5").Select
End If
End Sub |
Le problème c'est que maintenant je ne me réfère plus à des cellules de la feuille, mais au combobox, et je n'arrive pas à l'ecrire efficacement.
Merci d'avance pour votre aide !
