Discussion :

[maxime350]

Bonjour,

J'ai une feuille excel avec différentes zone de listes déroulantes.
Je souhaite trier la zone de liste 2 en fonction de la zone de liste 1.

Zone de liste 1 avec 2 choix possibles: Famille, Amis

La zone de liste 2 doit m'afficher la liste des prénoms disponibles:

Famille, 4 choix: Maman, Papa, Isabelle, Nicolas
Amis, 4 choix: Céline, Olivier, Romain, Lydie


Pour résumer, si je choisis Famille dans la zone de liste 1 je souhaite que la zone de liste 2 me propose Maman, Papa, Isabelle ou Nicolas.

Merci de votre aide,
Maxime

[ouisansdoute]

Bonjour,

Il s'agit de faire deux listes dépendantes ou deux listes liées.
Regarde sur ce fil.

[maxime350]

Merci pour ta réponse ouisansdoute.
Effectivement cette méthode fonctionne pour des cellules.

Cependant, j'aurais souhaité l'appliquer dans un contrôle zone de liste déroulante. Et malheureusement le code

Code :

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

=indirect (d2)

me ressort une erreur "Argument non valide".

Merci de votre aide,
Maxime

[Fvandermeulen]

Salut,
Voici un fichier que j'ai "pompé" je sais plus où mais qui me semble très clair

A+

[maxime350]

Bonjour Fvandermeulen,

Merci pour ton fichier ça me permet de mieux comprendre.
Simplement, je souhaiterais utiliser cette fonction dans une zone de liste déroulante que l'on créé via la barre d'outil formulaire.

merci,
Maxime

[Fvandermeulen]

A priori (j'avais jamais essayé) la fonction Indirect ne fonctionne pas sur l'objet.
Mais par Macro pas de souci pour te régler ça si tu veux...un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub AdapteListe()
'
MonChoix = Sheets("sheet1").Range("C1") 'Variable qui récupère le "premier" choix placé dans la cellule C1
'
With Worksheets(1) 'Feuille 1
    Set lb = .Shapes(1) 'Objet numéro 1, a adapter avec le nom de ton objet ou le bon numéro
    lb.ControlFormat.ListFillRange = MonChoix 'Adapte la zone source de la liste avec la variable
End With
 
End Sub

Tu peux alors choisir de lancer la macro que si un changement se fait sur ta feuille.

A toi de voir...

A+

[Fvandermeulen]

OK merci, j'avais honte de ne plus me souvenir
Et non seulement des pépites mais en plus super didactique