Comment faire la liaison entre deux listes déroulantes en vba
Fermé
ailyes
-
27 avril 2014 à 13:24
via55 Messages postés 14476 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 septembre 2024 - 27 avril 2014 à 14:14
via55 Messages postés 14476 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 septembre 2024 - 27 avril 2014 à 14:14
A voir également:
- Comment faire la liaison entre deux listes déroulantes en vba
- Faire une liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Deux comptes whatsapp - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
- Deux ecran pc - Guide
2 réponses
via55
Messages postés
14476
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 septembre 2024
2 729
Modifié par via55 le 27/04/2014 à 14:20
Modifié par via55 le 27/04/2014 à 14:20
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
