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.
Test.xlsx
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.
Test.xlsx
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é.
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
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.
Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.
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:ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part =G9 & ", " & G13 & ", " & G17cochez le retour à la ligne automatique pour cette solution
Code : Sélectionner tout - Visualiser dans une fenêtre à part =G9 & CAR(10) & G13 & CAR(10) & G17
Cdlt
Bonsoir,
Boisgontier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
Bonjour,
La solution adoptée
Boisgontier
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager