SOS BESOIN D'AIDE SUR UNE QUESTON BETE
Trezz
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je suis en train de travailler sur une base de données Excel. J'ai crée un méga userform avec une liste déroulante et des textbox pour mieux visualiser ma base de données.
Je souhaiterai lier ma combobox à mes textbox.
Quand je choisirai un article dans ma liste déroulante, je veux qu'apparaissent les données correspondantes de ma feuille excel dans mes TEXTBOX.
Si quelqu'un aurait une solution... en vous remerciant de votre aide, T. G
Je suis en train de travailler sur une base de données Excel. J'ai crée un méga userform avec une liste déroulante et des textbox pour mieux visualiser ma base de données.
Je souhaiterai lier ma combobox à mes textbox.
Quand je choisirai un article dans ma liste déroulante, je veux qu'apparaissent les données correspondantes de ma feuille excel dans mes TEXTBOX.
Si quelqu'un aurait une solution... en vous remerciant de votre aide, T. G
A voir également:
- SOS BESOIN D'AIDE SUR UNE QUESTON BETE
- Un pense-bête - Guide
- Télécharger pense-bête gratuit - Télécharger - Organisation
- Pense bete - Accueil - Applications & Logiciels
- Pense bête ✓ - Forum Windows
- Pense bete windows 11 - Windows 11
1 réponse
Salut,
Tu recherches, dans la bdd, la valeur de ta combobox exemple comme ceci :
ActiveSheet.Range("A1").Select
Do while ActiveCell <> Combobox1.Value
ActiveCell.Offset(1, 0).Select
Loop
Et ensuite tu donnes aux textBox la valeur recherchée par des offset :
TextBox1 = ActiveCell.Offset(0, 12).value
TextBox2 = ActiveCell.Offset(0, 13).value
TextBox3 = ActiveCell.Offset(0, 13).value
Et voilà
Tu recherches, dans la bdd, la valeur de ta combobox exemple comme ceci :
ActiveSheet.Range("A1").Select
Do while ActiveCell <> Combobox1.Value
ActiveCell.Offset(1, 0).Select
Loop
Et ensuite tu donnes aux textBox la valeur recherchée par des offset :
TextBox1 = ActiveCell.Offset(0, 12).value
TextBox2 = ActiveCell.Offset(0, 13).value
TextBox3 = ActiveCell.Offset(0, 13).value
Et voilà
