Choix multiple dans liste déroulante

Version imprimable

16/04/2019, 08h14
noelgigi

1 pièce(s) jointe(s)

Choix multiple dans liste déroulante

Bonjour à tous,

j’aimerai dans une même cellule ajouter plusieurs noms sélectionnés à partir d'une liste déroulante, est-ce possible:

Voir mon fichier que j'ai "forcé" pour l'explication.

D'avance merci ,

Bonne journée,

N.

Pièce jointe 467075
16/04/2019, 08h21
unparia

Bonjour

Je n'ai pas ouvert ton classeur (voir ce que ddit ma signature en ce qui concerne cet aspect)
Tu ne précises pas si ta "liste déroulante" est un activex ou un contrôle formulaire.
Dans un cas comme dans l'autre : montre ici le code que tu as tenté.
16/04/2019, 08h30
Menhir

Sans code VBA, ce n'est pas possible.
Il faut mettre une liste déroulante dans plusieurs cellules et avoir une cellule de synthèse qui fasse la concaténation des autres.
16/04/2019, 09h21
ARTURO83

Bonjour,

Pour ceux qui n'ouvre pas les fichiers joints, en voici le contenu
Pièce jointe 467097
En G9,G13 et G17, ce sont des validations de données créées avec la liste de J9:J11

Si c'est pour mettre le résultat des 3 validations de données dans une seule cellule, il suffit d'écrire dans la cellule de destination:

Code:

=G9 & ", " & G13 & ", " & G17

ou

Code:

=G9 & CAR(10) & G13 & CAR(10) & G17

cochez le retour à la ligne automatique pour cette solution

Cdlt

1 pièce(s) jointe(s)

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("G9,G13,G17"), Target) Is Nothing And Target.Count = 1 Then
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox1.List = Range("J9:J11").Value
    a = Split(Target, " ")
    If UBound(a) >= 0 Then
      For i = 0 To Me.ListBox1.ListCount - 1
        If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
      Next i
    End If
    Me.ListBox1.Height = 50
    Me.ListBox1.Width = 100
    Me.ListBox1.Top = Target.Top
    Me.ListBox1.Left = Target.Left + Target.Width
    Me.ListBox1.Visible = True
  Else
      Me.ListBox1.Visible = False
  End If
End Sub
 
Private Sub ListBox1_Change()
 For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
 Next i
 ActiveCell = Trim(temp)
End Sub

Boisgontier

16/04/2019, 22h10
unparia

Bonjour boisgontierjacques

L'examen que je fais de l'image montrée par ARTURO83 (dont je suppose qu'il a ouvert le classeur joint) donne à penser que la "liste déroulante" utilisée n'est pas une listebox.
17/04/2019, 08h22
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

La solution adoptée

Pièce jointe 467562

Boisgontier