Option Explicit
Private WithEvents Cmbrs As CommandBars 'creation de l'object commandbars events
'evenement commandbars
Private Sub Cmbrs_OnUpdate()
Application.CommandBars.FindControl(ID:=2040).Enabled = Not Application.CommandBars.FindControl(ID:=2040).Enabled
UserformControl_change
End Sub
Private Sub UserForm_Activate()
Set Cmbrs = Application.CommandBars
Cmbrs_OnUpdate
End Sub
'evenement userform
Private Sub UserformControl_change()
Label1 = ActiveControl.Name
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set Cmbrs = Nothing
End Sub