Rendre la liste de choix de combobox dépendante d'une autre combo [Résolu]
ep1073
Membre Dernière intervention
25 juillet 2006
- - Dernière réponse :
ep1073
Membre Dernière intervention
25 juillet 2006
- 25 juil. 2006 à 16:26
- Messages postés
- 23
- Date d'inscription
- vendredi 16 juin 2006
- Statut
- Messages postés
- 23
- Date d'inscription
- vendredi 16 juin 2006
- Statut
A voir également:
- Rendre la liste de choix de combobox dépendante d'une autre combo
- Combobox : Liste de choix sur feuille differente... ✓ - Forum - Visual Basic 6
- Création d'une liste de choix, dont les options sont issues d'une base de données. - Codes sources - Visual Basic / VB.NET (ASP)
- Création d'une liste de choix, dont les options sont issues d'une base de données. - Codes sources - ASP / ASP.NET (Base de données)
- C / C++ / C++.NET : Manipulation d'une liste a choix multiple - CodeS SourceS - Guide
- Selection de valeurs a partir de 2 listes à choix mupliples - Codes sources - Javascript (Formulaire)
20/23 réponses
Meilleure réponse
- Messages postés
- 797
- Date d'inscription
- mardi 7 juin 2005
- Statut
Si j'ai bien compris, tu es dans Excel, si tu n'as pas absolument besoin d'un formulaire, tu peux faire autrement (je trouve même ça plus joli personnellement, mais là, c'est une question de goût et de couleur :) )
Il ne faut pas avoir peur de la longueur, c'est très simple en fait :
Posons les bases :
Tu dois poser toutes tes données à plat, façon base de données un petit peu.
On va créer une feuille Données.
Dans la colonne A, on va mettre le contenu de ta ComboBox initiale :
A1 : Toto
A2 : Tata
Puis on crée une zone de nom : Menu Insertion\Nom\Définir
On sélectionne A1 et A2, et on appelle la zone Initiale, par ex.
On va faire la même chose pour le contenu de la combo dépendante :
Dans la colonne D, on va mettre le contenu de ta ComboBox dépendante pour le 1er choix de la Combo Initiale :
D1 : Mange
D2 : Boit
D3 : Travaille
On sélectionne D1, D2 et D3, et on appelle la zone Jour, par ex.
Dans la colonne E, on va mettre le contenu de ta ComboBox dépendante pour le 2ème choix de la Combo Initiale :
E1 : Dort
E2 : Ronfle
On sélectionne E1 et E2, et on appelle la zone Nuit, par ex.
L'ensemble de tes données sont prêtes.
Pour faciliter la suite (parce qu'on n'a pas forcément que 2 sous thèmes avec 3 données), je vais une table de corespondance avec ma colonne 1, c'est à dire que je vais attacher à chaque choix le nom de la zone de texte qui correpond :
A1 : Toto B1 : Jour
A2 : Tata B2 : Nuit
Et là encore, je crée une zone de Nom en sélectionnant cette fois A1 à B2.
Je vais l'appeler Noms.
Ca semble barbare comme ça, mais quand on est habitué, on se rend compte que c'est super simple et ça prend 1 minute chrono à faire.
Sur une 2ème feuille (que j'appelle Combo), on va crée ton interface :
Je vais attacher une zone de liste à la cellule (Menu Données\Validation ... Onglet Options, dans la combo Autoriser, choisir Liste et mettre en source =Initiale
Quand tu cliques dans la cellule A1, tu as donc une combo qui donne les choix Toto et Tata.
On fait la même chose en A2, sauf qu'en Source on marque cette fois : =Jour
Quand tu cliques sur A2, tu as donc les choix : Mange, Boit, Travaille
Là vient la subtilité : on va afficher automatiquement le nom de la Zone de nom correspondant au choix effectué (je mets une couleur blanche dessus pour que ça ne se voit pas après).
Dans la cellule B1, on va rentrer la formule suivante :
=RECHERCHEV(A1;Noms;2;FAUX)
Cette fonction lance une recherche dans ta zone de nom "Noms", et affiche le mot de la 2ème colonne, en face du mot sélectionné dans ta combo.
Donc, si en A1, tu sélectionnes Toto, en B1 tu auras Jour, et si tu sélectionnes Tata, en B1 tu auras Nuit.
Maintenant, la petite partie en code (on est obligé d'y passer un peu tout de même ^^) :
Tu crées un bouton VB, que j'ai appelé cmd_MàJ, et tu lui colles le code suivant :
Private Sub cmd_MàJ_Click()
Dim Temp as String
Temp = "=" & Worksheets("Combo").Range("B1").Value
Worksheets("Nomenclature").Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Temp
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Voilà, maintenant, tu n'as plus qu'à sélectionner dans la Cellule A1 ton mot, appuyer sur le bouton MàJ et à ce moment là, ta cellule A2 aura donc la liste équivalente.
L'avantage de cette méthode, c'est que ton code est écrit une fois pour toute : Tu peux rajouter autant de données que tu veux, etc, comme tout est géré par les zones de Nom, le code n'a plus besoin d'être modifié.
Moi ça me sert souvent parce que je développe des applis Excel pour les collègues et heureusement que je ne fais pas toute la maintenance ^^ Le VBA leur file des boutons, mais quelques fonctionnalités EXCEL, ils y arrivent encore :p
Un autre avantage, je trouve ça bien plus joli :p, et puis, tu peux utiliser toute la panoplie d'Excel, la mise en forme conditionnelle, etc ... sans t'embêter avec du code.
L'inconvénient, c'est que si tu voulais absolument un formulaire, tu ne l'as pas :p
Molenn
Il ne faut pas avoir peur de la longueur, c'est très simple en fait :
Posons les bases :
Tu dois poser toutes tes données à plat, façon base de données un petit peu.
On va créer une feuille Données.
Dans la colonne A, on va mettre le contenu de ta ComboBox initiale :
A1 : Toto
A2 : Tata
Puis on crée une zone de nom : Menu Insertion\Nom\Définir
On sélectionne A1 et A2, et on appelle la zone Initiale, par ex.
On va faire la même chose pour le contenu de la combo dépendante :
Dans la colonne D, on va mettre le contenu de ta ComboBox dépendante pour le 1er choix de la Combo Initiale :
D1 : Mange
D2 : Boit
D3 : Travaille
On sélectionne D1, D2 et D3, et on appelle la zone Jour, par ex.
Dans la colonne E, on va mettre le contenu de ta ComboBox dépendante pour le 2ème choix de la Combo Initiale :
E1 : Dort
E2 : Ronfle
On sélectionne E1 et E2, et on appelle la zone Nuit, par ex.
L'ensemble de tes données sont prêtes.
Pour faciliter la suite (parce qu'on n'a pas forcément que 2 sous thèmes avec 3 données), je vais une table de corespondance avec ma colonne 1, c'est à dire que je vais attacher à chaque choix le nom de la zone de texte qui correpond :
A1 : Toto B1 : Jour
A2 : Tata B2 : Nuit
Et là encore, je crée une zone de Nom en sélectionnant cette fois A1 à B2.
Je vais l'appeler Noms.
Ca semble barbare comme ça, mais quand on est habitué, on se rend compte que c'est super simple et ça prend 1 minute chrono à faire.
Sur une 2ème feuille (que j'appelle Combo), on va crée ton interface :
Je vais attacher une zone de liste à la cellule (Menu Données\Validation ... Onglet Options, dans la combo Autoriser, choisir Liste et mettre en source =Initiale
Quand tu cliques dans la cellule A1, tu as donc une combo qui donne les choix Toto et Tata.
On fait la même chose en A2, sauf qu'en Source on marque cette fois : =Jour
Quand tu cliques sur A2, tu as donc les choix : Mange, Boit, Travaille
Là vient la subtilité : on va afficher automatiquement le nom de la Zone de nom correspondant au choix effectué (je mets une couleur blanche dessus pour que ça ne se voit pas après).
Dans la cellule B1, on va rentrer la formule suivante :
=RECHERCHEV(A1;Noms;2;FAUX)
Cette fonction lance une recherche dans ta zone de nom "Noms", et affiche le mot de la 2ème colonne, en face du mot sélectionné dans ta combo.
Donc, si en A1, tu sélectionnes Toto, en B1 tu auras Jour, et si tu sélectionnes Tata, en B1 tu auras Nuit.
Maintenant, la petite partie en code (on est obligé d'y passer un peu tout de même ^^) :
Tu crées un bouton VB, que j'ai appelé cmd_MàJ, et tu lui colles le code suivant :
Private Sub cmd_MàJ_Click()
Dim Temp as String
Temp = "=" & Worksheets("Combo").Range("B1").Value
Worksheets("Nomenclature").Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Temp
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Voilà, maintenant, tu n'as plus qu'à sélectionner dans la Cellule A1 ton mot, appuyer sur le bouton MàJ et à ce moment là, ta cellule A2 aura donc la liste équivalente.
L'avantage de cette méthode, c'est que ton code est écrit une fois pour toute : Tu peux rajouter autant de données que tu veux, etc, comme tout est géré par les zones de Nom, le code n'a plus besoin d'être modifié.
Moi ça me sert souvent parce que je développe des applis Excel pour les collègues et heureusement que je ne fais pas toute la maintenance ^^ Le VBA leur file des boutons, mais quelques fonctionnalités EXCEL, ils y arrivent encore :p
Un autre avantage, je trouve ça bien plus joli :p, et puis, tu peux utiliser toute la panoplie d'Excel, la mise en forme conditionnelle, etc ... sans t'embêter avec du code.
L'inconvénient, c'est que si tu voulais absolument un formulaire, tu ne l'as pas :p
Molenn
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
144 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
Salut
Pensez au MOTEUR DE RECHERCHE car ceci est une question qui est déjà passée... Faut juste se donner la peine d'essayer de chercher. (bleu en vb ou pas...)
@+, Julien
Pensez: Règlement
Pensez au MOTEUR DE RECHERCHE car ceci est une question qui est déjà passée... Faut juste se donner la peine d'essayer de chercher. (bleu en vb ou pas...)
@+, Julien
Pensez: Règlement
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
Salut,
Si j'ai bien compris t'as un 1er ComboBox.
Dedans tu as une liste (logique).
Chaque Item de cette liste correspond au nom de tes listes dans excel ? (c'est là où je suis pas sûr)
Auquel cas :
Private Sub ComboBox1_Change()
ComboBox2.RowSource = "FeuilX!" & ComboBox1.Text
End Sub
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
Si j'ai bien compris t'as un 1er ComboBox.
Dedans tu as une liste (logique).
Chaque Item de cette liste correspond au nom de tes listes dans excel ? (c'est là où je suis pas sûr)
Auquel cas :
Private Sub ComboBox1_Change()
ComboBox2.RowSource = "FeuilX!" & ComboBox1.Text
End Sub
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
Julien The Destructor !
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
- Messages postés
- 616
- Date d'inscription
- mercredi 18 décembre 2002
- Statut
Je ne sais pas si j'ai bien saisi mais voilà un petit bout de code qui induit les choix d'un combo selon la sélection d'un premier.
Pour faire l'essai il suffit de créer un form et de mettre deux combo dessus (combo1, combo2) et copier-coller le code ci-dessous dans la partie code
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.ItemData(Combo1.ListIndex)
Case 1
With Combo2
.AddItem "Chocolat"
.AddItem "Vanille"
.AddItem "Fraise"
End With
Case 2
With Combo2
.AddItem "Pistache"
.AddItem "Caramel"
.AddItem "citron"
End With
'Case ... si il y a plus que deux options dans combo1 on peut
' ajouter plus d'option ici.
End Select
End Sub
Private Sub Form_Load()
With Combo1
'On ajoute les options du premier combo
.AddItem "Premier choix"
'Pour faciliter la sélection on ajoute des index aux options
.ItemData(.NewIndex) = 1
.AddItem "Second choix"
.ItemData(.NewIndex) = 2
End With
End Sub
Bonne glaces.....
Pour faire l'essai il suffit de créer un form et de mettre deux combo dessus (combo1, combo2) et copier-coller le code ci-dessous dans la partie code
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.ItemData(Combo1.ListIndex)
Case 1
With Combo2
.AddItem "Chocolat"
.AddItem "Vanille"
.AddItem "Fraise"
End With
Case 2
With Combo2
.AddItem "Pistache"
.AddItem "Caramel"
.AddItem "citron"
End With
'Case ... si il y a plus que deux options dans combo1 on peut
' ajouter plus d'option ici.
End Select
End Sub
Private Sub Form_Load()
With Combo1
'On ajoute les options du premier combo
.AddItem "Premier choix"
'Pour faciliter la sélection on ajoute des index aux options
.ItemData(.NewIndex) = 1
.AddItem "Second choix"
.ItemData(.NewIndex) = 2
End With
End Sub
Bonne glaces.....
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
"FeuilX" Correspond au nom d'une de tes feuilles....Vu que nous ne connaissons pas le nom de tes feuilles (Honte a nous) et bien on essaie de "formatter" en mettant un nom "STANDARD"
@+, Julien
Pensez: Règlement,Réponse Acceptée, Moteur de recherche
@+, Julien
Pensez: Règlement,Réponse Acceptée, Moteur de recherche
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
FeuilX c'est le nom de ta feuiile à mettre, celle où se trouve tes plages "nommées"
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
Bon prend une feuille dans excel.
Tu la nommes Liste
Ensuite mets-y les différentes listes qui doivent s'afficher dans ton 2eme ComboBox selon l'Item choisi dans le 1er ComboBox.
Une fois tes listes mises dans cette nouvelle feuille d'Excel, sélectionne la première, dans le croisement des entêtes de lignes et colonnes, tu as l'adresse des cellules, tu effaces cette adresse et tu mets à la place le nom de ton 1er Item qui doit aller dans ton 1er ComboBox.
Ainsi de suite
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
Tu la nommes Liste
Ensuite mets-y les différentes listes qui doivent s'afficher dans ton 2eme ComboBox selon l'Item choisi dans le 1er ComboBox.
Une fois tes listes mises dans cette nouvelle feuille d'Excel, sélectionne la première, dans le croisement des entêtes de lignes et colonnes, tu as l'adresse des cellules, tu effaces cette adresse et tu mets à la place le nom de ton 1er Item qui doit aller dans ton 1er ComboBox.
Ainsi de suite
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
Lorsque tu sélectionnes cette liste en ligne, si le nom apparaît dans l'adresse des cellules, c'est bon.
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
Merci de prendre le temps de lire
le Règlement CS
http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
- Messages postés
- 23
- Date d'inscription
- vendredi 16 juin 2006
- Statut
C'est pourtant bien le cas :
Quand je la sélectionne, le nom s'affiche bien, mais avec rowqource, je ne récupère que la première valeur
En revanche, quand je prend une liste colonne, ta méthode marche très bien!
Donc je pense que je vais remanier un peu mon code, hisoitre de les mettre en colonnes dans un nouvel onglet...
Merci pour ton aide en tous cas!
Quand je la sélectionne, le nom s'affiche bien, mais avec rowqource, je ne récupère que la première valeur
En revanche, quand je prend une liste colonne, ta méthode marche très bien!
Donc je pense que je vais remanier un peu mon code, hisoitre de les mettre en colonnes dans un nouvel onglet...
Merci pour ton aide en tous cas!