Exploitation d'un formulaire en vba [Résolu]

[boubounne]

Bonjour, j'ai créé un formulaire, et je souhaite pouvoir faire des vérification en vba sur des Checkbox de ce formulaire. Est ce possible et si oui comment faire.

Pour plus de detail, j'ai trois Checkbox, et je voudrais faire en sorte qu'il n'y en ais qu'une seule de possible a cocher...

Merci de votre aide

[Heureux-oli]

C'est le modus operandi qui n'est pas bon.

Ce ne sont pas des check box que tu dois mettre sur ton UserForm mais des Option Button.
Ces otpion Buttons doivent êtremis dans un Option Group.
Et dans ce cas, plus besoin de faire un test, se sera l'un ou l'autre.

La valeur se récupère sur l'option Group et plus sur les check boxes.

[boubounne]

Merice de cette reponse rapide, mais je ne suis pas bien sur de tout comphrendre, ou plutot de tout savoir faire..

Je cherche a faire un simple formulaire word a remplir, donc j'ai fait affichage->barre d'outils->formulaires.

J'ai fait mon formulaire, mais a aucun moment il ne me propose de faire des Option Button, je n'ai que textbox, checkBox... Peut tu dans ce cas m'expliquer comment on fait stp..

Merci

[Heureux-oli]

C'est de ma faute. J'ai voulu aller trop vite !

Que fais ton formulaire ?

[boubounne]

Pas de soucis, c'est juste un formulaire tout con :

Type de modification : Ajout Modification Suppression

puis :

civilité : M. Mme. Mlle.

Avec pour chacun de ces champs une checkbox, et il faut faire un choix
soucis :
-> on ne peut pas et ajouter et modifier et supprimer la personne ne même temps..
->je ne bosse pas avec des trans^^, donc Mlle + M, c'est pas possible


Donc je voudrais savoir si il était possible de faire en sorte qu'il n'y ais qu'une seule checkbox de cocher sur les trois, et je ne vois que le vba pour m'aider. Même sur MSDN je ne trouve rien....

Voila ^^
Merci de ton aide

[Heureux-oli]

Il serait beaucoup plus facile de mettre une listebox sur ton formulaire.

[boubounne]

J'y ait pensé, mais la charte graphique est claire, pas de listbox pour les civilités (je me la suis deja prise dans la tronche et ce fut violent ) sinon, bah t'inquiete pas, je ne ferais pas de verification et ajouterais une ligne du style :

pitié, ne saisissez qu'un seul choix, ou vous aurez la mort d'un pauvre développeur innocent sur la conscience...

Ce devrais les dissuader de faire plusieurs choix... ^^

merci

[Heureux-oli]

C'est pas si simple, pour faire un test, il faut déverrouiller le formulaire.

Tu peux lancer une macro sur sortie de chaque checkBox.

On peut le faire avec la même macro.
Et vérifier que tu n'as qu'une seule case de cochée.

Vais essayer !

[boubounne]

Ben je pensais plus faire le test macro sur entrée de la checkbox, ca me parraissai plus logique, le soucis c'est que je n'arrive pas a atteindre les checkbox dans mon code....

sinon le test est tout simple....c'est juste une petite vérification

[Heureux-oli]

Un exemple

[boubounne]

Presque, mais merci pour le bout de code je vais voir ce que je peut faire avec, je te redit au cas ou

En fait je veut faire un choix du style :

M. Mme Mlle

tu n'en choisi qu'un et si tu change, ca n'en choisi qu'un sur les trois
(je ne suis pas clair mais jespère que tu m'a compris ^^)

[boubounne]

Ce serais plus un truc du genre mais ce code ne marche pas top

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Gestion_case1()
 
    ActiveDocument.FormFields("CaseACocher2").CheckBox.Value = False
    ActiveDocument.FormFields("CaseACocher3").CheckBox.Value = False
 
End Sub
 
Sub Gestion_case2()
 
    ActiveDocument.FormFields("CaseACocher1").CheckBox.Value = False
    ActiveDocument.FormFields("CaseACocher3").CheckBox.Value = False
 
End Sub
 
Sub Gestion_case3()
 
    ActiveDocument.FormFields("CaseACocher2").CheckBox.Value = False
    ActiveDocument.FormFields("CaseACocher1").CheckBox.Value = False
 
End Sub

[boubounne]

Ah si, il fallait bien le mettre en entrée et non en sortie ^^

Merci beaucoup pour ton aide en tout cas...