Bouton Radio et Bouton Valider

Bonjour, j'ai créer sur une feuille excel, une petite zone, ou l'on doit choisir entre plusieurs bouton radio, puis on doit clicker sur un bouton valider. Voici le code de mon bouton valider :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Bouton7_QuandClic() If Casdoption11_QuandClic = True Then Call ImporterAuxiliaire ElseIf Casdoption12_QuandClic = True Then Call ImporterGénéraux ElseIf Casdoption13_QuandClic = True Then Call ImporterSection ElseIf Casdoption14_QuandClic = True Then Call ImporterPGI Else casdoption15_QuandClic = True End If End Sub
Les appels marchent bien car j'avais essayer avec 'Select Case' au lieux de 'If' mais se me prennaient tout le temps le premier cas. Comment fait-on pour recuperer la valeur du bouton radio selectionner dans le bouton valider?
D'avance merci

Bonjour,

si c'est des optionbutton, utilise optionbutton.Value :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton7_QuandClic()
    If Casdoption11.Value = True Then
        Call ImporterAuxiliaire
    ElseIf Casdoption12.Value = True Then
        Call ImporterGénéraux
    ElseIf Casdoption13.Value = True Then
        Call ImporterSection
    ElseIf Casdoption14.Value = True Then
        Call ImporterPGI
    Else
    casdoption15.Value = True
    End If
End Sub

Et pour ton application, un select case est effectivement plus approprié.

Salut,

Plutot comme ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton7_QuandClic()
    If Casdoption11.Value = True Then
        Call ImporterAuxiliaire
    ElseIf Casdoption12.Value = True Then
        Call ImporterGénéraux
    ElseIf Casdoption13.Value = True Then
        Call ImporterSection
    ElseIf Casdoption14.Value = True Then
        Call ImporterPGI
    Else
    casdoption15.Value = True
    End If
End Sub

++
Minick

EDIT : désolé zandru, pas rafraichi...

Au lieux de mettre Casdoption11.value, il faudrait que je mette
Code:

1 2 3 Select case case1 optionbutton1.Value = true Then 'traitement case2 optionbutton2.value = true then 'traitement
?

Pour utiliser un select case avec des optionbutton, il faut les regrouper dans un frame, et vérifier leur valeur suivant leur index.
par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim ob As Control For Each ob In Frame1.Controls If ob.Value = True Then Select Case ob.TabIndex Case 0 'traitement Case 1 '... End Select End if Next
Ce n'est pas forcement plus simple que des if ;), mais c'est plus joli:mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Bouton7_QuandClic()
Dim ob As Control
For Each ob In Frame1.Controls
    If ob.Value = True Then
        Select Case ob.TabIndex
            Case 0
            Call ImporterAuxiliaire
            Case 1
            Call ImporterGénéraux
            Case 2
            Call ImporterSection
            Case 3
            Call ImporterPGI
        End Select
    End If
Next
End Sub

Ce code me renvoit l'erreur suivante :
erreur d'execution '424' :
Objet requis
Et il me souligne la ligne suivante :
For Each ob In Frame1.Controls

Citation:

Envoyé par lilp1

Ce code me renvoit l'erreur suivante :
erreur d'execution '424' :
Objet requis
Et il me souligne la ligne suivante :
For Each ob In Frame1.Controls

Tu as bien créé un frame nommé "frame1" où tu as déplacé tes optionbutton ?

Je m'étais trompé, dsl, j'avait oublier d'affecter la valeur des boutons radios a une cellule pour ensuite recuperer la valeur de la cellule et donc de quel bouton a été valider.
Merci pour votre aide