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