Discussion :

[tetanos34]

Bonjour,

Apres m’être bien renseigné via : http://starec.developpez.com/tuto/groupeoptions/
Je n'arrive pas a trouver de solution a mon problème. Mes case d'option sont toujours coché, alors que je voudrais qu'elles soient décochées.

J'ai des formulaires ou je dois cocher une ou plusieurs options, derrière mes cases d'options se trouve une valeur par Default que j'ai paramétré moi même (pour le besoin de requêtes). Je crois que le problème viens de la, car si je ne met pas de valeur par défaut ma case est décochée.

J'ai fait plusieurs tentative dans le code

Code :

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

1
2
Private Sub Ctl2B_1_Click()
Me.Ctl2B_1.Value = False

J'ai essayer Select case ...
Je ne trouve pas de solution pour que ma case d'option sois décochée par defaut ....

Pouvez-vous m'aidez ?

[loufab]

Bonjour,

Que représente Ctl2B_1 ?

C'est peut-être là qu'est le problème...

Cordialement,

[tetanos34]

C'est possible,

j'ai l'impression que cela représente ma case d'option. Quand je suis en mode création de mon formulaire je clic sur la case d'option puis je vais dans la feuille de propriété et dans "Sur clic" je vais dans procédure événementielle. Cela m’amène directement dans la console VBA sur

Code :

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

Private Sub Ctl2B_1_Click().

Dans mon exemple j'ai appeler une de mes case d'option 2B_1 ce qui représente pour moi 2 Branche choix N°1 j'ai aussi la 2B_2, 3B_1, 3B_2 .......

[loufab]

Si tes cases à cocher/bouton d'option/... sont déliées c'est le bon événement, par contre si elle fait partie d'un groupe d'options l'événement click est celui du groupe d'option (le cadre).

[tetanos34]

Elles sont effectivement déliée. Du coup c'est le bon endroit ... Je pense vraiment que c'est la valeur par défaut qui m'oblige a cocher a cette case ...

PS : Après je suis pas très douée en VBA. Donc peux être je me trompe dans le code, j'ai réussi jusqu’à maintenant a empêcher des messages d'avertissements et a obliger un formulaire vider les entrées qu'on a pu mettre auparavant, une genre de remise a 0.

[Zekraoui_Jakani]

J'ai créé un formulaire simple pour illustrer la situation:


Le cadre d'options s'appelle "FrameOptions"
A l'ouverture du formulaire, je force toutes les options à zéro (décochées), via

Code :

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

1
2
3
Private Sub Form_Load()
    Me.FrameOptions.Value = 0
End Sub

et j'obtiens l'option choisie par l'utilisateur via:

Code :

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

1
2
3
Private Sub FrameOptions_AfterUpdate()
    Debug.Print "Option choisie = " & Me.FrameOptions.Value
End Sub

[tetanos34]

I'm Back !

Du coup je n'y arrive toujours et je pense que ma façon de faire a été mauvaise au début.
Je vous explique, voila a quoi ressemble un de mes formulaires avec des cases d'options


Les deux case sont malheureusement coché par default ...

Ceci est a cause de cela je pense



Donc si la case de l'option 2 est coché j'ai une requête qui prend la valeur (2) et recherche cette valeur dans une table pour la mettre a jour et mettre (-1).
Du coup si je fait comme tu préconises et que je met value = 0, c'est super effectivement la case décochée, mais la valeur a l’intérieur n'est plus la bonne et ma requête de mise a jour va faire un flop.

Ici c'est un exemple simple mais j'ai un formulaire avec 6 branches et chaque case d'option a une valeur
1=1
2=2
3=3
4=4
.... exemple :



Je pense que je n'aurai pas du créer ma requête sur la valeur de la case d'option et trouver un autre systeme. Sauf si par magie vous me sortez une belle solution, ce sera tant pis ....

[loufab]

Tu peux utiliser la propriété Remarque de chaque case à cocher pour indiquer la bonne valeur.

Dans la case qui représente le 1 tu écrits 1 dans Remarque.
2 dans la 2, 3 dans la 3.

Puis tu composes ta requête en te servant de remarque pour mettre la bonne valeur dedans.

Ici un exemple avec des contrôles.

Sur clic d'un des cases :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Ctl2B_1_Click()
 
if Me.Ctl2B_1 then
   me.controle.value = Me.Ctl2B_1.tag
else
   me.controle.value = null
endif
 
end sub

Pour la requête c'est trivialement équivalent.

Cordialement,

[tetanos34]

Superbe !
Ça fonctionne.

Merci beaucoup en tout cas