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

Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
- - Dernière réponse : clovis7
Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
- 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
Messages postés
316
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
31 août 2006
1
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 108 internautes nous ont dit merci ce mois-ci

Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
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.