bonsoir le forum
j ai une petite question j ai un macro pour une barre de progression qui marche très bien se que je recherche pour ma barre de progression qui est vert je recherche a changé sa couleur je sais même pas si on peut faire ça
merci pour tout renseignement
voila le macro en question
Option Explicit
Dim Progression As Double
'Private Sub CommandButton1_Click()
Sub test()
Application.ScreenUpdating = False
Progression = 0
UserFormbarre.Show vbModeless ' affichage de l'userform en mode modal ( voir l'aide)
'Ref_C2
Application.Wait Now + TimeValue("0:00:01") ' Simule la macro Ref_C2
tempo
'TABLEAU
Application.Wait Now + TimeValue("0:00:01")
tempo
'MEF
Application.Wait Now + TimeValue("0:00:01")
tempo
'Sel2
Application.Wait Now + TimeValue("0:00:01")
tempo
'MEF2
Application.Wait Now + TimeValue("0:00:01")
tempo
'TitreTab
Application.Wait Now + TimeValue("0:00:01")
tempo
'Titre2
Application.Wait Now + TimeValue("0:00:01")
tempo
'MEP
Application.Wait Now + TimeValue("0:00:01")
tempo
Unload UserFormbarre
Application.ScreenUpdating = True
End Sub
Sub tempo()
With UserFormbarre
Progression = Round(Progression + 100 / 8, 2) ' 8 macros de durée identique
If Progression > 100 Then Progression = 100
.Image_barre.Width = Progression * 1.5
.Label_barre.Caption = Progression & "%"
.Repaint
With ActiveWorkbook
.Save ' enregistre
End With
Application.Quit
End With
End Sub