2 conditions avec optionbutton

Version imprimable

15/10/2014, 17h10
markym

2 conditions avec optionbutton
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:

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

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:

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 ...

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:

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é.

16/10/2014, 22h49
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

Bonjour,

Teste ceci et bien sûr, adapte :

Code:

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é.

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:

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

17/10/2014, 19h43
HopPopPop

A essayer
Bonsoir à tous,
Code:

1 2 3 4 Sheets("Données").Select For i = 1 To 500 If Cells(i, 10) < Mini Or Cells(i, 10) > Maxi Then Cells(i, 79) = 1 Next
Si j'ai bien compris : toute valeur < au Mini ou > au Maxi doit passer à 1 ...

La solution de Theze avec l'instruction "Switch"est intéressante et simplifie grandement.

Attention :
Il faut que les 6 OptionButton (3 mini et 3 maxi) soient dans 2 groupes différents.

Comment les valeurs de Mini et Maxi sont elles récupérées ? je n'ai changé que le caption...

Mini = Switch(.OptionButton1, 180, .OptionButton2, 185, .OptionButton3, 190)
Maxi = Switch(.OptionButton4, 200, .OptionButton5, 205, .OptionButton6, 210)

voici mon code pour lequel la valeur de Mini et MAxi est 0..

Code:

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
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, 185, .OptionButton3, 190)
        Maxi = Switch(.OptionButton4, 200, .OptionButton5, 205, .OptionButton6, 210)
 
    End With
 
    if Err.Number <> 0 Then
    Exit Sub
 
 
                For i = 3 To 19
                    If Cells(i, 4).Value < Mini Or Cells(i, 4) > Maxi Then
                       Cells(i, 5) = 1
                    End If
                Next i
 
 
    ActiveWorkbook.RefreshAll
    Sheets("Diagramme_bar_defaut").Select

18/10/2014, 22h04
markym
Code:

1 2 Mini = Switch(OptionButton1 = True, 180, OptionButton2 = True, 185, OptionButton3 = True, 190) Maxi = Switch(OptionButton4 = True, 200, OptionButton5 = True, 205, OptionButton6 = True, 210)
j'ai finalement trouvé la solution :)

C'était probablement dû à la versions d'Excel étant donné que je navique entre Excel 2007 et Excel 2010....

bref merci à vous de m'avoir bien aidé!