KTM
XLDnaute Impliqué
Bonjour chers tous
j'ai un bouton activeX Nomme "Rename" dans ma feuille qui déclenche ma macro M.
Je voudrais qu'au lancement "Rename" change de propriétés et revienne aux propriétés initiales a la fin .
J'ai procedé comme suit mais ça ne marche pas
j'ai un bouton activeX Nomme "Rename" dans ma feuille qui déclenche ma macro M.
Je voudrais qu'au lancement "Rename" change de propriétés et revienne aux propriétés initiales a la fin .
J'ai procedé comme suit mais ça ne marche pas
VB:
Private Sub Rename_Click()
ActiveSheet.Unprotect "2580"
Rename.BackColor = &HC0&
Rename.ForeColor = &HFFFFFF
Rename.Caption = "En Cours..."
Application.ScreenUpdating = True
On Error Resume Next
Call M
Rename.BackColor = &H8000000F
Rename.ForeColor = &H80000012
Rename.Caption = "Actualiser Liste"
ActiveSheet.Protect "2580"
End Sub