Boutons d'option

Salut,

Private Sub UserForm_Initialize()
UserForm1.OptionButtonnon = True
UserForm1.OptionButtonoui = False
End Sub

@+
Michel

"Denys" <anonymous@discussions.microsoft.com> wrote in message
news:00a901c3a47e$fd6ed6c0$a101280a@phx.gbl...
Bonjour à tous,

Sur un userform, j'ai mis un "Frame" dans lequel se
trouvent deux boutons d'option. Un pour Oui, et un pour
Non. Je voudrais que le bouton pour Non soit le bouton par
défaut lorsque l'usager clique sur OK, si bien sûr il n'a
pas cliqué sur le bouton Oui au préalable.

Est-ce quelqu'un saurait comment le faire?

Merci beaucoup

Denys

Bonjour,

Voici un exemple simple :

Un UserForm, avec 2 OptionButton, dans un Frame, nommés
"OOui" et "ONon" et un bouton OK nommé "BOK".

Associe le code suivant au UserForm.

Option Explicit
Private Choix As String

Private Sub UserForm_Initialize()
Choix = ""
End Sub

Private Sub BOK_Click()
If Choix = "" Then Choix = "Non"
MsgBox Choix
End Sub

Private Sub OOui_Click()
Choix = "Oui"
End Sub

Private Sub ONon_Click()
Choix = "Non"
End Sub

Bonjour à tous,

Sur un userform, j'ai mis un "Frame" dans lequel se
trouvent deux boutons d'option. Un pour Oui, et un pour
Non. Je voudrais que le bouton pour Non soit le bouton par
défaut lorsque l'usager clique sur OK, si bien sûr il n'a
pas cliqué sur le bouton Oui au préalable.

Est-ce quelqu'un saurait comment le faire?

Merci beaucoup

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com