Discussion :

[tibss]

Bonjour à tous,

J'aimerais programmer une macro qui permet de modifier les menus déroulant en fonction des choix utilisateur...
Si la valeur est 1 : cela affiche un menu déroulant, si la valeur est 2, ça en affiche un autre...

J'ai enregistré manuellement une macro qui crée et supprime le menu déroulant sur excel. Cependant, j'ai beaucoup de difficultés à l'appliquer à mon code. En effet, je ne sais pas comment connaître "le nom" du menu déroulant.. Et donc je ne sais pas comment le sélectionner..

Merci d'avance. pour votre aide..

Voici le code généré par Excel lors de l'enregistrement de la macro de création et suppression du menu déroulant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Range("D8").Select
    ActiveSheet.DropDowns.Add(120, 101.25, 75.75, 15.75).Select
    Range("D9").Select
    ActiveSheet.Shapes.Range(Array("Drop Down 4")).Select
    With Selection
        .ListFillRange = "Feuil7!$F$8:$F$13"
        .LinkedCell = "Feuil7!$F$19"
        .DropDownLines = 8
        .Display3DShading = False
    End With
 
    ActiveSheet.Shapes.Range(Array("Drop Down 4")).Select
    Selection.Delete

Le menu déroulant auquel je fais référence peut être ajouté manuellement de la manière suivante:
Onglet développeur => Insérer => Zone de liste déroulante.

Merci d'avance pour votre aide.. Je suis un peu en panique..
...

[tibss]

En fait, je en sais pas s'il est nécessaire de passer par le langage VBA pour gérer ce genre de choses..

Globalement, j'aimerais juste pouvoir gérer le cas suivant :
J'ai 3 choix :
- choix 1
- choix 2
- choix 3

Si choix1 : j'affiche un menu déroulant
Si choix2 : j'affiche un autre menu déroulant (avec une autre liste)
si choix3 : j'affiche deux menus déroulants (avec deux listes distinctes des autres)

(le menu déroulant que je souhaite utiliser est accessible à l'endroit suivant: Onglet développeur => Insérer => Zone de liste déroulante)

[parmi]

Bonjour,

Une idée comme ça...
Si tu créais tes menus déroulants d'avance, tu pourrais jouer avec leur propriété Visible selon les cas mentionnés (?)

[tibss]

Bon, au risque de paraître Skizo (je me fais les questions et les réponses), je pense avoir trouvé la manière de donner un nom à la liste:
il suffit de rajouter

Code :

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

.name = "Liste_déroulante"

.

Eh oui, c'était pas très compliqué, mais en tatonant, j'ai fini apr tester ça et ça fonctionne

Comme ça, il est possible de supprimer la liste en écrivant :

Code :

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

 ActiveSheet.Shapes.Range(Array("Liste_déroulante")).delete

Désolé pour les spams, j'espère que ça pourra être utile à certains utilisateurs du forum qui ont à peu près le même niveau (médiocre) que moi en vba