Ajouter les éléments sélectionnés d'une Listbox dans une cellule

Bonjour,

Je cherche un moyen de sélectionner dans une listbox un certain nombre d'éléments que l'utilisateur désire, que ce nombre soit indiqué en temps réel dans une textbox situé dans ce même formulaire et que le tout soit ajouté à la feuille de calcul à la validation.

Voici la bête :

J'ai réussi à créer le formulaire et à ajouter mes villes dans le controlsource de la listbox.

Toutefois je ne sais pas :

• lier la listbox à la texbox pour avoir le nombre de villes sélectionnées
• avoir la liste des villes sélectionnées dans la cellule de destination à la validation (villes séparées par un '-')
• avoir le nombre de villes sélectionnées dans la cellule de destination à la validation

Je vous joins un fichier test.

Merci d'avance pour votre aide

Horusbk

Bonjour,

Private Sub CommandButton1_Click()
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) Then
        temp = temp & Me.ListBox1.List(i) & " "
        n = n + 1
     End If
  Next i
  Sheets(1).[D3] = temp
  Sheets(1).[E3] = n
End Sub

Private Sub ListBox1_Change()
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) Then
        n = n + 1
        Me.TextBox1 = n
     End If
  Next i
End Sub

Boisgontier

Bonjour Boisgontierjacques,

Merci de ton aide !

J'ai une dernière question : j'ai modifié la ligne ci-dessous pour séparer le nom des villes par un slash.

temp = temp & Me.ListBox1.List(i) & " / "

Toutefois, cela donne une liste avec un slash à la fin Nice / Strasbourg / Lille / et-il possible que la dernière ville écrite n'est pas de "/" ?

Merci d'avance

Private Sub CommandButton1_Click()
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) Then
        If temp <> "" Then temp = temp & "/" & Me.ListBox1.List(i) Else temp = Me.ListBox1.List(i)
        n = n + 1
     End If
  Next i
  Sheets(1).[D3] = temp
  Sheets(1).[E3] = n
End Sub

Private Sub ListBox1_Change()
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) Then
        n = n + 1
     End If
  Next i
  Me.TextBox1 = n
End Sub

Boisgontier

Re,

C'est parfait ! un grand merci pour ton aide

Horusbk