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

Le
domivax
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4599811
Bonjour,

Essaye avec FormatNumber:

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

Cordialement,

Manu/


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
Daniel
Le #4599801
Bonjour.
Ca fonctionne sans problème chez moi (XL2003).
Cordialement.
Daniel

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
domivax
Le #4599761
On 25 juin, 09:46, "Daniel"
Bonjour.
Ca fonctionne sans problème chez moi (XL2003).
Cordialement.
Daniel

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

LSteph
Le #4599731
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



Ellimac
Le #4599711
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




Publicité
Poster une réponse
Anonyme