Bouton d'option et lien vers userform ou feuille excel [Résolu]

clovis7 20 Messages postés vendredi 17 mars 2006Date d'inscription 21 mai 2008 Dernière intervention - 31 mars 2006 à 12:09 - Dernière réponse : clovis7 20 Messages postés vendredi 17 mars 2006Date d'inscription 21 mai 2008 Dernière intervention
- 1 avril 2006 à 01:43
Bonjour à tous.



Ceci est sans doute très simple mais étant débutant, je lutte.



Alors voila, j'ai un UserForme avec 3 boutons d'options ronds et un bouton de commande qui valide la selection.

Je veux faire un choix parmis les 3 boutons d'options, une fois ce
choix effectué je valide avec le bouton de commande. Là je voudrais
qu'excel ou vba me renvoi soit vers un feuille soit vers un autre
userform. Il y aurait donc 3 feuilles ou 3 userform qui correspondent à
chacun des 3 boutons d'options.



Comment faire ?



Merci de votre aide.
Afficher la suite 

2 réponses

Meilleure réponse
Tuning Max 316 Messages postés mercredi 15 juin 2005Date d'inscription 31 août 2006 Dernière intervention - 31 mars 2006 à 15:54
3
Merci
Bon si tu as regroupé tes trois bouton dans un "cadre groupe d'option" (c'est le mieux), là pas de problème.
Tu affecte a chacun de tes boutons une valeur de 1 à 3 puis sur l'événement click de ton bouton, tu test la valeur coché

If Me.Cadre1.value = 1 Then
UserForm1.Show
UserFormOption.Hide
ElseIf Me.Cadre1.value = 2 then
UserForm2.Show
UserFormOption.Hide
ElseIf Me.Cadre1.value = 3 then
UserForm3.Show
UserFormOption.Hide
End If

Maintenant je ne suis pas sûr que les groupes d'options soit disponibles sous Excel (c'est que je ne développe plus trop sous Excel). Aussi tu risque d'avoir plutôt trois boutons sans le groupe. Dans ce cas cela diffère un peut mais pas beaucoup.

If Me.OptionButton1.Value = -1 Then
UserForm1.Show ' Pour afficher un formulaire
UserFormOption.Hide 'Pour masquer un formulaire
ElseIf Me.OptionButton1.Value = -1 Then
UserForm2.Show
UserFormOption.Hide
ElseIf Me.OptionButton1.Value = -1 Then
UserForm2.Show
UserFormOption.Hide
End If

Par contre je te conseil de rajouter sur chacun de tes 3 boutons dans l'événement click

Private Sub OptionButton1_Click()
If Me.OptionButton1.Value = -1 Then
Me.OptionButton2.Value = 0
Me.OptionButton3.Value = 0
End If
End Sub

Afin d'éviter que tes utilisateurs ne puisse sélectionner plusieurs options avant d'appuyer sur ton bouton de validation.
Voilà, j'espère avoir pu t'aider un peu et surtout d'avoir été clair

Merci Tuning Max 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

clovis7 20 Messages postés vendredi 17 mars 2006Date d'inscription 21 mai 2008 Dernière intervention - 1 avril 2006 à 01:43
0
Merci
Merci Tuning Max !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.