XL 2016 Changer couleur de bouton ActiveX

[KTM]

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

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

 

[job75]

Bonjour KTM,

mais ça ne marche pas

Si la durée d'exécution de la macro M est très brève il est évident qu'on ne percevra aucun changement.

A+

 

[KTM]

Bonjour KTM,

Si la durée d'exécution de la macro M est très brève il est évident qu'on ne percevra aucun changement.

A+

Salut Job75
La macro M est longue. par ce procédé je voudrais faire patienter l'utilisateur
Merci

 

[Dranreb]

Bonjour.
Pourquoi pas une barre de progression …

Remarques:
Mettre d'abord tout en œuvre pour que l'exécution soit la plus rapide possible
Il est nécessaire de déterminer préalablement le nombre d'actions élémentaires à effectuer et le spécifier derrière UFmProg.Tâche NbrPrévu:=, vu qu'il faut exactement autant de UFmProg.OùÇaEnEst pour faire avancer la barre jusqu'à 100%

 

[jmfmarques]

Bonjour
1)

J'ai procedé comme suit mais ça ne marche pas

est on ne peut plus flou et ne nous indique rien. Précise ce qui se passe
2) il est vraisemblable que ta procédure M, dont nous ne voyons pas le code, pose problème
3) étonnant "On error resume next" qui est de surcroit totalement inutile ici.

 

[KTM]

Merci chers Tous
J'ai procédé comme suit et ça marche

Private Sub Rename_Click()
ActiveSheet.Unprotect "2580"
Rename.BackColor = &HC0&
Rename.ForeColor = &HFFFFFF
Rename.Caption = "En Cours..."
Application.Wait (Now+TimeValue("00:00:01"))
Application.ScreenUpdating=True
 
 Call M
 
Rename.BackColor = &H8000000F
Rename.ForeColor = &H80000012
Rename.Caption = "Actualiser Liste"

   ActiveSheet.Protect "2580"

End Sub