Discussion :

[GroFlo]

Bonjour à tous,

Je ne suis pas certain que le titre soit très explicite, mais j'ai du mal à faire plus clair (ce qui explique sans doute que je n'ai pas trouvé de réponses par les recherches)

En réalité je souhaiterai arriver à peu près au même résultat que le fichier mis en pièce jointe (un référentiel d'évaluation librement téléchargeable sur le site du ministère du développement durable), c'est à dire, onglet Étape 1, quand je sélectionne un item dans le menu déroulant, il va chercher dans l'onglet data_QS (ou dans l'onglet Questions Stratégique, je ne sais pas bien) l'ensemble des questions attachées au menu déroulant et il me les affiche dans les cellules en dessous du menu déroulant.
Si je sélectionne un autre item dans le menu, l'ancien texte est remplacé par les nouvelles questions associées à l'item.

Vous avez une idée de la façon de faire cela ? Les macros ne sont pas consultables (il faut un mot de passe).

Merci par avance.

[nanousik]

Dans le classeur que tu as joint le code pour ce que tu demandes dois ressembler à ça

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub lst_Change()
 
Dim i, ligne, qi, ri As Integer
Dim trouve As Boolean
Dim code_fe, code_qu As String
 
i = 1
trouve = False
'Tant que la cellule Bi est remplit et que l'on a pas trouvé la valeur sélectionnée dans la liste déroulante
While (Sheets("Finalités-Eléments de démarche").Range("B" & i).Value <> "") And trouve = False
    If Sheets("Finalités-Eléments de démarche").Range("C" & i).Value = lst.Value Then
        trouve = True
        'la variable code_fe prend la valeur du code de la la finalité ou de l'élément
        code_fe = Sheets("Finalités-Eléments de démarche").Range("B" & i).Value
    End If
    i = i + 1
Wend
 
ligne = 5
qi = 1
While Sheets("Finalités-Eléments de démarche").Range("A" & qi).Value <> ""
 
    'Si la cellule Aqi de la feuille Questions stratégiques commence par la variable code_fe
    If LCase(Sheets("Questions stratégiques").Range("A" & qi).Value) Like LCase(code_fe) & "*" Then
 
        'Copie la question
        Sheets("Questions stratégiques").Range("B" & qi).Copy Destination:=Worksheets("Etape1").Range("B" & ligne)
        'la variable code_qu prend la valeur du code de la question
        code_qu = Sheets("Questions stratégiques").Range("A" & qi).Value
 
        ligne = ligne + 2
        ri = 1
        While Sheets("Repères").Range("A" & ri).Value <> ""
            If LCase(Sheets("Repères").Range("A" & ri).Value) Like LCase(code_qu) & "*" Then
 
                'Copie la question
                Worksheets("Etape1").Range("B" & ligne) = "-"
                Sheets("Repères").Range("B" & ri).Copy Destination:=Worksheets("Etape1").Range("C" & ligne)
                ligne = ligne + 1
            End If
            ri = ri + 1
        Wend
        ligne = ligne + 1
    End If
    qi = qi + 1
Wend
 
End Sub

Dans ce code j'ai nommé la liste déroulante "lst" et j'ai inséré les questions à partir de la ligne 5 sur la feuille "Etape1".

J'espère que ma réponse t'aidera

[GroFlo]

Merci beaucoup ! Je n'ai pas encore eu l'occasion de tester ou déchiffrer le code, mais au moins, je sais que j'ai la réponse à portée de main.