XL 2016 TextBox qui affiche selon un ComboBox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2021

• #2

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

Vote positif 0 Vote négatif

Solution

Carlich

XLDnaute Junior

• 6 Janvier 2021

• #3

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!

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2021

• #4

Carlich à dit:

-La Range dans le ComboBox1_Change ? OUI
-Les Range dans UserForm_Initialize ? Pour la partie TextBox, Oui.
-Les .Cells aussi? Oui.

Cliquez pour agrandir...

Le principe sera le même quel que soit le nombre de textbox.

 

Vote positif 0 Vote négatif

Carlich

XLDnaute Junior

• 6 Janvier 2021

• #5

D'accord merci tu m'aides beaucoup ca fais des heures je m'arrache les cheveux a chercher et toi tu trouves en quelque minute ahah

 

Vote positif 0 Vote négatif