Modifier l'affichage du résultat d'un UserForm

Bonjour à tous,

J'ai trouvé sur le net, un programme, UserForm à choix multiple, or, le résultat s'affiche en ligne, les valeurs du choix sont séparées par

deux points : sur la même ligne, je souhaiterais voir le résultat s'afficher sur une colonne.

Je joins le fichier .

Merci de bien vouloir y jeter un œil, ou deux.

Amicalement

Pierrot

Bonjour,

Il te suffit de remplacer

choix & ":" & Me.ComboBox1

par

choix & vbNewLine & Me.ComboBox1

A+

Bonjour, James 007

merci pour cette réponse rapide, mais je ne vois pas ou l'insérer, je reçois un msg " Attendu expression " et la police est en rouge.

Choix multiples dans un combobox

Dim choix

Dim témoin As Boolean

Private Sub ComboBox1_Click()

p = InStr(choix, Me.ComboBox1)

If p = 0 Then '-- ajout

If choix = "" Then choix = Me.ComboBox1 Else choix = choix & ":" & Me.ComboBox1

Me.ComboBox1 = choix

Else ' suppression s'il est déjà choisi

If Not témoin Then

a = Split(choix, ":")

témoin = (UBound(a) - LBound(a) = 1)

choix = Left(choix, p - 1) & Mid(choix, p + Len(Me.ComboBox1) + 1)

If Right(choix, 1) = ":" Then choix = Left(choix, Len(choix) - 1)

Me.ComboBox1 = choix

Else

témoin = False

End If

End If

End Sub

choix & ":" & Me.ComboBox1 par

choix & vbNewLine & Me.ComboBox1

merci de continuer à m'aider.

Bonne journée

Amicalement

Pierrot

Bonjour,

Pour que cela soit totalement clair ...

Le fichier joint te permet de faire le test ...

et la modification dans le code apparait en rouge

A+

Merci énormément James,

C'est génial, je vais pouvoir adapter cette formule à des listes plus longues.

Merci et amitiés de Belgique

Pierrot

Merci pour tes remerciements ...!!!

A+

C'est normal que je te remercie,puisque tu m'as rendu service.

Amitiés

Pierrot, 75 ans