Listbox multiselect

[avidan]

Bonjour,

Je suis débutant en VBA et j'ai besoin de votre aide.

J'ai créé un USF avec plusieur textbox, combobox à remplir pour un tableau situé sur excel.

Tout marche à merveille!
Les listes pour les combobox sont sur la feuil2 et qd on selection une ligne elle va directement ou je lui ai demandé d'aller sur le tableau excel.

J'essaye de faire la meme chose avec une listbox pour laisser à l'utilisateur la possibilité de faire plusieur choix, le problème c'est que les données choisies ne se copies pas sur mon tableau excel, la case reste blanche!
J'aurais voulu que les termes selectionné (par ex: A B C D) soit répercuté ainsi dans la cellule: (A, B, C, D).

Quelqu'un peut il 'aider?

 

[Robert]

Re : Listbox multiselect

Bonsoir Avidan, bonsoir le forum,

Bienvenu parmi nous.

Sans un fichier ça va être difficile de t'aider. Si ton fichier original est trop lourd il faut que tu crées un fichier exemple basé sur l'original (même structure, mêmes codes) où tu ne mets que quelques données nécessaires et les codes qui posent problème.

 

[jp14]

Re : Listbox multiselect

Bonsoir

Sur ce fil un exemple de listbox avec une sélection multiple.
Il faut prendre les derniers post.

https://www.excel-downloads.com/thr...es-au-format-date-dd-mm-yy-a-modifier.131029/

JP

 

[avidan]

Re : Listbox multiselect

Bonjour Robert, bonjour à tous

Voici un fichier exemple..

Je voudrais qu'en sélectionnant les 2 ou 3 lettres elles se retranscrivent (quand je clique sur valider) dans la cellule A1 de la Feuil1 séparées par une virgule (exemple: B, D, F)

Merci pour votre aide!!

 

[avidan]

Re : Listbox multiselect

Bonjour Robert, bonjour à tous

Voici un fichier exemple..

Je voudrais qu'en sélectionnant les 2 ou 3 lettres elles se retranscrivent (quand je clique sur valider) dans la cellule A1 de la Feuil1 séparées par une virgule (exemple: B, D, F)

Merci pour votre aide!!

Rebonsoir,

J'ai trouvé cela, ça marche, mais je n'arrive pas à mettre la virgule:

Private Sub CommandButton1_Click()
Dim Chaine As String
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                      Chaine = Chaine & " " & ListBox1.List(i)
                      
            End If
      Next i
      Range("D2").Value = Trim(Chaine)
End Sub

Si à la place de l'espace je met une virgule j'aurais quelque chose de ce genre: , A, D, C
Il me place une virgule également devant la premiere lettre!

Merci pour votre aide...

 

[MJ13]

Re : Listbox multiselect

Bonjour Avidan, Robert, JP

A tester

Chaine = Chaine & ListBox1.List(i) & ", "

Pour le dernier, ne pas mettre de ,

 

[jp14]

Re : Listbox multiselect

Bonjour avidan, MJ13

Une autre solution

If len(Chaine) = 0 then  
ListBox1.List(i)
else 
", " & ListBox1.List(i)
End if

JP

 

[MJ13]

Re : Listbox multiselect

Re à tous

En effet JP, cela à l'air simple🙂.

Sinon, j'avais fait un fichier avec l'aide d'Excel (quand je faisais de la Formule 1🙄) que voici.

Je l'ai adapté pour envoyer sur la feuille des données séparées par une virgule.

Ensuite c'est facilement adaptable à de nombreux cas de figures.

 

[avidan]

Re : Listbox multiselect

Merci à tous!

Ca marche nikel!