Discussion :

[lilp1]

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 vba :

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

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

[zandru]

Bonjour,

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

Code vba :

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

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

[lilp1]

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

Code vba :

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

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

?

[zandru]

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 :

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

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

[lilp1]

Code vba :

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

[zandru]

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 ?

[Minick]

Salut,

Plutot comme ca:

Code :

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

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