Cases à cocher

[mécano41]

Bonjour à tous,

J'ai le problème suivant :

- quatre cases à cocher (checkbox)
- les trois premières peuvent être cochées simultanément
- si la quatrième est cochée, elle doit décocher les trois autres
- si l'une des trois premières est cochée, elle doit décocher la quatrième

J'ai fait ceci qui fonctionne mais il faut cliquer deux fois sur la quatrième (PasAjout). Une première fois pour décocher les trois autres, une seconde pour qu'elle se coche

Private Sub AjoutChiff_Click()
PasAjout.value = False
End Sub

Private Sub AjoutContr_Click()
PasAjout.value = False
End Sub

Private Sub AjoutEsp_Click()
PasAjout.value = False
End Sub

Private Sub PasAjout_Click()
AjoutChiff.value = False
AjoutContr.value = False
AjoutEsp.value = False
End Sub

Comment faire?

Autre point : j'oublie 9 fois sur 10 le " .Value " mais cela fonctionne quand même ; c'est grave Docteur ?

En vous remerciant d'avance

Cordialement

 

[kjin]

Re : Cases à cocher

Re, à tous,
Bien reçu Pierre Olivier; je n'avais aucun doute, mais ça me rassure.
A+
kjin

 

[mécano41]

Re : Cases à cocher

Kjin, je viens de réessayer ton code (je l'avais fait mais cela n'avait pas fonctionné). Cela fonctionne même sous WORD (avec ou sans frame).

Je m'étais donc probablement trompé quelque part car rien ne se déclenchait.

Encore merci à tous

Cordialement

 

[kjin]

Re : Cases à cocher

Re le fil,
Ca n'aura pas été (De)vain.

A+
kjin

 

[Excel_lent]

Re : Cases à cocher

Salut mécano41, bonjour à tous et aux autres.

Ta demande concerne Word donc le fichier joint est un fichier.doc zippé.
Cela fonctionne aussi avec Excel.

Ajout : désolé, je n'avais pas vu les derniers messages.

 

[mécano41]

Re : Cases à cocher

Merci Excel_Lent pour cette réponse. C'est très bien car cela me fait une version différente de plus puisque tu utilises " _Change". J'ai le choix.

Cordialement