Remplir auto un texbox suite au choix du combobox

[Evelynetfrancois]

Bonsoir à tous .....
Un nouvel appel de ma part !!!!!!!

je cherche à remplir automatiquement une textbox par rapport à la saisie du combobox (ini liste nommée)sur l'USF

je joins un tit fichier pour plus de clareté si necessaire

Un grand merci d'avance pour toutes vos sujétions ,
Bonne soirée à tous ....

 

[excalibur]

Re : Remplir auto un texbox suite au choix du combobox

bonjour Evelynetfrancois le forum le code de l user

Option Explicit
Dim t As Variant
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Private Sub UserForm_Initialize()
t = Range("a1:b" & Range("a65536").End(xlUp).Row): ComboBox1.List = t
End Sub

 

[Evelynetfrancois]

Re : Remplir auto un texbox suite au choix du combobox

BONSOIR ET MERCI excalibur

J ai essayé ta soluce sur mon exemple , et ça marche trés bien
je l ai donc adapter à mon programme
et là ...plus rien !!!

la liste se trouvant sur une autre feuille,..... ai-je mal adapté ??


Option Explicit
Dim t As Variant

Private Sub UserForm_Initialize()
t = Sheets("BASE").Range("B56:C" & Sheets("BASE").Range("B100").End(xlUp).Row): ComboBox2.List = t
End Sub

Private Sub ComboBox2_Click()
TextBox5 = ComboBox2.List(ComboBox2.ListIndex, 1)
End Sub

E et F

 

[excalibur]

Re : Remplir auto un texbox suite au choix du combobox

re si je comprends bien tu veus limiter ta liste de b56 a c100 dans ce cas tu peux ecrire comme cela

Private Sub UserForm_Initialize()
t = Sheets("BASE").Range("B56:c100"): ComboBox1.List = t
End Sub

attention dans ton ex: c est combobox1 & non combobox2

 

[Evelynetfrancois]

Re : Remplir auto un texbox suite au choix du combobox

re excalibur

(attention dans ton ex: c est combobox1 & non combobox2
Dans l'exemple" light" , pour faire simple en effet..)

merci tout va super bien !! maintenant
je te remercie beaucoup pour ces explications !!!

bonne soirée
au plaisir de te lire à nouveau

E et F