Msgbox sur test groupname ?

[guenfood]

Bonjour,

J'ai un USF avec de nombreux OptionButtons, répartis par groupname.

Est-il possible de faire un contrôle sur un groupname et non pour chaque OptionButton, pour que si un Groupname est vide (pas d'optionbutton de coché), j'ai une msgbox qui me prévienne que rien n'est coché ?

Merci par avance.

 

[ERIC S]

Bonjour

dans les applis standards (vu de ma fenêtre) le principe des optionbutton est d'en avoir toujours un coché

A l'initialisation de l'usf, il vaudrait mieux définir une configuration par défaut

A+

 

[guenfood]

Pour convenance personnelle, je préfère que tous les optionbuttons soient vierges, car c'est pour un questionnaire à soumettre à des partenaires.
Et je veux être sûr que toutes les questions soient traitées sans oubli(si une valeur par défaut, il peut y avoir une omission et le questionnaire est faussé).

Je ne sais pas si je suis bien clair

 

[ERIC S]

re

je n'ai rien trouvé sur un test d'état au niveau groupname

Désolé

A+

 

[guenfood]

Personne n'a une idée sur une possibilité éventuelle ?

 

[MichelXld]

bonsoir Guenfood , bonsoir Eric

j'espere que cet exemple pourra t'aider

Private Sub CommandButton1_Click()
Dim i As Integer, X As Integer

For i = 1 To 7 '7 est le nombre total d'OptionButton dans l'UserForm
If Controls('OptionButton' & i).GroupName = 'GR1' Then

If Controls('OptionButton' & i).Object.Value = True Then
MsgBox 'Il y a un OptionButton de sélectionné'
Exit Sub
End If

End If
Next i

MsgBox 'Il n'y a pas d'OptionButton sélectionné'
End Sub


bonne soirée
MichelXld