optionbutton et multipage

[Harold]

Bonjour à tous,

Voilà, j'aimerais pouvoir d'une UserForm où il y a 3 OptionButton arrivé en en sélectionnant un des 3 et cliquant sur le bouton de commande arrivé directement sur la page correspondante (multipage) sur la deuxième UserForm
j'ai déjà essayé quelque chose mais ça ne fonctionne pas et je ne sais pas comment faire

J'ai besoin d'aide

Merci d'avance

 

[Harold]

Re : optionbutton et multipage

J'ai trouvé quelque chose qui fonctionne mais j'aurai besoin de correction, je pense que ça ne va pas, surtout s'il y a plus de feuilles

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
UserForm1.MultiPage1.Value = 0
UserForm1.Show

Else
If OptionButton2 = True Then
UserForm1.MultiPage1.Value = 1
UserForm1.Show
Else
If OptionButton3 = True Then
UserForm1.MultiPage1.Value = 2
UserForm1.Show
End If
End If
End If
End Sub

Merci pour votre aide

 

[Pierrot93]

Re : optionbutton et multipage

Bonjour Harold

essaye peut être ainsi, en utilisant des "ElseIf" successifs dans l'instruction :

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
    UserForm1.MultiPage1.Value = 0
    ElseIf OptionButton2 = True Then UserForm1.MultiPage1.Value = 1
    ElseIf OptionButton3 = True Then UserForm1.MultiPage1.Value = 2
End If
UserForm1.Show
End Sub

bon après midi
@+

 

[Harold]

Re : optionbutton et multipage

Merci Pierro93,

ton code fonctionne super bien, c'est exactement le résultat souhaité.

Encore un grand merci