Discussion :

[alex_95]

Bonjour,

J'affiche dans un userform, un ensemble de résultat dont un %.
Le seul souci c'est que la taille de ma cellune ne se limite pas à 1 decimale apres la virgule comme on le voit dans la feuille Excel mais on une multitude de chiffres apres la virgule et de surcroit pas tous au format %.

Comment limiter le format de mon controle label1 a une decimale et a le definir comme un % ?

merci d'avance

[Megaxel]

La propriété "caption" d'un label est un string.
Donc c'est à toi de faire le calcul (division par 100), puis d'arrondir à une décimale (Round() ), puis de convertir le résultat en string et d'y ajouter le symbole "%".

[SfJ5Rpw8]

sinon utilise la fameuse fonction bien nommée Format:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1 = Format(123 / 456, "#.## %")

remplace 123 / 456 par ton opération

[alex_95]

MErci

Mais si je veux arrondir a une valeur apres la virgule, je dois ecrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Round (Sheets("base-pareto").Range("BE" & i + 2).Value, 1)

Et pourtant ca ne marche pas

Tu peux m'aider ?

[alex_95]

C'est bon ca marche, j ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        arrondi = Round(Sheets("base-pareto").Range("BE" & i + 2).Value * 100, 1)
        userform1.Controls("BP" & i).Caption = arrondi & " %"

merci bcp

[Megaxel]

Je ne veux pas insister, mais ça ressemble drôlement à ce que je t'ai proposé au début. Sauf que si tu voulais être propre, tu écrirais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
arrondi = Round(Sheets("base-pareto").Range("BE" & i + 2).Value * 100, 1) 
userform1.Controls("BP" & i).Caption = Cstr(arrondi) & " %"