Discussion :

[Gremandine]

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 :

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

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...

Existe-t-il un moyen plus simple de rendre obligatoire la saisie d'une des ces trois cases...

Merci par avance de votre aide.

[rjamin]

Bonjour,

Je mettrais plutôt

Code :

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

1
2
3
IF IsNull(Me.Cocher172) AND IsNull(Me.Cocher174) AND IsNull(Me.Cocher176) Then
MsgBox("Mon texte")
End If

[Gremandine]

Merci de votre réponse, mais .......
Au secours, ca ne marche toujours pas...

J'ai simplifier le programme pour le test mais rien n'y fait

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CadreRNCI1_Exit(Cancel As Integer)
 
If IsNull(Me.Cocher172) Then
 
MsgBox ("saisir une valeur")
 
End If
 
End Sub

Et du coup, même quand la case à cocher n'est pas renseigner, le msgbox ne s'affiche pas.

J'ai aussi tester en mettant une valeur 'Me.Cocher172 <> 1' (vu que c'est dans un groupe d'option) mais il me mets un message d'erreur "Expression sans parametre"

[Jazz_]

Bonjour,

Du coup, le problemme ne vien pas de la mais plutot de l'evenement ciblé par ta sub non ?
Aprés, je suis un debutant, mais il me semble que cibler sur l'evenement exit n'es pas trés optimal puisque le form se quitte a ce moment la ?
( Mais peutetre que je dis des grosses bettises. )

[Gremandine]

J'ai mis le programme ici car c'est en quittant le groupe d'option que je souhaite verifier qu'une des cases à cocher du groupe est renseigné... Mais après je suis comme toi, j'en sais pas plus...

[rjamin]

Bonjour,

Voyez le tuto suivant :

http://starec.developpez.com/tuto/groupeoptions/

Vous verrez que dans un groupe d'option il peut y avoir trois valeurs pour les cases à cocher
Coché Décoché Indéterminé
Vrai,____ Faux_____Null

[Gremandine]

Merci beaucoup, j'ai trouvé mon bonheur... C'était tout simple en fait, je le faisais sur les cases à cocher alors qu'il fallait le faire sur le groupe d'option.

Voici mon code, si quelqu'un a le même souci que moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CadreRNCI1_Exit(Cancel As Integer)
'Si aucune des cases du groupe d'option n'est cochée, affichage d'un message'
 
If Me.CadreRNCI1.Value = 0 Then
 
    MsgBox "Veuillez cocher une case"
 
End If
 
End Sub

Merci de votre aide, de la rapidité de vos réponses, votre forum est vraiment très bien.