[RESOLU]Obliger la selection d'un option button

[nrdz83]

Bonjour à tous,

dans un userform j'ai deux optionbutton relié au groupnam Valeur le code ci-dessous

'attribut les options boutons Valeur
For Each Ctrl In Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl And Ctrl.GroupName = "Valeur" Then
Valeur = Ctrl.Caption
Exit For
End If
End If

Je voudrais obliger le coche d'un des deux option button comment dois-je procéder?

par avance merci

AMitiés

 

[Pierrot93]

Re : Obliger la selection d'un option button

Bonjour,


pas tout compris de ton problème... défini la propriété value d'une des deux à "true" dans la fenêtre propriété...

bonne journée
@+

 

[nrdz83]

Re : Obliger la selection d'un option button

Bonjour pierrot,

j'utilise ce code pour obliger à renseigner une textbox

If Me.Txt_1.Text = "" Then
MsgBox "vous devez renseigner la désignation du matériel!"
Me.Txt_1.SetFocus
Exit Sub
End If

je cherche le même genre pour obliger à renseigner l'optionbutton avant la validation des données.

merci de l'aide apporté

 

[Pierrot93]

Re : Obliger la selection d'un option button

Re,

regarde ceci, à placer dans le module de l'userform :

Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = OptionButton1 + OptionButton2 = 0
If Cancel Then MsgBox "cocher option..."
End Sub

 

[nrdz83]

Re : Obliger la selection d'un option button

Super pierrot93 encore merci.

Désolé je pensais avoir répondu et cloturé ce sujet, mille pardons

amitiés

 

[Pierrot93]

Re : [RESOLU]Obliger la selection d'un option button

Re,

pas de souci....