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

XL 2016 liste déroulante en cascade avec des noms définis

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion will91
  • 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
W

will91

XLDnaute Nouveau
Bonjour,
je suis sur un projet et j'ai besoin de faire une liste déroulante en cascade pour sélectionner l'émetteur d'une requête en fonction de son département.
c'est à dire que la liste des départements est déjà défini et chaque département à son personnel; et toute les listes sont définis et disponible dans le gestionnaire des noms.
Pour sélectionner un émetteur, il faudrait que le département soit préalablement défini.
Je tourne en rond depuis et je souhaiterais avoir un coup de pouce.

Merci.
 

Pièces jointes

Solution
Bonjour,

Juste avec

VB: 
Private Sub ComboBox3_Change()
    If ComboBox3.ListIndex > -1 Then
        ComboBox2.List = Application.Range(ComboBox3.Value).Value
    End If
End Sub

ça semble fonctionner

Par contre, ne laissez pas de lignes vides dans vos tableaux structurés, cela ne sert à rien puisqu'ils s'autoagrandissent tout seuls comme des grands.

Cordialement
Trier par date Trier par votes
Bonjour @will91 🙂,
Bienvenue sur XLD 😉,

Tout d'abord :
  • Il est bon pour les tableaux structurés de ne pas de laisser de lignes vides en fin de tableau. Le tableau structuré a la faculté d'ajouter automatique d'insérer une ligne quand c'est nécessaire.
  • Le département RH a un intitulé différent entre dans le tableau des départements et comme en-tête du tableau de ses membres => le code proposé ne donne donc aucun résultat pour ce département RH
  • pour le fun, je n'utilise pas les noms définis
  • sans ligne vide dans ComboBox2
J'ai utilisé au maximum le vocabulaire des tableaux structutés pour le fun. Le code proposé est le suivant :
VB: 
Private Sub ComboBox3_Change()
Dim DptCol&, t, i&
   ComboBox2.Clear
   With Sheets("listes")
      DptCol = Application.IfError(Application.Match(ComboBox3.Value, .Rows(2), 0), 0)
      If DptCol = 0 Then Exit Sub
      t = .Cells(2, DptCol).ListObject.ListColumns(1).Range.Value
      For i = 2 To UBound(t)
         If Trim(t(i, 1)) <> "" Then ComboBox2.AddItem t(i, 1)
      Next i
   End With
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour,

Juste avec

VB: 
Private Sub ComboBox3_Change()
    If ComboBox3.ListIndex > -1 Then
        ComboBox2.List = Application.Range(ComboBox3.Value).Value
    End If
End Sub

ça semble fonctionner

Par contre, ne laissez pas de lignes vides dans vos tableaux structurés, cela ne sert à rien puisqu'ils s'autoagrandissent tout seuls comme des grands.

Cordialement
 
Vote positif 0 Vote négatif
Solution
Re,

Pour ne pas être tributaire de l’orthographe des départements dans le tableau des départements et dans les en-têtes des tableaux des personnels, on utilise un seul tableau nommé Personnels.
  • ce tableau comporte les noms des départements en en-têtes (qui sont modifiables n'importe quand)
  • ce tableau peut s'agrandir facilement tant en ligne qu'en colonne
  • plus de problème d'orthographe puisque le nom d'un département n'apparait qu'une seule fois
  • plus besoin de définir une flopée de noms
Le code à l'initialisation :
VB: 
Private Sub UserForm_Initialize()
Dim x
   Me.Caption = "MyUserform"
   For Each x In Sheets("Listes").ListObjects("Personnels").HeaderRowRange: ComboBox3.AddItem x: Next x
End Sub

Le code au changement de ComboBox3 :
Code: 
Private Sub ComboBox3_Change()
Dim x
   ComboBox2.Clear
   If ComboBox3.ListIndex < 0 Then Exit Sub
   For Each x In Sheets("listes").ListObjects("Personnels").ListColumns(1 + ComboBox3.ListIndex).DataBodyRange
      If Trim(x) <> "" Then ComboBox2.AddItem x
   Next x
End Sub

Private Sub ComboBox2_Change() a été supprimé.
 

Pièces jointes

Dernière édition:
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

Discussions similaires

D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
220
Daniel200666
D
  • Résolu(e)
Microsoft 365 Liste déroulante en cascade
Réponses
6
Affichages
130
natorp
  • Question Question
XL 2019 traiter liste de choix multiples
Réponses
14
Affichages
258
serras
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
1 K
AtTheOne
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
345
PMG
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
246
sylvanu
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
931
djidji59430
E
  • Résolu(e)
XL 2019 Création d'une liste déroulante en cascade
Réponses
3
Affichages
775
Ericduke
E
G
  • Résolu(e)
XL 2019 Liste déroulante en cascade
Réponses
13
Affichages
714
Gturkmen
G
S
  • Question Question
XL 2021 Problème avec contenu de ma liste déroulante
2
Réponses
15
Affichages
1 K
fanch55
O
  • Résolu(e)
XL 2019 Besoin d'aide avec une liste déroulante.
Réponses
3
Affichages
468
olivier C
O
  • Question Question
XL 2016 lien avec liste déroulante
Réponses
2
Affichages
471
richardlion
  • Question Question
XL 2019 Résultat d'une liste déroulante en cascade sans underscore "_"
Réponses
9
Affichages
1 K
fanch55
S
  • Résolu(e)
Microsoft 365 Liste déroulante dynamique via données horizontales
Réponses
2
Affichages
721
sebien0077
S
S
  • Résolu(e)
Microsoft 365 Liste déroulante avec plusieurs colonnes de tableaux + Recherche valeurs en fonction de la valeurs selectionnée
Réponses
2
Affichages
440
Sosobob
S
N
  • Résolu(e)
XL 2021 Somme en fonction des noms d'onglets et des semaines
Réponses
6
Affichages
444
NLSCt
N
F
  • Résolu(e)
XL 2021 Créer un formulaire aves des listes déroulantes en cascades (Macro)
Réponses
8
Affichages
912
fanou06
F
K
  • Résolu(e)
XL 2013 Modifier noms de plage par lots
Réponses
6
Affichages
547
Kostrovit
K
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
654
casualexcel
C
D
  • Question Question
Microsoft 365 Liste déroulante en cascade mais en intégrant 3 paramètres initiaux
Réponses
2
Affichages
718
Daniel200666
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…