Discussion :

[rico63]

Bonjour à tous,

J'ai cherché mais je ne trouve pas d'aide pour résoudre mon problème.

Voici le sujet :
Je souhaite réaliser dans une cellule un choix par liste déroulante sous la forme suivante,
Equipe 1
Equipe 2
......

Jusque là, je sais faire sans utiliser le VBA mais le but est d'avoir cette liste puis quand je passe le mulot sur Equipe 1, j'ai une seconde liste qui s'affiche en parallèle (Comme quand je fais : Fichier - Zone d'impression - Définir en utilisant la barre de menu sous Excel).

Equipe 1 -> Nom 1
Equipe 2 Nom 2
...... Nom 3

Je souhaite le faire un VBA et je souhaite aussi pouvoir récupérer l'information sélectionnée pour l'utiliser dans une seconde Macro.

Merci pour votre aide.

[jp014]

Bonjour

Une solution

nommer les zones:
zone "Equipe" pour les équipes
zone "nomequipe1"
zone "nomequipe2"

Créer les deux combobox (zone de liste déroulante)

dans la propriété "ListFillRange" du combobox1 mettre: Equipe
Puis cliquer sur combobox1 et mettre le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = ""
ComboBox2.Value = ""
ComboBox2.ListIndex = -1
 
Select Case ComboBox1.Value
    Case "Equipe 1"
        Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = "nomequipe1"
    Case "Equipe 2"
        Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = "nomequipe2"
End Select
End Sub

JP014

[rico63]

Bonjour jp014,

J'ai suivi tes indications et appliqué ta solution mais je n'obtiens aucun résultat dans les ''combobox'', elles sont vides !

Je n'arrive pas à comprendre l'utilité de la seconde ''Combobox'', je souhaite que tout se déroule à partir d'un seul bouton liste qui déroulera une seconde liste fonction de l'équipe sélectionnée dans un premier temps.

Merci d'avance pour tes réponses.

[Qwazerty]

Salut
Ce que tu cherches a faire c'est un menu contextuel ?
Pour ce qui est d'avoir le fonctionnement que tu cherches, je doute que se soit réalisable ... du moins pas simplement.
A++
Qwaz

[rico63]

Bonsoir,
C’est Ok, j'ai trouvé mon problème pour alimenter les listes.

Maintenant je souhaiterais mettre les listes dans une feuille ''liste'' et là, je n'arrive pas à faire le lien dans la macro!
Par quoi dois-je remplacer "AH8:AH11" pour avoir la même plage mais qui appartient à la feuille ''liste''

Merci pour votre aide.

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
Private Sub ComboBox1_Change()
 
Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = ""
ComboBox2.Value = ""
ComboBox2.ListIndex = -1
 
 
 
Select Case ComboBox1.Value
    Case "Equipe 1"
        Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = "AH8:AH11"
        ComboBox2.ListIndex = 0
    Case "Equipe 2"
        Worksheets(ActiveSheet.Name).ComboBox2.ListFillRange = "AH14:AH18"
        ComboBox2.ListIndex = 0
End Select
 
 
End Sub

[jp014]

Bonjour

Il faut écrire comme ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"liste!AH8:AH11"

On retrouve ce type d'écriture en nommant les zones.

JP014