Discussion :

[GI_GI]

Bonjour a tous.
Voici mon probleme:
J'ai 3 listes de noms nommées Equipe1, Equipe2, Equipe3.
Admettons qu'en A1 je saisi un nombre de 1 a 3, je voudrais qu'en A2 apparaise la liste déroulante contenant les noms de l'équipe sélectionnée.
Merci d'avance pour vos réponses.

[SfJ5Rpw8]

ben comment rempli tu tes listes ... où sont tes données...?

[mortalino]

Salut,

je vais partir du principe que quelque part dans ta feuille, tu as tes fameuses listes d'équipes, que tu les as chacunes sélectionnées en leurs donnant un nom dans la Zone de Nom, et que tu souhaites lors d'un changement de valeur dans A1 (soit 1, 2 ou 3), se place dans A2 une liste déroulante contenant les noms contenus dans la liste correspondante.

Le bout de code que je te propose doit se mettre dans le module de la feuille, où doit apparaitre la liste déroulante en A2 :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
        Static ValChangeBis As Integer
        Dim ValChange       As Integer
 
    ValChange = Range("A1").Value
    If ValChange <> ValChangeBis Then
    ' la première fois, le changement s'opérera forcément, ValChangeBis n'étant pas initialisée
        ValChangeBis = ValChange
        Select Case Range("A1").Value
            Case 1
                With Range("A2").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Equipe1"
                    .ShowError = True
                End With
            Case 2
                With Range("A2").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Equipe2"
                    .ShowError = True
                End With
            Case 3
                With Range("A2").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Equipe3"
                    .ShowError = True
                End With
        End Select
    End If
End Sub

En espérant que cela te convienne,
@++