Case à cocher obligatoire

[JM]

Bonjour à toutes et à tous,
comment faire si je veux obliger l'utilisateur à cocher une case (à cocher justement) avant de quitter le fichier. Exemple: avez vous encore des infos ?
oui (case à cocher) non (case à cocher). Les deux cases sont groupées, ce qui oblige à en donner une des deux, ce qui lance deux macros différentes. mais comment rendre obligatoire ce "cochage" ?
merci
JM

 

[@Christophe@]

Bonjour,

Tous d'abord, tu parles de case à chocher sur une feuille excel je suppose et non dans un userform?

Ta case à chocher, proviennent elle de La bare à outils de contrôle ou de la bare à outils Formulaire!

Merci pour c'est renseignement

@Christophe@

 

[Munchkin]

Bonjour JM

je ne sais pas si ma solution est le bonne, mais je dirais que lors de la validation des choix de l'utilisateur, tu test si les deux valeurs sont vrais ou le fausses.

si c'est le cas tu fais afficher un message d'erreur et tu lui redonne la pssibilité de définir son choix

j'éspère que c'est clair pour toi
Munchkin

 

[@Christophe@]

Re bonjour,

Voici le code à mettre dans Thisworkbook si tes checkbox proviennent de la bare à outils Formulaire:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Checkbox de la bare d'outils Formulaire
If Worksheets("Feuil1").CheckBoxes("Case à cocher 7").Value <> 1 And Worksheets("Feuil1").CheckBoxes("Case à cocher 8").Value <> 1 Then
MsgBox "Veuillez selectionner une des case à cocher svp!"
Cancel = True
End If
End Sub



Voici le code à mettre dans Thisworkbook si tes checkbox proviennent de la bare à outils Boite à outils de contrôle:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Checkbox de la bare d'outils Boite à outils de contrôle
If Worksheets("Feuil1").OLEObjects("CheckBox1").Object.Value <> "Vrai" And Worksheets("Feuil1").OLEObjects("CheckBox2").Object.Value <> "Vrai" Then
MsgBox "Veuillez selectionner une des case à cocher svp!"
Cancel = True
End If
End Sub

bonne journée

@Christophe@


P.S. N'oublie pas de modifie les noms de tes checkbox dans la macro!

 

[JM]

Merci Christophe et Munchkin, je vais tester tout ça
A bientot
JM

 

[NICOLAS666]

Case à cocher et bouton d'option obligatoire userform excel

Bonjour,

J'aimerais avoir du code source pour rendre la saisie obligatoire des cases à cocher et des boutons d'option dans un formulaire Excel.

D'avance merci