Probleme de format de Label

[Sebb]

Bonjour
Voila, toujours par rapport a mon précédent fichier, j'ai un USF qui me permet de redimensionner un objet de la feuille grace a une scrollbar (merci Vériland pour le pbleme précédent de scrollbar ;o)
Sur ce USF, un label (nom: "Lab") indique la taille de l'objet.
j'utilise cette formule (comme j'ai vu dans les précédents messages de forum :
Lab = Format(Lab, "0 %")
mais ca reste un format standard
Où est le probleme ?
Merci d'avance

 

[@+Thierry]

Bonjour Sebb, le Forum

Je suis étonné que ta ligne de code ne fonctionne pas...

Disons qu'en prenant un UserForm vierge et en y dessinant :
Un Label1
Un ScrollBar1
et en y collant ce code :

Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = 100
ScrollBar1.Value = 1
Label1.TextAlign = fmTextAlignRight
End Sub


Private Sub ScrollBar1_Change()
Label1 = Format((ScrollBar1 / 100), "0 %")
End Sub


J'ai bien l'affichage des pourcentage dans le Label au format "xx %"...

Tu dois avoir un autre blème... fais cet essai...

Bon Aprèm
@+Thierry

 

[Sebb]

ben j'ai également refais un simple userform avec scrollbar et un affichage par label et ca marche.
Donc il y a bien un autre probleme dans mon USF ....
Merci quand meme Thierry !