Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Enlever les décimales (le . y compris) dans un label

5 réponses
Avatar
domivax
Bonjour =E0 tous,

J'ai un TextBox1 avec un r=E9sultat du genre : 66935.4387511

et un Label1.


Je voudrais faire appara=EEtre dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption =3D Format(Me.TextBox1 .Value, "###0")


Merci pour votre aide.

A bient=F4t.
Xavier

5 réponses

Avatar
tissot.emmanuel
Bonjour,

Essaye avec FormatNumber:

Me.Label1 .Caption = FormatNumber(Me.TextBox1 .Value,
0,vbFalse,vbFalse,vbTrue)

Cordialement,

Manu/

a écrit dans le message de news:

Bonjour à tous,

J'ai un TextBox1 avec un résultat du genre : 66935.4387511

et un Label1.


Je voudrais faire apparaître dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption = Format(Me.TextBox1 .Value, "###0")


Merci pour votre aide.

A bientôt.
Xavier
Avatar
Daniel
Bonjour.
Ca fonctionne sans problème chez moi (XL2003).
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour à tous,

J'ai un TextBox1 avec un résultat du genre : 66935.4387511

et un Label1.


Je voudrais faire apparaître dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption = Format(Me.TextBox1 .Value, "###0")


Merci pour votre aide.

A bientôt.
Xavier
Avatar
domivax
On 25 juin, 09:46, "Daniel" wrote:
Bonjour.
Ca fonctionne sans problème chez moi (XL2003).
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour à tous,

J'ai un TextBox1 avec un résultat du genre : 66935.4387511

et un Label1.

Je voudrais faire apparaître dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption = Format(Me.TextBox1 .Value, "###0")

Merci pour votre aide.

A bientôt.
Xavier


Désolé, ça marche aussi chez moi.
J'avais mis .... "#.##0") au lieu de .... "###0")
Merci

Avatar
LSteph
Bonjour,

Plus simple:

Label1.Caption = Int(Val(TextBox1))

Pourquoi ça marchait pas supposons à l'initialisation (.

Exemple1:

TextBox1f935.4387511
Label1.Caption = Format(TextBox1, "###0")

A l'affichage TextBox1 renvoie 66935,4387511 avec virgule
c'est la valeur qui a été entrée et le format prend bien en compte celle
ci pour retourner ce que tu as demandé.

Exemple 2

TextBox1 = "66935.4387511"
Label1.Caption = Format(Val(TextBox1), "###0")

Le point apparaît dans TextBox1 c' est ainsi du texte dans la valeur
et si tu n'évalues pas tu obtiens qd même la chaine de texte complète ,
en utilisant val dans format pour utiliser textbox1 ou plus simplement

Label1.Caption = Int(Val(TextBox1))

Cordialement.

lSteph
( Décimal dans vba . dans excel , )




Bonjour à tous,

J'ai un TextBox1 avec un résultat du genre : 66935.4387511

et un Label1.


Je voudrais faire apparaître dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption = Format(Me.TextBox1 .Value, "###0")


Merci pour votre aide.

A bientôt.
Xavier



Avatar
Ellimac
Bonjour,

Le problème vient du séparateur de décimale. Essaye ceci :

Label1.Caption = Int(Replace(TextBox1, ".", ","))

Camille

"" wrote:

Bonjour à tous,

J'ai un TextBox1 avec un résultat du genre : 66935.4387511

et un Label1.


Je voudrais faire apparaître dans le Label1 la valeur : 66945

Comment faire puisque la macro suivante ne marche pas :
Me.Label1 .Caption = Format(Me.TextBox1 .Value, "###0")


Merci pour votre aide.

A bientôt.
Xavier