Barre de progression

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

Bonjour,

Apparemment, c'est un contrôle Image nommé "Image_barre" qui sert de barre de progression donc, voir la propriété "BackColor" de l'objet Image et la modifier à ton goût !

Un Label rendrait le même effet et serait moins gourmand en ressource

MERCI BEAUCOUP avec un label comment je peut faire cela sinon cela marche

enfin merci pour le renseignement

amitié

Rechercher des sujets similaires à "barre progression"