Discussion :

[kitcarson23]

Bonjour,
j'ai un souci
voila, j'ai une saisie selon la liste de valeur de zone liste.
Question 1: (1;2;3;4;6;7;99;98)
Question 2: (1;2;3;4;5;6;7;8;9;10)
Question 3: (1;4;5;6;7;8;9)
mon problème, je souhaite que si on selectionne 99 à la question 1, que de façon automatique on se positione sur la question 3 sans passé par la question 2.

Merci de votre aide.

[FreeAccess]

Bonjour,

Comme ta question n'est pas complète.....je vais simplement te donner un exemple...

Sur ton formulaire , trois Zones de liste (Liste_1, Liste_2, Liste_3)
Mets la propriété 'Visible' de Liste_2 et Liste 3 sur = Non

Sur la propriété "Après MAJ" de Liste_1....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Liste_1_AfterUpdate()
Select Case Me.Liste_1.Value
     'Si la valeur est égale à 99
    Case 99
        Me.Liste_3.Visible = True
        Me.Liste_2.Visible = False
    'Dans tous les autres cas......
    Case Else
        Me.Liste_2.Visible = True
        Me.Liste_3.Visible = True
End Select
End Sub

Voilà une solution...ensuite tu adapte en fonction de ce que tu veux vraiment faire.

Bonne continuation...

[kitcarson23]

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
Private Sub Question_N°6_AfterUpdate()
Select Case Me.Question_N°6.Value
     'les valeurs de questionN°6 sont 1 et 2.
     'Si la valeur est égale à 2
    Case 2
        Me.Question_N°11.Visible = True
        Me.Question_N°7.Visible = False
        Me.Question_N°7A.Visible = False
        Me.Question_N°8.Visible = False
        Me.Question_N°8A.Visible = False
        Me.Question_N°9.Visible = False
        Me.Question_N°9A.Visible = False
        Me.Question_N°10.Visible = False
        Me.Question_N°10A.Visible = False
    'Dans tous les autres cas......
    Case Else
        Me.Question_N°7.Visible = True
        Me.Question_N°7A.Visible = True
        Me.Question_N°8.Visible = True
        Me.Question_N°8A.Visible = True
        Me.Question_N°9.Visible = True
        Me.Question_N°9A.Visible = True
        Me.Question_N°10.Visible = True
        Me.Question_N°10A.Visible = True
        Me.Question_N°11.Visible = True
End Select
 
End Sub

voici, le code, mais malheureusement, il ne fonctionne pas, mais j'ai mis la proprité de visible des question N°7- Question N°11 à Non
qui ne sont pas visible au lancement du formulaire, mais lorsque je selection 1, les question ne sont affichés et si je selectionne 2 aussi, la question N11 ne s'affiche pas aussi.
Merci de votre aide.

[FreeAccess]

...

A première vue, le code à l'air correct....

Normalement ici, si tu sélectionne la valeur '2' dans ta zone de liste "Question_N°6", toutes les autres Zones de liste sont cachées, sauf la ZdL "Question_N°11" qui s'affiche....

Tes différents contrôles (Question_N°7 à Question_N°11) sont bien situés dans le même formulaire...

Essaie éventuellement de renommer tes différents contrôles....
Question_N°11 = Question_11

[kitcarson23]

Bonsoir,
voici la nouvelle codification que j'ai utilisé

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
Private Sub Q6_AfterUpdate()
Select Case Me.Q6.Value
     'Si la valeur est égale à 2
    Case 2
        Me.Q11.Visible = True
        Me.Q7.Visible = False
        Me.Q7A.Visible = False
        Me.Q8.Visible = False
        Me.Q8A.Visible = False
        Me.Q9.Visible = False
        Me.Q9A.Visible = False
        Me.Q10.Visible = False
        Me.Q10A.Visible = False
    'Dans tous les autres cas......
    Case Else
        Me.Q7.Visible = True
        Me.Q7A.Visible = True
        Me.Q8.Visible = True
        Me.Q8A.Visible = True
        Me.Q9.Visible = True
        Me.Q9A.Visible = True
        Me.Q10.Visible = True
        Me.Q10A.Visible = True
        Me.Q11.Visible = True
End Select
 
End Sub

Merci de votre aide.

[kitcarson23]

Bonsoir,
voici la nouvelle codification que j'ai utilisé

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
Private Sub Q6_AfterUpdate()
Select Case Me.Q6.Value
     'Si la valeur est égale à 2
    Case 2
        Me.Q11.Visible = True
        Me.Q7.Visible = False
        Me.Q7A.Visible = False
        Me.Q8.Visible = False
        Me.Q8A.Visible = False
        Me.Q9.Visible = False
        Me.Q9A.Visible = False
        Me.Q10.Visible = False
        Me.Q10A.Visible = False
    'Dans tous les autres cas......
    Case Else
        Me.Q7.Visible = True
        Me.Q7A.Visible = True
        Me.Q8.Visible = True
        Me.Q8A.Visible = True
        Me.Q9.Visible = True
        Me.Q9A.Visible = True
        Me.Q10.Visible = True
        Me.Q10A.Visible = True
        Me.Q11.Visible = True
End Select
 
End Sub

Merci de votre aide. et voici la fenetre en question.

[FreeAccess]

Ok, bien vue pour la capture d'écran...

Donc comme je suis persuadé que le code est correct.....je pense plutôt que tu n'as pas utilisé le bon nom des contrôles... .

Es-tu certain que tu n'emploie pas ici la référence qui se rapporte à l'étiquette (label) de ton contrôle Zone de liste....

Me.Q11 = le nom que tu donne au contrôle Zone de liste et pas à son étiquette....

[kitcarson23]

Bonjour
je vous joint la liste des propriétés de l'etiquette et de la zone liste.

merci.