Discussion :

[Invité]

Bonjour,

J'ai un Formulaire dans lequel je coche soit option essentielle, soit option moyenne, soit option toute.

Les trois premières fonctions :
-> Public Sub Option_Essentielle_Click()
-> Public Sub Option_Moyenne_Click()
-> Public Sub Option_Toute_Click()

récupèrent ce que l'utilisateur a choisi sous forme de OptionButton. Il coche soit la case essentielle, moyenne ou toute.

Les trois secondes fonctions :
-> Public Function Essentielle() As Boolean
-> Public Function Moyenne() As Boolean
-> Public Function Toute() As Boolean

sont censées récupérer la valeur booléenne des OptionsButtons pour renvoyer la valeur booléenne de l'option qui est à TRUE.
(Je passe par une function parce que je ne peux pas renvoyer de valeur avec une Sub et je suis obligé d'utiliser une Sub pour pouvoir manipuler les OptionButton)

Et la dernière fonction :
-> Public Sub laquelle()

appelle une variante de GenerPerimetreAction(1, 2 ou 3) qui va avoir une action différente en fonction de quelle option est à TRUE.

MON PROBLEME :
Dans les trois secondes fonctions, il ne rentre jamais dans les conditions :

Code :

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

1
2
3
4
 
If Me.Option_Essentielle = True Then
Essentielle = True
End If

Code :

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

1
2
3
4
 
If Me.Option_Moyenne = True Then
Moyenne = True
End If

Code :

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

1
2
3
4
 
If Me.Option_Toute = True Then
Option = True
End If

J'ai l'impression que les OptionsButtons :
-> Me.Option_Essentielle
-> Me.Option_Moyenne
-> Me.Option_Toute

ne sont déclarés que dans les trois premières fonctions et que je ne peux pas les réutiliser dans d'autres fonctions.

Je ne sais pas comment faire, pouvez - vous m'aider ?

Voici le code ci-dessous :

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
 
Public Sub Option_Essentielle_Click()
 
Me.Option_Essentielle = True
Me.Option_Moyenne = False
Me.Option_Toute = False
 
End Sub
 
Public Sub Option_Moyenne_Click()
 
Me.Option_Essentielle = False
Me.Option_Moyenne = True
Me.Option_Toute = False
 
End Sub
 
Public Sub Option_Toute_Click()
 
Me.Option_Essentielle = False
Me.Option_Moyenne = False
Me.Option_Toute = True
 
End Sub

--------------------------------------------------------------------

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
 
Public Function Essentielle() As Boolean
 
If Me.Option_Essentielle = True Then
Essentielle = True
End If
 
End Function
 
Public Function Moyenne() As Boolean
 
If Me.Option_Moyenne = True Then
Moyenne = True
End If
 
End Function
 
Public Function Toute() As Boolean
 
If Me.Option_Toute = True Then
Toute = True
End If
 
End Function

--------------------------------------------------------------------

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
 
Public Sub laquelle()
 
If Essentielle = True Then
Call GenerPerimetreActions(1)
End If
 
If Moyenne = True Then
Call GenerPerimetreActions(2)
End If
 
If Toute = True Then
Call GenerPerimetreActions(3)
End If
 
End Sub

[Robert1957]

Bonjour cest_pas_faux,

récupèrent ce que l'utilisateur a choisi sous forme de OptionButton. Il coche soit la case essentielle, moyenne ou toute.

Si on parle bien d'un "OptionButton" ne retournera jamais True. Tu peux vérifier ce que retournera la case à cocher dans la "feuille de propriétés" sous l'onglet "Données" la ligne "Valeur contrôle". Par défaut Access commence la numérotation à 1.

Bonne journée

[Invité]

Je sais bien que ça ne va pas me retourner TRUE, c'est juste pour l'aspect graphique, on voit que le bouton est coché,
le truc, c'est que j'ai l'impression que la value Me.Option_Essentielle, Me.Option_Moyenne et Me.Option_Toute ne peuvent pas être réutilisé dans une autre fonction. Comment faire ?

J'aimerais avoir la value de ces Me.Option

[Invité]

Cette fois - ci, j'ai utilisé une variable globale, mais pas plus de succès :

Code :

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

1
2
3
 
Public taupe As Integer
Option Explicit

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
 
Public Function donner_valeur(nombre As Integer)
 
taupe = nombre
 
End Function
 
Public Sub Option_Essentielle_Click()
 
    Me.Option_Essentielle = True
    Me.Option_Moyenne = False
    Me.Option_Toute = False
    Call donner_valeur(1)
    MsgBox ("Option_Essentielle_Click : taupe : " & taupe)
    'taupe = donner_valeur(Option_Essentielle, 1)
 
    'If Me.Option_Essentielle = True Then
    'Call GenerPerimetreActions(1)
    'End If
 
End Sub
 
Public Sub Option_Moyenne_Click()
 
    Me.Option_Essentielle = False
    Me.Option_Moyenne = True
    Me.Option_Toute = False
    Call donner_valeur(2)
    MsgBox ("Option_Essentielle_Click : taupe : " & taupe)
    'taupe = donner_valeur(Option_Moyenne, 2)
 
    'If Me.Option_Moyenne = True Then
    'Call GenerPerimetreActions(2)
    'End If
 
End Sub
 
Public Sub Option_Toute_Click()
 
    Me.Option_Essentielle = False
    Me.Option_Moyenne = False
    Me.Option_Toute = True
    Call donner_valeur(3)
    MsgBox ("Option_Essentielle_Click : taupe : " & taupe)
    'taupe = donner_valeur(Option_Toute, 3)
 
    'If Me.Option_Toute = True Then
    'Call GenerPerimetreActions(3)
    'End If
 
End Sub
 
Public Function Essentielle() As Boolean
 
    MsgBox ("Essentielle : taupe : " & taupe)
    MsgBox ("Essentielle : Etape 1/2")
    MsgBox ("Essentielle : " & Option_Essentielle)
    'If Me.Option_Essentielle = True Then
    If taupe = 1 Then
    MsgBox ("Essentielle : Etape 1 -> Choisie")
    Essentielle = True
    MsgBox ("Essentielle : Etape 1 -> Faite")
    End If
    MsgBox ("Essentielle : Etape 2/2")
 
End Function
 
Public Function Moyenne() As Boolean
 
    MsgBox ("Moyenne : taupe : " & taupe)
    MsgBox ("Moyenne : Etape 1/2")
    MsgBox ("Moyenne : " & Option_Moyenne)
    'If Me.Option_Moyenne = True Then
    If taupe = 2 Then
    MsgBox ("Moyenne : Etape 1 -> Choisie")
    Moyenne = True
    MsgBox ("Moyenne : Etape 1 -> Faite")
    End If
    MsgBox ("Moyenne : Etape 2/2")
 
End Function
 
Public Function Toute() As Boolean
 
    MsgBox ("Toute : taupe : " & taupe)
    MsgBox ("Toute : Etape 1/2")
    MsgBox ("Toute : " & Option_Toute)
    'If Me.Option_Toute = True Then
    If taupe = 3 Then
    MsgBox ("Toute : Etape 1 -> Choisie")
    Toute = True
    MsgBox ("Toute : Etape 1 -> Faite")
    End If
    MsgBox ("Toute : Etape 2/2")
 
End Function
 
Public Sub laquelle()
 
    MsgBox ("laquelle : Etape 1/4")
    If Essentielle = True Then
    MsgBox ("laquelle : Etape 1 -> Choisie")
    Call GenerPerimetreActions(1)
    MsgBox ("laquelle : Etape 1 -> Faite")
    End If
 
    MsgBox ("laquelle : Etape 2/4")
    If Moyenne = True Then
    MsgBox ("laquelle : Etape 2 -> Choisie")
    Call GenerPerimetreActions(2)
    MsgBox ("laquelle : Etape 2 -> Faite")
    End If
 
    MsgBox ("laquelle : Etape 3/4")
    If Toute = True Then
    MsgBox ("laquelle : Etape 3 -> Choisie")
    Call GenerPerimetreActions(3)
    MsgBox ("laquelle : Etape 3 -> Faite")
    End If
 
    MsgBox ("laquelle : Etape 4/4")
 
End Sub

[tee_grandbois]

bonsoir,
habituellement les case d'options sont associées à un contrôle Groupe d'options (l'objet créé se nommera Cadrex où x sera un nombre) et c'est sur l'évènement Click de ce dernier qu'on récupère la valeur de l'option choisie qui démarre à 1 comme te l'a indiqué Robert1957.



Par contre, il faut obligatoirement créer le groupe d'options en premier et ensuite ajouter les cases à l'intérieur du cadre qui devient noir, signe que la case est dépendante du groupe.

[Robert1957]

Bonjour cest_pas_faux,

Pour récupérer une valeur d'un "Groupe d'options" il faut utiliser l'événement dans le groupe d'options et non pas celui de la case à cocher. En supposant que ton "Groupe d'options" se nomme "opMesOptions" sur l'événement afterUpdate le code suivant va te donner la valeur de l'option sélectionner.

Code :

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

1
2
3
4
5
Private Sub opMesOptions_AfterUpdate()
 
    MsgBox "Le résultat est: " & Me.opMesOptions
 
End Sub

Bonne journée

[Invité]

Merci de vos réponses, ducoup je vais prendre une zone de liste déroulante.

J'ai essayé de chercher sur developpez.net et sur Google, mais je ne trouve pas d'exemple correspondant au mien.

J'aimerais associer une variante de GenerPerimetreActions pour *, Essentielle ou Moyenne.

Voici ma démarche :

1) Je clique sur zone de liste déroulante :


2) En mode création, je clique sur la zone de liste que j'ai ainsi créé :


3) Je vais sur Propriétés :


4) Je nomme mon "Menu_Deroulant" :


5) Quand j'ai créé mon menu déroulant, je l'ai lié à une table avec les possibilités suivantes :


6) Et voici de quelle table précisément je suis allé le chercher :


7) Et voilà le code que je lui ai attribué :

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
 
Public Sub Menu_Deroulant_Click()
 
If Me!Sensibilité = "Essentielle" Then
 
    Call GenerPerimetreActions(1)
 
ElseIf Me!Sensibilité = "Moyenne" Then
 
    Call GenerPerimetreActions(2)
 
ElseIf Me!Sensibilité = "Toute" Then
 
    Call GenerPerimetreActions(3)
 
End If
 
End Sub

MON PROBLEME : Il ne reconnaît pas sensibilité


Comment modifier le code pour que ça marche ?

[tee_grandbois]

bonjour,

Me!Sensibilité n'existe pas dans ton formulaire, ce champ n'est connu que dans la requête du contenu de ta liste, d'autant plus que tu affiches "1-Essentielle" et que tu compares à "Essentielle" ici: If Me!Sensibilité = "Essentielle" Then, tu ne tomberas jamais dans aucun des cas si tu ne compares pas correctement tes valeurs.
Il faut tester la valeur retournée par la liste déroulante, dans l'état actuel de ton code je ferai comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Menu_Deroulant_Click()
    Dim strAction as string
    ' on récupère le premier caractère de la valeur de la liste déroulante
    strAction = left(Me!Menu_Deroulant,1)
 
    Select Case strAction
        case "1", "2":  Call GenerPerimetreActions(Val(strAction))
        case "*":  Call GenerPerimetreActions(3)
    End select
 
End Sub

[Invité]

Merci pour ta réponse tee_grandbois, cela marche en effet beaucoup mieux, mais il me met toujours le message d'erreur suivant :

J'essaie de voir ce qui ne va pas.

[Invité]

Et en passant, j'ai deux questions supplémentaires :

1)
Quand j'enlève "Val" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub Menu_Deroulant_Click()
Dim strAction As String
    ' on récupère le premier caractère de la valeur de la liste déroulante
    strAction = Left(Me!Menu_Deroulant, 1)
 
    Select Case strAction
        'Case "1", "2":  Call GenerPerimetreActions(Val(strAction))
        Case "1", "2":  Call GenerPerimetreActions(strAction)
        Case "*":  Call GenerPerimetreActions(3)
    End Select
 
End Sub

Il me met :


Le ByRef, ce n'est pas pour faire intervenir une variable globale dans une fonction, et ne pas changer sa valeur à la sortie de la fonction ?

2) Pourquoi n'avoir pas mis simplement un

Code :

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

1
2
 
strAction = Me!Menu_Deroulant

?

[Invité]

Et concernant la première erreur, je précise que je travaille dans deux formulaires :


Ce programme est dans Temp_SelService:

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
 
Public Sub Menu_Deroulant_Click()
'Dim strAction As String
'    ' on récupère le premier caractère de la valeur de la liste déroulante
'    strAction = Left(Me!Menu_Deroulant, 1)
'
'    Select Case strAction
'        Case "1", "2":  Call GenerPerimetreActions(Val(strAction))
'        Case "*":  Call GenerPerimetreActions(3)
'    End Select
 
Dim strAction As String
    ' on récupère le premier caractère de la valeur de la liste déroulante
    strAction = Me!Menu_Deroulant
 
    Select Case strAction
        Case "1-Essentielle":  Call GenerPerimetreActions(1)
        Case "2-Moyenne":  Call GenerPerimetreActions(2)
        Case "*":  Call GenerPerimetreActions(3)
    End Select
 
End Sub

Et ce programme est dans Traitement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub Commande3_Click()
MsgBox ("TRAITEMENT : Etape 1/5")
Call PrepaSelService
MsgBox ("TRAITEMENT : Etape 2/5")
DoCmd.OpenForm "Temp_SelService"
MsgBox ("TRAITEMENT : Etape 3/5")
AttendreForm ("Temp_SelService")
MsgBox ("TRAITEMENT : Etape 4/5")
Form_Temp_SelService.Menu_Deroulant_Click
MsgBox ("TRAITEMENT : Etape 5/5")

[Invité]

J'ai trouvé, il faut mettre Nz pour lui certifier que la chaine de caractère est différente de NULL :

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
 
Public Sub Menu_Deroulant_Click()
'Dim strAction As String
'    ' on récupère le premier caractère de la valeur de la liste déroulante
'    strAction = Left(Me!Menu_Deroulant, 1)
'
'    Select Case strAction
'        Case "1", "2":  Call GenerPerimetreActions(Val(strAction))
'        Case "*":  Call GenerPerimetreActions(3)
'    End Select
 
Dim strAction As String
    ' on récupère le premier caractère de la valeur de la liste déroulante
    strAction = Nz(Me!Menu_Deroulant)
 
    Select Case strAction
        Case "1-Essentielle":  Call GenerPerimetreActions(1)
        Case "2-Moyenne":  Call GenerPerimetreActions(2)
        Case "*":  Call GenerPerimetreActions(3)
    End Select
 
End Sub

J'ai juste une petite question, j'ai l'impression que quand je call GenerPerimetreActions, il ne l'effectue pas là où je l'ai appelé, càd dans le formulaire traitement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub Commande3_Click()
MsgBox ("TRAITEMENT : Etape 1/5")
Call PrepaSelService
MsgBox ("TRAITEMENT : Etape 2/5")
DoCmd.OpenForm "Temp_SelService"
MsgBox ("TRAITEMENT : Etape 3/5")
AttendreForm ("Temp_SelService")
MsgBox ("TRAITEMENT : Etape 4/5")
Form_Temp_SelService.Menu_Deroulant_Click
MsgBox ("TRAITEMENT : Etape 5/5")
 
End Sub

Quand j'appelle :

Code :

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

1
2
 
Form_Temp_SelService.Menu_Deroulant_Click

J'ai l'impression qu'il ne me fait pas les manip de GenerPerimetreAction. Je précise que GenerPerimetreAction marche correctement.

[tee_grandbois]

Quand j'enlève "Val" :

pourquoi l'enlever ? Je ne fais pas les choses sans savoir (enfin, la plupart du temps, n'étant pas infaillible) ... j'ai bien vu que ton paramètre était numérique, raison pour laquelle je l'ai converti grâce à Val()

J'ai trouvé, il faut mettre Nz pour lui certifier que la chaine de caractère est différente de NULL :

si tu cliques tu sélectionnes forcément quelque chose ... donc NZ est inutile sauf si tu as mis "Limiter à Liste" : Non dans ta liste déroulante et que tu laisses la possibilité de saisir directement une valeur nulle ...
pour le reste je ne répond pas car c'est trop confus ...

[Invité]

Merci beaucoup pour cette réponse tee_grandbois, mais saurais tu pourquoi mon GenerPerimetreAction n'est pas éxécuté dans traitement ?
Quand j'écris :

Code :

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

1
2
 
Form_Temp_SelService.Menu_Deroulant_Click

Je suis censé faire ça :

Code :

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

1
2
3
4
5
6
 
Select Case strAction
        Case "1-Essentielle":  Call GenerPerimetreActions(1)
        Case "2-Moyenne":  Call GenerPerimetreActions(2)
        Case "*":  Call GenerPerimetreActions(3)
    End Select

Et pourtant GenerPerimetreAction n'est pas éxécuté