Comment faire la liaison entre deux listes déroulantes en vba
ailyes
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je cherche le code en vba sur excel qui indique la relation entre deux listes déroulantes dépendantes (par exemple lorsque je sélectionne le nom d'un ouvrier, il apparaît automatiquement son code dans la deuxième liste sur userform . merci
je cherche le code en vba sur excel qui indique la relation entre deux listes déroulantes dépendantes (par exemple lorsque je sélectionne le nom d'un ouvrier, il apparaît automatiquement son code dans la deuxième liste sur userform . merci
A voir également:
- Comment faire la liaison entre deux listes déroulantes en vba
- Comment faire une liste déroulante sur excel - Guide
- Comment faire deux colonnes sur word - Guide
- Liste déroulante en cascade - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
2 réponses
Bonjour
Si je comprends bien il n'y a en fait qu'une liste déroulante, la 1ere ou est choisi le nom, le 2nd doit être un Textbox dans lequel s'inscrit le code correspondant au nom
Dans ce cas code à mettre dans le Combobox (par exemple si la liste des noms et codes se trouve en plage A2:B6 de Feuil1) :
Private Sub ComboBox1_Change()
a = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("Feuil1").Range("A2:B6"), 2, False) 'fait une recherchev dans la plage des données
UserForm1.TextBox1.Value = a 'affiche la valeur trouvée dans le textbox
End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Si je comprends bien il n'y a en fait qu'une liste déroulante, la 1ere ou est choisi le nom, le 2nd doit être un Textbox dans lequel s'inscrit le code correspondant au nom
Dans ce cas code à mettre dans le Combobox (par exemple si la liste des noms et codes se trouve en plage A2:B6 de Feuil1) :
Private Sub ComboBox1_Change()
a = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("Feuil1").Range("A2:B6"), 2, False) 'fait une recherchev dans la plage des données
UserForm1.TextBox1.Value = a 'affiche la valeur trouvée dans le textbox
End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein