Listbox multiselect

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Novembre 2009

• #2

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.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 26 Novembre 2009

• #3

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

 

Vote positif 0 Vote négatif

A

avidan

Guest

• 27 Novembre 2009

• #4

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!!

 

Pièces jointes

• ListBox multiselect.xls

  23.5 KB · Affichages: 203

Vote positif 0 Vote négatif

A

avidan

Guest

• 27 Novembre 2009

• #5

Re : Listbox multiselect

avidan à dit:

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!!

Cliquez pour agrandir...

Rebonsoir,

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

Code:

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...

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Novembre 2009

• #6

Re : Listbox multiselect

Bonjour Avidan, Robert, JP

A tester

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

Cliquez pour agrandir...

Pour le dernier, ne pas mettre de ,

 

Dernière édition: 27 Novembre 2009

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 27 Novembre 2009

• #7

Re : Listbox multiselect

Bonjour avidan, MJ13

Une autre solution

Code:

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

JP

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Novembre 2009

• #8

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.

 

Pièces jointes

• Listbox_Multiselect_USF_Separe_Virgule_MJ.zip

  15.9 KB · Affichages: 177

Vote positif 0 Vote négatif

A

avidan

Guest

• 30 Novembre 2009

• #9

Re : Listbox multiselect

Merci à tous!

Ca marche nikel!

 

Vote positif 0 Vote négatif