liste à choix multiples et récupération des valeurs

[perdinch]

Bonjour,

Aprés avois consulter le forum je ne trouve pas de solution simple pour récupérer les valeurs à partir d'une liste à choix multiple en vba ou non.

ci-joint mon fichier exemple.

MERCI

 

[tototiti2008]

Re : liste à choix multiples et récupération des valeurs

Bonjour perdinch,

sans VBA, je ne sais pas si c'est possible (je ne crois pas) mais en VBA, avec un truc comme ça (code de la feuille contenant la ListBox) :

Private Sub ListBox1_Change()
Dim Choix As String
    Choix = ""
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
        Choix = Choix & ListBox1.List(i) & ";"
        End If
    Next i
    If Len(Choix) > 0 Then Choix = Left(Choix, Len(Choix) - 1)
    Range("I24").Value = Choix
End Sub

 

[perdinch]

Re : liste à choix multiples et récupération des valeurs

Merci de votre réponse.

ça fonctionne très bien, mais est il possible d'afficher chaque choix les uns en dessous des autres? . En effet je veux par la suite m'en servir pour effectuer un filtre.

exemple

choix1
choix3
choix4

CORDIALEMENT

PERDINCH

 

[tototiti2008]

Re : liste à choix multiples et récupération des valeurs

Re,

alors peut-être comme ça :

Private Sub ListBox1_Change()
Dim Choix() As String, i As Long
    Range("I24").CurrentRegion.ClearContents
    ReDim Choix(1 To 1)
    Choix(1) = ""
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Choix(UBound(Choix)) = ListBox1.List(i)
            ReDim Preserve Choix(1 To UBound(Choix) + 1)
        End If
    Next i
    If UBound(Choix) > 1 Then ReDim Preserve Choix(1 To UBound(Choix) - 1)
    For i = 1 To UBound(Choix)
    Range("I" & 23 + i).Value = Choix(i)
    Next i
End Sub

 

[perdinch]

Re : liste à choix multiples et récupération des valeurs

OUI c'est parfait!

Merci beaucoup pour votre efficacité.

Cordialement

PERDINCH

 

[perdinch]

Re : liste à choix multiples et récupération des valeurs

bonsoir,

Dans ma listbox à choix multiple les choix vont de 1 à 15 mais je veux limiter le nombre de choix que l'utilisateur peut cocher à 5 .

MERCI DE VOTRE AIDE

PERDINCH