Bonjour,

Sur mon formulaire j’ai plusieurs cases à cocher et je voudrais
afficher un message
« Vous devez cocher une case »
Lorsque toutes les cases sont décocher, et poursuivre le code
lorsqu’une case et cocher.

Merci de votre aide.

Salutations

Jacques wrote:
> Bonjour,
>
> Sur mon formulaire j’ai plusieurs cases à cocher et je voudrais
> afficher un message
> « Vous devez cocher une case »
> Lorsque toutes les cases sont décocher, et poursuivre le code
> lorsqu’une case et cocher.
>
> Merci de votre aide.
>
> Salutations
Bonjour jaques

If nz(case1,false) or nz(case2,false) or nz(case3,false) or ... or
nz(casen,false) then
Suite du code
else
Msgbox "Faut cocher !!!"
end if
***+

bonjour Jacques
tu met dans le code vba:
if isnull(case) then
msgbox "Vous devez cochez une case !"
else
suite du code a 'effectuer si une case est cochée
end if
roger
http://le-meruvien.skynetblogs.be/



"Jacques" <jg1***neuf.fr> a écrit dans le message de news:
d2786fde-3a83-40ba-9d1b-c091985d2aef...oglegroups.com...
Bonjour,

Sur mon formulaire j’ai plusieurs cases à cocher et je voudrais
afficher un message
« Vous devez cocher une case »
Lorsque toutes les cases sont décocher, et poursuivre le code
lorsqu’une case et cocher.

Merci de votre aide.

Salutations

On 11 juil, 13:40, Fabien <UrbaniakFabienx...***Neuf.fr> wrote:
> Jacques wrote:
> > Bonjour,
>
> > Sur mon formulaire j’ai plusieurs cases à cocher et je voudrais
> > afficher un message
> > *** « Vous devez cocher une case »
> > Lorsque toutes les cases sont décocher, et poursuivre le code
> > lorsqu’une case et cocher.
>
> > Merci de votre aide.
>
> > Salutations
>
> Bonjour jaques
>
> If nz(case1,false) or nz(case2,false) or nz(case3,false) or ... or
> nz(casen,false) then
> *** *** *** *** Suite du code
> else
> *** *** *** *** Msgbox "Faut cocher !!!"
> end if
> ***+

Bonjour Fabien,

Merci pour ta réponse, mais bien que non cochées mes cases peuvent
prendre pour valeurs:
Null
""
0
Comment faire passer tous cela ?

Et lorsqu'on à un grand nombre de cases y-à-t'il une autre solution ?

Salutations

Jacques a écrit :
> On 11 juil, 13:40, Fabien <UrbaniakFabienx...***Neuf.fr> wrote:
>> Jacques wrote:
>>> Bonjour,
>>> Sur mon formulaire j’ai plusieurs cases à cocher et je voudrais
>>> afficher un message
>>> « Vous devez cocher une case »
>>> Lorsque toutes les cases sont décocher, et poursuivre le code
>>> lorsqu’une case et cocher.
>>> Merci de votre aide.
>>> Salutations
>> Bonjour jaques
>>
>> If nz(case1,false) or nz(case2,false) or nz(case3,false) or ... or
>> nz(casen,false) then
>> Suite du code
>> else
>> Msgbox "Faut cocher !!!"
>> end if
>> ***+
>
> Bonjour Fabien,
>
> Merci pour ta réponse, mais bien que non cochées mes cases peuvent
> prendre pour valeurs:
> Null
> ""
> 0
> Comment faire passer tous cela ?
>
> Et lorsqu'on à un grand nombre de cases y-à-t'il une autre solution ?
>
> Salutations
Salut Jacques
pour tester les cases si elles sont nombreuses
Soit tu les numérote Case1 Case2 Case3 ect et tu peux faire un

Dim I as integer
Dim Pas_coche as boolean
Pas_coche=False
For i=1 to 3
If me("Case" & I)=null or Me("Case" & i ) = 0 or me("case" & i)="" then
Pas_cocher=true
exit for
end if
Next
If Pas_Cocher then
Msgbox ("Veuillez cocher une case minimum svp !!")
end if

Seconde solution
Dim Mes_Cases as control
Dim Pas_cocher as boolean

Pas_Cocher=false
For each Mes_Cases in controls
If Mes_cases.Properties("ControlType") = 106 Then
If mes_cases.value=null or mes_case.value="" or mes_cases.value=0 then
Pas_cocher=true
exit for
next
If Pas_cocher then .....
***+