Select Case et boutons d'option

Version imprimable

14/08/2008, 17h34
ruzakruzak

Select Case et boutons d'option
hello !

Question un peu théorique.

J'ai une macro - qui fonctionne nickel avec des cases à cocher et des If Then Else - que je souhaite modifier en lui faisant une nouvelle interface, qui contient 6 boutions d'option destinés à sélectionner une version particulière du document PowerPoint produit par la macro.

J'aimerais récupérer le nom du bouton sélectionné pour en faire un argument pour un Select Case.

Pour le moment mon idée est la suivante :
Code:

1 2 3 4 5 6 select case MonInterface.NomDuGroupeDeBoutons.Selected case "bouton1" ...mon code ici... case "bouton1" ...mon code ici... end select
mais je suis presque certain que ça foire !!

Quelle est la syntaxe à employer ??

D'avance, merci pour vos suggestions
15/08/2008, 05h45
Singular

Il ne peut y avoir qu'un Case "bouton1"; l'autre devrait s'appliquer à un autre nom, "bouton2", par exemple.

En plus, il faut que le type de MonInterface.NomDuGroupeDeBoutons.Selected soit Variant/String ou String. Si c'est un Boolean, ça ne fonctionnera pas.

utilise une variable

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()
Select Case Var
Case 1
mon code 1
Case 2
mon code 2
Case 3
mon code 3
End Sub
 
Private Sub OptionButton1_Click()
Var = 1
End Sub
Private Sub OptionButton2_Click()
Var = 2
End Sub
Private Sub OptionButton3_Click()
Var = 3
End Sub

Tu peux tester ça

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()
    For Each Check In Me.Controls
        If TypeName(Check) = "OptionButton" Then 'pas obligatoire mais peut éviter de passer d'autre contrôles en "revue"
            Select Case True
                Case Me.OptionButton1
                    MsgBox "OptionButton1"
                    Me.OptionButton1 = False
                Case Me.OptionButton2
                    MsgBox "OptionButton2"
                    Me.OptionButton2 = False
                Case Me.OptionButton3
                    MsgBox "OptionButton3"
                    Me.OptionButton3 = False
                Case Me.OptionButton4
                    MsgBox "OptionButton4"
                    Me.OptionButton4 = False
            End Select
        End If
    Next
End Sub

Mais tu ne dis pas si tes contrôles sont sur une feuille de calculs ou dans une userform.
Bonne soirée

Edit
Déclare Check as control

Suggestions...

no 1:
Moi je mettrait la valeur du bouton cliqué dans une variable globale privée.

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
Private ValeurOption As String
 
Private Sub OptionButton1_Click()
    ValeurOption = OptionButton1.Caption
End Sub
 
Private Sub OptionButton2_Click()
    ValeurOption = OptionButton2.Caption
End Sub
 
Private Sub OptionButton3_Click()
    ValeurOption = OptionButton3.Caption
End Sub
 
Private Sub MonBouton_Click()
    Select Case ValeurOption
      Case "Yeux bruns"
        ' Dis bonjour
      Case "Cheveux courts"
        ' Un petit shampoing suffit...
      Case "Porte des lunettes"
        ' Écris plus gros
      Case Else
        ' Si aucun, va faire un tour...
    End Select
End Sub

Et s'il y a plus que trois ou quatre boutons d'option, j'opterais pour une ListBox à choix unique (valeur par défaut de la propriété Multiselect qui est 0 - fmMultiSelectSingle). La valeur de l'item d'une ListBox étant plus facile à attraper.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MonBouton_Click()
    Select Case ListBox1.Text  ' Grosse différence !
      Case "Yeux bruns"
        ' Dis bonjour
      Case "Cheveux courts"
        ' Un petit shampoing suffit...
      Case "Porte des lunettes"
        ' Écris plus gros
      Case Else
        ' Si aucun, va faire un tour...
    End Select
End Sub

Hello zaza, 'a te fais rien que je retienne ton idée, mais en modifiant un peu ? ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub OptionButton1_Click()
macro ActiveControl.Name
End Sub
 
Private Sub OptionButton2_Click()
macro ActiveControl.Name
End Sub
 
Private Sub OptionButton3_Click()
macro ActiveControl.Name
End Sub
 
Private Sub OptionButton4_Click()
macro ActiveControl.Name
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub macro(LeCheck As String)
    Select Case True
        Case Me.Controls("OptionButton1")
            MsgBox "OptionButton1"
        Case Me.Controls("OptionButton2")
            MsgBox "OptionButton2"
        Case Me.Controls("OptionButton3")
            MsgBox "OptionButton3"
        Case Me.Controls("OptionButton4")
            MsgBox "OptionButton4"
    End Select
End Sub

Mais on devrait pouvoir simplifier si les optionbuttons étaient dans un cadre (frame) non ?
Bonne journée
(dis donc, tu te lèves bien tôt pour un dimanche ! :( )

17/08/2008, 16h38
Gorfael

Salut à toutes et tous
Une autre proposition
A+