XL 2016 Changer couleur de bouton ActiveX

KTM · 24 Mars 2020

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

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

job75 · 24 Mars 2020

Bonjour KTM,

KTM à dit:
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 · 24 Mars 2020

job75 à dit:
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 · 24 Mars 2020

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 · 24 Mars 2020

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 · 24 Mars 2020

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

VB:

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

XL 2016 Changer couleur de bouton ActiveX

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Pièces jointes

jmfmarques

XLDnaute Accro

KTM

XLDnaute Impliqué