Valeur de la cellule dans une Combobox

[François]

Bonjour le forum,

J'ai un Userform dans lequel j'ai 2 ListBox. J'aimerais que dans ceux-ci apparaisse la valeur de 2 cellules. J'ai essayé cela :

Private Sub CmdValider_Click()
Dim L As Integer

Me.LB1.RowSource = Worksheets('Inventaire').Range('h65536').End(xlUp).Offset(0, 0).Address
Me.LB2.RowSource = Worksheets('Inventaire').Range('k65536').End(xlUp).Offset(0, 0).Address

mavar = TextBox1.Value + TextBox2.Value + TextBox3.Value

TextBox1:
If TextBox1.Value = '' Then
...
mais sans succès.

Quelqu'un aurait la réponse.

Merci

 

[bebere]

bonsoir François


Private Sub CmdValider_Click()
Dim L As Integer
pour une donnée pas besoin de list box
argument string pour rowsource
Me.LB1.RowSource ='Feuil1!A1'
Me.LB1.AddItem sheets('Feuil1').range('A1').value

mavar = TextBox1.Value + TextBox2.Value + TextBox3.Value
il y a de nombreux exemples sur ce forum
à bientôt

 

[François]

Bonsoir Bebere, le forum,

Merci pour l'info, je cherche la solution. Si je ne trouve pas alors ...

Merci