insertion ds textbox suite a info dans combox

S

Sylvain

Guest
Salut à tous
Je suis a la recherche d'un code afin de faire la chose suivante:
Apres une selection d'un mot dans un combobox, je veux que la valeur d'un cellule 'x' soit insérer dans un textbox mais le textbox et le combobox sont dans le meme userform.
Bien cette action doit se realiser avant le fermeture du userform.
Par avance merci
@+
 
P

PP

Guest
Bonsoir Sylvain, bonsoir à tous,

si j'ai bien compris ta question,

Aprés avoir crée UserForm1 contenant TextBox1 et ComboBox1,
tu peux placer des données par exemple dans la zone A1:B15 de la feuille 1
Le code à inscrire dans UserForm1 est le suivant:

Private Sub TextBox1_Enter()
TextBox1.Value = Sheets(1).Range('A1').Offset(ComboBox1.ListIndex, 1).Value
End Sub

Private Sub UserForm_Initialize()
Sheets(1).Range('A1:A15').Select
For Each c In Selection
ComboBox1.AddItem c.Value
Next c
End Sub

Voilà
Bonne soirée à tous
:eek:
 

Discussions similaires

Statistiques des forums

Discussions
312 488
Messages
2 088 843
Membres
103 972
dernier inscrit
steeter