ListBox multisélection transférer données

[Chot51]

Bonjour,

Je voudrais savoir comment faire pour transférer les items sélectionnés dans une listBox multisélection vers une seule et meme cellule.

Merci d'avance

 

[Pierrot93]

Re : ListBox multisélection transférer données

Bonsoir Chot

essaye le code ci dessous, valable pour une listbox comportant 1 colonne :

Dim i As Byte, maval As String
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        maval = maval & ListBox1.List(i) & " "
   End If
Next i
Range("A1").Value = maval

bonne soirée
@+

 

[Chot51]

Re : ListBox multisélection transférer données

Merci Pierro ca marche.
Sais tu comment comment demander un retour à la ligne entre les item à la place d'un espace.

Merci d'avance

 

[Pierrot93]

Re : ListBox multisélection transférer données

Re

comme ci dessous :

Dim i As Byte, maval As String
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        maval = maval & ListBox1.List(i) & vbLf
   End If
Next i
Range("A1").Value = maval

@+

 

[Chot51]

Re : ListBox multisélection transférer données

merci beaucoup Pierro,

Il n'y a pas longtemps que je pratique il me manque donc qq astuces comme "& vbLf" mais je progresse grace à des gens comme toi.

A plus
Merci encore😀

 

[Taebo]

Re : ListBox multisélection transférer données

Bonjour tout le monde!

Je sais vous avez écris cela il y a longtemps et je risque de ne jamais avoir de réponse, mais j'essaie quand même!

Je comprend tout ce que tu as écris, bravo d'ailleurs, masi comme je suis novice en prog' je ne sais pas où "coller" tout ça!

Dans ListBOx_Click(), dans une nouvelle procödure que je crée ou dans un truc que je ne connais pas du tout?

Merci d'avance.

 

[Pierrot93]

Re : ListBox multisélection transférer données

BonsoirTaebo

Code plutôt à utiliser dans le module d'un USF, le placer sur l'événement "click" d'un bouton "valider" (commandbutton), en dehors donc du controle "listbox"

bonne soirée
@+

 

[Taebo]

Re : ListBox multisélection transférer données

Super ça marche!

Merci pour le détail d'utilisation