[_Thierry]

Bonsoir Mi_, Harry Cover MultiPage!, le Forum

Ah tiens cette fois c'est bien un sujet sur des CheckBox mon cher A... Mi_

Oui c'est un problème récurrant avec les évènementielles... Moi mon BarbaTruc perso... une Chtit Boolean Public Niveau Private Module du UserForm et Hop

OptionExplicit

Private RunTime AsBoolean

PrivateSub UserForm_Initialize()
RunTime = True
    CheckBox1.Value = True
RunTime = False
EndSub

PrivateSub CheckBox1_Click()
    If RunTime = TrueThenExitSub
        MsgBox 'Click Click !!'
EndSub

PrivateSub CheckBox2_Click()
    If RunTime = TrueThenExitSub
        MsgBox 'Click Click !!'
EndSub

PrivateSub CheckBox3_Click()
    If RunTime = TrueThenExitSub
        MsgBox 'Click Click !!'
EndSub

Bonne Soirée
[ol]@+Thierry[/ol]