Discussion :

[markym]

Bonjour à tous,

j'aimerias avoir des renseignements à propos des optionbutton des formulaires.

j'ai fait 2 groupes de 3 optionbutton :

le 1er groupe constitue des critères minimum : < 180;<190<200
le 2ème groupe constitue des critères max :>220>230>240

l'utilisateur devant choisir un critere min et un critere max uniquement.

j'aimerais donc pouvoir sélectionner un critere min et un critere max :

du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Select Case True
Case OptionButton1.Value and OptionButton4.Value 
 
...conditions
 
Case OptionButton1.Value and OptionButton5.Value 
 
...conditions
 
....
 
end select

Evidemment ça ne marche pas, je pense qu'il faut passer par les groupes..ou je ne sais pas..

bref pouvez vous m'aider ?

Merci d'avance

[Jean-Philippe André]

Salut,

l'utilisation du Select Case dans ta configuration n'est pas forcément le plus adapté.

Pars dans un premier temps sur un plus simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Option1 Then
   If OptionA Then
   ElseIf OptionB Then
   ElseIf OptionC Then
   End If
ElseIf Option2 Then
   If OptionA Then
   ElseIf OptionB Then
   ElseIf OptionC Then
   End If
...

[Theze]

Bonjour,

Tu peux aussi utiliser la fonction Switsh qui retourne une valeur en fonction du choix. Ici la proc est celle d'un bouton posé sur la Form, à adapter :

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
 
Private Sub CommandButton1_Click()
 
    Dim Maxi As Integer
    Dim Mini As Integer
 
    On Error Resume Next 'si aucun n'a été cliqué !
 
    With Me
 
        Mini = Switch(.OptionButton1, 180, .OptionButton2, 190, .OptionButton3, 200)
        Maxi = Switch(.OptionButton4, 220, .OptionButton5, 230, .OptionButton6, 240)
 
    End With
 
    If Err.Number = 0 Then MsgBox "La valeur mini est : " & Mini _
                                  & vbCrLf & _
                                  "La valeur maxi est : " & Maxi
 
End Sub

Hervé.

[markym]

merci beaucoup pour ces 2 réponses mais je n'y arrive toujours pas

en fait je bloque sur les 2 conditions :

il faudrait que j'ai : 1 optionbutton sélectionné dans chaque groupe (mini :180,190,200 et maxi :220,230,240)

ensuite :

si optionbutton 180 et 220 sont sélectionnés alors :

les valeurs en dessous de 180 et au dessus de 220 sont égales à 1

si optionbutton 180 et 230 sont sélectionnés alors :

les valeurs en dessous de 180 et au dessus de 230 sont égales à 1

si optionbutton 180 et 240 sont sélectionnés alors :

les valeurs en dessous de 180 et au dessus de 240 sont égales à 1


etc....

en espérant avoir été plus clair

il me semble que ta proposition Theze s'en rapproche mais j'ai du mal à la comprendre

[Theze]

Bonjour,

Teste ceci et bien sûr, adapte :

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
 
Private Sub CommandButton1_Click()
 
    Dim Maxi As Integer
    Dim Mini As Integer
    Dim ValeurMini As Single
    Dim ValeurMaxi As Single
 
    On Error Resume Next 'si aucun n'a été cliqué !
 
    With Me
 
        Mini = Switch(.OptionButton1, 180, .OptionButton2, 190, .OptionButton3, 200)
        Maxi = Switch(.OptionButton4, 220, .OptionButton5, 230, .OptionButton6, 240)
 
    End With
 
    If Err.Number <> 0 Then Exit Sub
 
    'pour le test car je ne sais pas d'où elles viennent ?
    ValeurMini = 165.5
    ValeurMaxi = 225.2
 
    If Mini = 180 And Maxi = 220 Then ValeurMini = 1: ValeurMaxi = 1
 
    If Mini = 180 And Maxi = 230 Then ValeurMini = 1: ValeurMaxi = 1
 
    If Mini = 180 And Maxi = 240 Then ValeurMini = 1: ValeurMaxi = 1
 
    MsgBox "Valeur mini : " & ValeurMini & vbCrLf & "Valeur maxi : " & ValeurMaxi
 
End Sub

Hervé.

[markym]

merci Theze,

j'aimerais maintenaint pouvoir récupérer les 2 valeurs maxi et mini

en effet le code " if mini = 180 and maxi = 220 then " ne marche pas ce serait trop facile


as tu une solution ?
je me rapproche doucement je pense

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

Private Sub bouton_Go_Click()
MsgBox ("bonjour")
 
    Dim Maxi As Integer
    Dim Mini As Integer

    Dim i As Integer
 
    On Error Resume Next 'si aucun n'a été cliqué !
 
    With Userformepaisseur
 
        Mini = Switch(.OptionButton1, 180, .OptionButton2, 190, .OptionButton3, 200)
        Maxi = Switch(.OptionButton4, 200, .OptionButton5, 210, .OptionButton6, 220)
 
    End With
 
    If Err.Number <> 0 Then Exit Sub
 
    
             If Mini = 180 And Maxi = 220 Then             
                Sheets("Données").Select

                For i = 1 To 500
                    If Cells(i, 10).Value < 180 And Cells(i, 10).Value > 200 Then
                    Cells(i, 79).Value = 1
     
                    End If
                Next i
             End If
    
    End If
    ActiveWorkbook.RefreshAll
    Sheets("Diagramme_bar_defaut").Select

End Sub