Bonjour à tous,
Je fais appel à vous car j'ai un petit souci concernant des cases à cocher. Je voudrais qu'au sein d'un groupe d'option, au moins une case à cocher soit renseignée, sachant que j'ai trois cases à cocher dans un groupe d'option.
j'ai fait le programme suivant :
Le souci c'est que je n'ai pas réussi à paramétrer l'index tabulation des cases à cocher donc du coup, mon programme ne s'exécute pas en entier... Et donc pas de messaga quand les trois cases sont vides...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub CadreRNCI1_Exit(Cancel As Integer) If IsNull(Me.Cocher172) Then If IsNull(Me.Cocher174) Then If IsNull(Me.Cocher176) Then MsgBox "Cocher une des cases", vbExclamation Cancel = True End If End If End If End Sub
Existe-t-il un moyen plus simple de rendre obligatoire la saisie d'une des ces trois cases...
Merci par avance de votre aide.
Partager