Microsoft 365 besoin d'aide pour listbox excel vba 365

[sylviecro]

Bonjour,

Très débutante en vba, j'ai cherché sur le forum, mais je ne trouve pas ce que je cherche. Tout est beaucoup plus compliqué que ce que je désire.

Voilà mon problème : j'ai un listeBox sur USF (relié à une liste à Rowsource sur une autre feuille). J'aimerais juste que l'on puisse cliquer sur un premier choix de cette listeBox et que le choix se s'écrive dans une feuille à une cellule ex ; a1. Et qu'on puisse aussi faire un 2e et 3e choix et que ça s'écrive à la suite du 1er.

Je me demande juste si j'ai vraiment besoin d'une listebox ou si un comboBox peut faire l'affaire! De toute façon l'un ou l'autre je sais pas comment faire le code.

Merci de votre aide.

Sylvie

 

[fanfan38]

Bonjour et meilleurs vœux...
Un fichier exemple est TOUJOURS le bienvenu...
Ci joint ma réponse...
A+ François

 

[BOISGONTIER]

Bonjour,

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Set Rng = f.Range("F2:F" & f.[F65000].End(xlUp).Row)
  Me.ListBox1.List = Rng.Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub ListBox1_Change()
  temp = ""
  For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then temp = temp & Me.ListBox1.List(i)
  Next i
  f.[a1] = temp
End Sub

Boisgontier

 

[sylviecro]

Bonjour et meilleurs vœux...
Un fichier exemple est TOUJOURS le bienvenu...
Ci joint ma réponse...
A+ François

Merci c'est ce que je recherchais 🙂

 

[sylviecro]

Bonjour,

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Set Rng = f.Range("F2:F" & f.[F65000].End(xlUp).Row)
  Me.ListBox1.List = Rng.Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub ListBox1_Change()
  temp = ""
  For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then temp = temp & Me.ListBox1.List(i)
  Next i
  f.[a1] = temp
End Sub

Boisgontier

Merci beaucoup de votre réponse