Private WithEvents TBnJour As MSForms.ToggleButton
Private Sub TBnJour_Click(): If ChgInterne Then Exit Sub
Jour = TBnJour.Caption: MontrerJMA
End Sub
ÇaTourne = True
Do While ÇaTourne: DoEvents
If Not TBnJour Is Me.ActiveControl Then
If TypeOf Me.ActiveControl Is MSForms.ToggleButton Then
Set TBnJour = Me.ActiveControl
Else
Set TBnJour = Nothing: End If: End If: Loop
If ÀDécharger Then Unload Me Else Me.Hide