Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lier deux listes deroulantes (Résolu)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Gabriel7
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Gabriel7

Guest
Bonjour à vous,

Je cherche à pouvoir lier deux listes déroulantes entre elles mais je ne sais pas comment m'y prendre.

Voici ce que j'aimerais pouvoir faire. Dans la 1ère liste déroulante (colonne E), je peux choisir un chiffre compris entre 0 et 4.
Dans la deuxième liste (colonne G), j ai une liste de noms.

Je souhaiterais pouvoir mettre en relation les deux liste en faisant ceci :

Si je cliques sur 1 (colonne E), je souhaite pouvoir choisir un nom dans la liste colonne G
Si je clique sur 2, je souhaite pouvoir choisir 2 noms (n'importe lesquels) dans la liste colonne G et les intégrer tous les deux dans la cellule.
Si je clique sur 3, Je souhaite pouvoir choisir 3 nom dans la liste de la colonne G, et intégrer les 3 noms dans la cellule.

ETC...

Est ce que cela est possible?

Je vous envoie le fichier sur lequel je voudrais travailler.

D'avance merci de votre aide

Gabriel7
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Lier deux listes deroulantes

Bonsoir,

Voir PJ

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([G2:G100], Target) Is Nothing And Target.Count = 1 Then
     Application.EnableEvents = False
     ValSaisie = Target
     Application.Undo
     npoint = Len(Target) - Len(Replace(Target, ":", ""))
     p = InStr(Target, ValSaisie)
     If p > 0 Then
       Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
       If Right(Target, 1) = ":" Then
          Target = Left(Target, Len(Target) - 1)
       End If
     Else
       If Target = "" Then
         Target = ValSaisie
       Else
        If npoint < Cells(Target.Row, Target.Column - 2) - 1 Then
          Target = Target & ":" & ValSaisie
        End If
       End If
     End If
     Application.EnableEvents = True
   End If
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Lier deux listes deroulantes

Merci Boisgontier,

c'est exactement le code que je cherchais. Vous êtes génial. Que dire de plus... 😀

Cordialement

Gabriel7
 
Vote positif 0 Vote négatif
Re : Lier deux listes deroulantes (Résolu)

Re bonsoir,

J'ai une question complémentaire à ce programme. Je souhaiterais pouvoir appliquer ce même code a d'autres colonnes.

J ai une première série avec les colonnes E et G que vous avez résolu. Je souhaiterais pouvoir également l'appliquer sur les colonnes J et L, sur les colonnes O et Q, sur les colonnes T et V, sur les colonne Y et AA ainsi que sur les colonnes AD et AF.

Comment intégrer ces colonnes dans le code?

Encore merci et merci d'avance pour ce nouveau code

Cordialement

Gabriel7
 
Vote positif 0 Vote négatif
Re : Lier deux listes deroulantes (Résolu)

Voir PJ


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("G2:G100,L2:L100,Q2:Q100"), Target) Is Nothing And Target.Count = 1 Then
     Application.EnableEvents = False
     ValSaisie = Target
     Application.Undo
     npoint = Len(Target) - Len(Replace(Target, ":", ""))
     p = InStr(Target, ValSaisie)
     If p > 0 Then
       Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
       If Right(Target, 1) = ":" Then
          Target = Left(Target, Len(Target) - 1)
       End If
     Else
       If Target = "" Then
         Target = ValSaisie
       Else
        If npoint < Cells(Target.Row, Target.Column - 2) - 1 Then
          Target = Target & ":" & ValSaisie
        End If
       End If
     End If
     Application.EnableEvents = True
   End If
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2019 Sélection en cascade ou Groupe
Réponses
12
Affichages
332
ciarab8442
C
B
  • Résolu(e)
Microsoft 365 Valeurs plages de cellules
Réponses
2
Affichages
198
BOILEAU
B
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
195
sylvanu
M
  • Résolu(e)
XL 2021 SommeProd
Réponses
2
Affichages
235
marc.as
M
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
506
laurent950
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
1 K
Sylvaing
S
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
773
Birobi
B
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
242
Dand87
D
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
423
safranien
S
J
  • Résolu(e)
Microsoft 365 Etendre une liste deroulante dynamique
Réponses
4
Affichages
263
josyco
J
B
  • Question Question
XL 2016 resultat max égal trouver avec tout leurs noms
Réponses
9
Affichages
372
JHA
J
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
462
drop91
D
C
  • Question Question
XL 2019 Tableau Excel
Réponses
4
Affichages
265
Caller
C
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
699
jeff1494
Z
  • Question Question
Microsoft 365 Besoin d'aide liste de noms
2
Réponses
18
Affichages
584
zebrano
Z
E
  • Résolu(e)
Microsoft 365 [Résolu]Index equiv contenant caractère
Réponses
11
Affichages
382
job75
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
740
un internaute
U
  • Résolu(e)
Microsoft 365 [VBA] Formulaire de saisie avec choix parmi des occurrences retournées
Réponses
5
Affichages
119
fanfan38
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…