case à cocher

[Nana]

Bonjour, j'ai céer des cases à cocher et je voudrai n'autoriser la validation d'une seule case à la fois, et de leur affecter une macro qui me permette de masquer certaines cellules ou de les afficher selon la case cochée.

Merci beaucoup

 

[Nana]

Bonjour à tous, en effet la version de thierry est terrible c'est exactement ce que je voulais, un grand merci à tous, mon probléme est enfin réglé...

A bientôt...

Nana

 

[@+Thierry]

Bonsoir Natacha, Swen, Ti, Robert, le Forum

Bon alors c'est une histoire qui finit bien, et merci des compliments.

Pour ton problème de bouton récalcitrant, une ch'ti Boolean.... Et Hop

Dim NonNonCeNestPasUnClick As Boolean '<<<< Public niveau Module

Private Sub CommandButton1_Click()
NonNonCeNestPasUnClick = True
CheckBox1.Visible = True
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
NonNonCeNestPasUnClick = False
End Sub

Private Sub CheckBox1_Click()
If NonNonCeNestPasUnClick = True Then Exit Sub
CheckBox1.Visible = True
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
End Sub

Private Sub CheckBox2_Click()
If NonNonCeNestPasUnClick = True Then Exit Sub
CheckBox2.Visible = True
CheckBox1.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
End Sub

Private Sub CheckBox3_Click()
If NonNonCeNestPasUnClick = True Then Exit Sub
CheckBox3.Visible = True
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
End Sub

Private Sub CheckBox4_Click()
If NonNonCeNestPasUnClick = True Then Exit Sub
CheckBox4.Visible = True
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox5.Visible = False
End Sub

Private Sub CheckBox5_Click()
If NonNonCeNestPasUnClick = True Then Exit Sub
CheckBox5.Visible = True
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
End Sub

Ce n'est pas très difficile à mettre en oeuvre, d'ailleurs dans le "OLE-Object-OptionButtons-V01.00.xls" elle ne s'appelle pas "NonNonCeNestPasUnClick" mais "Auto" et elle s'initialise avant et après ma Boucle (que ceci dit je préfère que tout les Swicth des Controls un à un...)

Mais moi aussi j'ai aussi galéré dans des applis compliquées avec des actions en chaine sur les ActiveX en évèvement "Click" qui capte le changement de status lancé par VBA... Mais peut-être il doit y avoir une instruction miracle qui stop ceci, mais bon, le coup de la Boolean me sert souvent....Et 16 bits, çà va... Pas trop lourd.

Sinon content pour Natacha que son fichier avance.

Enfin bonne soirée à tous et toutes
@+Thierry

 

[Eric C]

Bonjour le forum

Bonjour les intervenants,

Ca c'est du sport ... lol... et en plus il y a de la lecture intéressante.

@ + Eric C

 

[@+Thierry]

Salut ERic, Robert, Natacha, Swen, Ti, le Forum !!!

Ah oui du Sport !!

​

​

​

​

​

​

​

​

​

Tout est bien qui fini bien !!

@+Thierry