Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    novembre 2013
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : novembre 2013
    Messages : 35
    Points : 11
    Points
    11

    Par défaut 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.

    Test.xlsx

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    avril 2016
    Messages
    7 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : avril 2016
    Messages : 7 501
    Points : 13 040
    Points
    13 040

    Par défaut

    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" ...
    Les raisons réelles de délaissements ne sont pas toujours celles que l'on pense avoir déterminées.

  3. #3
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    13 270
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2007
    Messages : 13 270
    Points : 27 188
    Points
    27 188

    Par défaut

    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.

  4. #4
    Membre chevronné
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    juillet 2016
    Messages
    1 077
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : juillet 2016
    Messages : 1 077
    Points : 1 922
    Points
    1 922

    Par défaut

    Bonjour,

    Pour ceux qui n'ouvre pas les fichiers joints, en voici le contenu
    Nom : Capture.JPG
Affichages : 31
Taille : 42,8 Ko
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    =G9 & ", " & G13 & ", " & G17
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =G9 & CAR(10) & G13 & CAR(10) & G17
    cochez le retour à la ligne automatique pour cette solution

    Cdlt

  5. #5
    Membre chevronné
    Homme Profil pro
    Inscrit en
    septembre 2013
    Messages
    1 155
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : septembre 2013
    Messages : 1 155
    Points : 2 012
    Points
    2 012

    Par défaut

    Bonsoir,

    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
    Boisgontier
    Fichiers attachés Fichiers attachés

  6. #6
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    avril 2016
    Messages
    7 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : avril 2016
    Messages : 7 501
    Points : 13 040
    Points
    13 040

    Par défaut

    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" ...
    Les raisons réelles de délaissements ne sont pas toujours celles que l'on pense avoir déterminées.

  7. #7
    Membre chevronné
    Homme Profil pro
    Inscrit en
    septembre 2013
    Messages
    1 155
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : septembre 2013
    Messages : 1 155
    Points : 2 012
    Points
    2 012

    Par défaut

    Bonjour,

    La solution adoptée

    Nom : Sans titre.png
Affichages : 21
Taille : 12,8 Ko

    Boisgontier

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. choix multiples dans une liste déroulante
    Par luffy2mars dans le forum Servlets/JSP
    Réponses: 5
    Dernier message: 14/01/2009, 16h34
  2. Réponses: 0
    Dernier message: 24/10/2007, 20h29
  3. Récupération choix dans liste déroulante
    Par SAMTHEDOG dans le forum VBA Word
    Réponses: 1
    Dernier message: 13/07/2007, 13h44
  4. Nouveau choix dans liste déroulante
    Par leskev dans le forum IHM
    Réponses: 4
    Dernier message: 06/04/2007, 14h45
  5. Réponses: 2
    Dernier message: 25/11/2005, 12h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo