liaison entre combobox et une cellule

[CHOUCHOU]

bonjour le foforum,

je voudrais qu'une donnée selectionné ds un combobox affiche une autre donnée dans un textbox.

merci d'avance.

Chouchou

 

[@+Thierry]

Bonjour ChouChou, Le "FoForum" !!

Je sous-entends que tu parles de ComboBox et TextBox dans un UserForm , vu que tu ne l'indiques pas (?)

C'est assez simple avec la méthode Row Source avec un code comme ceci dans le Private Module de UserForm:

Option Explicit

Private Sub UserForm_Initialize()
Dim Plage As String

With Sheets("Feuil1")
Plage = .Range("C6😀" & .Range("D65536").End(xlUp).Row).Address
End With

With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = "100;0"
.RowSource = "Feuil1!" & Plage
End With

End Sub

Private Sub ComboBox1_Change()
Me.TextBox1 = Me.ComboBox1.Column(1, Me.ComboBox1.ListIndex)
End Sub


Voilà pour une première approche sans plus d'information.

Bon Dimanche
@+Thierry

 

[CHOUCHOU]

hello le forum, @+thierry

Merci @+thierry pour ton code.

En effet c'est bien un combo et un textbox dans un USF.... sorry...

je rencontre quelque difficulté à me servir de ton code si je veux changer les valeurs de "range", pour que la combobox affiche mes donné et non celle de l'exemple.

j'ai un message "d'erreur 380"
"Impossible de définir la propriété Rowsource. Valeur de propriété non valide"

Plage = .Range("C6😀" & .Range("D65536").End(xlUp).Row).Address
je comprend que le début , aprés c pu trés clair.... dans mon Brain .. (lol)
C6 = le début de ma Rowsource,

Merci d'avance pour ton aide

Guillaume

 

[@+Thierry]

Bonjour Guigui, ChouChou et autre Guillaume ! Et le Forum

Bon il est absolument inutile de remettre exactement le même fichier en ligne !!! Grrrrr

Le code que je t'ai mis ci dessus convient parfaitement à ce même exemple !! Alors d'abords tu essaie de l'adapter dans cet exemple avec un Simple Copié/Collé INTEGRAL de mon code en ayant mis un UserForm contenant une Combobox1 et une TextBox1... Et là tu devrais y arriver.

Pour ton histoire de de message d'erreur il est primordial que deux choses soient respectée :

1) que la plage soit définie AVANT la ligne de code avec RowSource
2) que la "Feuil1" existe bien dans ce classeur et qu'elle contienne les données.

Bon Courage
@+Thierry

 

[guigui]

hello le forum, @+thierry,

Yep c bon ca marche, je sais pas trop ce que j'ai fait mais c bon ....

Thanks a lot ..

@+
Guillaume