Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 TextBox qui affiche selon un ComboBox

Carlich

XLDnaute Junior
Bonjour,

Dans le cadre de mon boulot j'essaye de réaliser un UserForm qui afficherait un temps que je désire mais je n'arrive pas a faire en sorte que quand on sélectionne une donnée dans le ComboBox ca l'affiche dans mon TextBox

Je vous joint le fichier si vous en avez besoin,
Merci a ceux qui prendront leur temps pour m'aider

Cordialement
 

Pièces jointes

  • UserForm.xlsm
    17.3 KB · Affichages: 18
Solution
Bonjour Carlich,
En PJ un essai. J'ai rectifié quelques erreurs dans le module UserForm_Initialize et j'ai rajouté le module :
VB:
Private Sub ComboBox1_Change()
    N = Application.Match(UserForm1.ComboBox1.Value, Sheets("Sheet1").Range("A:A"), 0)
    Valeur = Sheets("Sheet1").Cells(N, "B")
    UserForm1.TextBox1 = Valeur
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Carlich,
En PJ un essai. J'ai rectifié quelques erreurs dans le module UserForm_Initialize et j'ai rajouté le module :
VB:
Private Sub ComboBox1_Change()
    N = Application.Match(UserForm1.ComboBox1.Value, Sheets("Sheet1").Range("A:A"), 0)
    Valeur = Sheets("Sheet1").Cells(N, "B")
    UserForm1.TextBox1 = Valeur
End Sub
 

Pièces jointes

  • UserForm2.xlsm
    16.6 KB · Affichages: 8

Carlich

XLDnaute Junior
Bonjour sylvanu,

Super merci ca marche niquel du coup si je voudrais refaire cette manip avec d'autre TextBox et ComboBox j'aurais juste a changer:

-La Range dans le ComboBox1_Change ?
-Les Range dans UserForm_Initialize ?
-Les .Cells aussi?

Merci de ta réponse rapide et de la solution!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…