Discussion :

[Mél3790]

Bonjour le Forum,

J'ai un petit soucis, qui parait banal, mais me pose problème ...

Dans un Frame j'ai 4 boutons d'option, qui, à l'ouverture de mon Userform sont en position "False" volontairement.

Au moment de remplir le Userform, et avant de valider les saisies, mes codes vérifient si mes textbox sont remplies etc ...

Par contre, il faut que la personne qui remplissent le formulaire fasse son choix parmi 4 boutons d'option. Donc 1 des quatre bouton d'option doit être en "True" pour pouvoir valider le formulaire.

Si aucun n'est en "True", il faut un msgbox "Veuillez faire votre choix parmi les 4 propositions" qui empêche de continuer.

Merci d'avance.

[unparia]

Bonjour
Fais l' "addition" des propriétés Value de tes optionbuttons.
Si = 0, aucun n'a été coché
Pour ton info
True et False sont des valeurs
regarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
msgbox true + true
msgbox true + false
msgbox false + false

A partir de là, le reste est super-évident.

[Mél3790]

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If OB1 & OB2 & OB3 & OB4 & OB5 = False Then
        msg = "Veuillez faire un choix"
        Style = vbOKOnly + vbExclamation
        Title = "Choix ?"
        Response = MsgBox(msg, Style, Title)
    Exit Sub
End If

Cela fonctionne bien avec les textbox (.value = "" Then),

Mais je galère toujours malgré ton aide

Je n'ai pas du tout bien comprendre lol

[Invité]

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If OB1 & OB2 & OB3 & OB4 & OB5 = False Then
 
End If

regarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
msgbox true + true
msgbox true + false
msgbox false + false

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OB1 + OB2 + OB3 + OB4 + OB5 = False Then

[Mél3790]

Haaaa Yes !!

Suis un peu blonde parfois ...

Impeccable merci beaucoup