BARRE PROGRESSION code en panne

[Blandine]

Je n'arrive plus à voir ou je fais des erreurs...

La programmation de cette barre de progression ne se fait pas correctement:
a savoir que je ne sais pas faire afficher le changement de surface de mon label
suivant les valeurs que je lui indique en largeur (qui correspond à un poucentage
d'avancement)

voila le code actuel, si quelqu'un comprend mon dysfonctionnement....
MERCI

Sub Progression()
'initialisation
UserForm1.LabelProgress.Width = 0
UserForm1.Show

Application.ScreenUpdating = False


'paramètre la barre pour un affichage à 50%
Valeur = 0.5 'soit 50%
With UserForm1
.FrameProgress.Caption = Format(Valeur, "0%")
.LabelProgress.Width = Valeur * (.FrameProgress.Width - 10)
End With
'Mise à jour du formulaire
DoEvents

'Exemple de travail n°1 à faire
Cells(1, 1) = 100

'paramètre la barre pour un affichage à 100%
Valeur = 1 'soit 50%
With UserForm1
.FrameProgress.Caption = Format(Valeur, "0%")
.LabelProgress.Width = Valeur * (.FrameProgress.Width - 10)
End With
'Mise à jour du formulaire
DoEvents

'Exemple de travail n°2 à faire
Cells(2, 1) = 200


Unload UserForm1
End Sub

 

[Blandine]

Quelqu'un peut-il me dire s'il est entrain de regarder mon problème
MERCI

 

[Ti]

si tu patientes un peu, je regarderai ça ce soir

 

[Ti]

Finalement, c'était plus rapide que prévu, il faut juste que tu mettes la propriété ShowModal de ton Userform à False