XL 2016 Changer couleur de bouton ActiveX

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
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
 

Dranreb

XLDnaute Barbatruc
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%
 

Pièces jointes

  • Progression.xlsm
    220.4 KB · Affichages: 11
Dernière édition:

KTM

XLDnaute Impliqué
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG