Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic format nombre

format nombre

12 réponses
Avatar
lou
bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
ng
Salut,

Regarde du coté de Round() :

MsgBox Round(138.4569,2)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

lou a écrit :

bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide


Avatar
François Picalausa
Hello,

Regarde du côté de Round

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"lou" a écrit dans le message de
news:40855f15$0$10991$
bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide


Avatar
lou
merci
mais round arrondi le nombre
ce que je veux c'est laisser 2 chiffres apres la virgule
et ce sans arrondir quoi que ce soit

merci


"ng" a écrit dans le message de news:

Salut,

Regarde du coté de Round() :

MsgBox Round(138.4569,2)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

lou a écrit :

> bonjour
> petit probleme de nombre
> ex 1 138,4569
> ou ex 2 14,568
>
> en fait je veux laisser 2 chiffres apres la virgule
> ex 1 138,45
> ou ex 2 14,56
>
> je ne veux pas formater
> peut etre avec len?
> trouver la virgule et laisser 2 chiffres apres
> comment faire
> merci de votre aide




Avatar
lou
merci
mais round arrondi le nombre
ce que je veux c'est laisser 2 chiffres apres la virgule
et ce sans arrondir quoi que ce soit

merci



"François Picalausa" a écrit dans le message de news:
OfwYO#
Hello,

Regarde du côté de Round

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"lou" a écrit dans le message de
news:40855f15$0$10991$
> bonjour
> petit probleme de nombre
> ex 1 138,4569
> ou ex 2 14,568
>
> en fait je veux laisser 2 chiffres apres la virgule
> ex 1 138,45
> ou ex 2 14,56
>
> je ne veux pas formater
> peut etre avec len?
> trouver la virgule et laisser 2 chiffres apres
> comment faire
> merci de votre aide




Avatar
Christophe QUEVAL
Bonsoir,

Avec Int vous pouvez faire :

Dim MonNombre as Single
MonNombre = 1543,6597
MonNombre = Int(MonNombre * 100) / 100

Résultat >>> 1543,65

Christophe

"lou" a écrit dans le message de
news:40855f15$0$10991$
bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide




Avatar
lou
bonjour et merci pour votre aide

vous avez dit d'essaier ceci

Dim MonNombre as Single
MonNombre = 1543,6597
MonNombre = Int(MonNombre * 100) / 100

Résultat >>> 1543,65



mais moi j'obtiens 1543,6500
comment enlever les 2 derniers zeros
merci


"Christophe QUEVAL" a écrit dans le
message de news:
Bonsoir,

Avec Int vous pouvez faire :

Dim MonNombre as Single
MonNombre = 1543,6597
MonNombre = Int(MonNombre * 100) / 100

Résultat >>> 1543,65

Christophe

"lou" a écrit dans le message de
news:40855f15$0$10991$
> bonjour
> petit probleme de nombre
> ex 1 138,4569
> ou ex 2 14,568
>
> en fait je veux laisser 2 chiffres apres la virgule
> ex 1 138,45
> ou ex 2 14,56
>
> je ne veux pas formater
> peut etre avec len?
> trouver la virgule et laisser 2 chiffres apres
> comment faire
> merci de votre aide
>
>




Avatar
Christophe QUEVAL
Avec l'instruction Format qui convertit la variable en *string*

Dim MaChaine as String
MaChaine = Format(MonNombre, "#.##")

Remplacez #.## par #.00 si vous souhaitez afficher en permanence les
décimales.

Christophe

"lou" a écrit dans le message de
news:408629ae$0$11085$
bonjour et merci pour votre aide

vous avez dit d'essaier ceci

> Dim MonNombre as Single
> MonNombre = 1543,6597
> MonNombre = Int(MonNombre * 100) / 100
>
> Résultat >>> 1543,65

mais moi j'obtiens 1543,6500
comment enlever les 2 derniers zeros
merci


"Christophe QUEVAL" a écrit dans


le
message de news:
> Bonsoir,
>
> Avec Int vous pouvez faire :
>
> Dim MonNombre as Single
> MonNombre = 1543,6597
> MonNombre = Int(MonNombre * 100) / 100
>
> Résultat >>> 1543,65
>
> Christophe
>
> "lou" a écrit dans le message de
> news:40855f15$0$10991$
> > bonjour
> > petit probleme de nombre
> > ex 1 138,4569
> > ou ex 2 14,568
> >
> > en fait je veux laisser 2 chiffres apres la virgule
> > ex 1 138,45
> > ou ex 2 14,56
> >
> > je ne veux pas formater
> > peut etre avec len?
> > trouver la virgule et laisser 2 chiffres apres
> > comment faire
> > merci de votre aide
> >
> >
>
>




Avatar
ng
Salut,

Essaye ça, mais c'est pas des plus rapide...

Public Function TronqueNB(ByVal dblNB As Double, ByVal intNbDec As Integer)
As Double
Dim strNB As String
strNB = CStr(0.5)
strNB = Replace(CStr(dblNB), Mid$(strNB, 2, 1), ".", , , vbTextCompare)
If strNB Like "*.*" And intNbDec > 0 Then
TronqueNB = Val(Left$(strNB, InStr(1, strNB, ".", vbTextCompare) +
intNbDec))
Else
TronqueNB = dblNB
End If
End Function

MsgBox TronqueNB(138,4569, 2)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

lou a écrit :

bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide


Avatar
ng
Salut,

La fonction Format$() employée ainsi arrondie le nombre :

Debug.Print Format$(1.459, "#.##") 'vaut 1,46


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Christophe QUEVAL a écrit :

Avec l'instruction Format qui convertit la variable en *string*

Dim MaChaine as String
MaChaine = Format(MonNombre, "#.##")

Remplacez #.## par #.00 si vous souhaitez afficher en permanence les
décimales.

Christophe

"lou" a écrit dans le message de
news:408629ae$0$11085$
bonjour et merci pour votre aide

vous avez dit d'essaier ceci

Dim MonNombre as Single
MonNombre = 1543,6597
MonNombre = Int(MonNombre * 100) / 100

Résultat >>> 1543,65



mais moi j'obtiens 1543,6500
comment enlever les 2 derniers zeros
merci


"Christophe QUEVAL" a écrit
dans le message de news:
Bonsoir,

Avec Int vous pouvez faire :

Dim MonNombre as Single
MonNombre = 1543,6597
MonNombre = Int(MonNombre * 100) / 100

Résultat >>> 1543,65

Christophe

"lou" a écrit dans le message de
news:40855f15$0$10991$
bonjour
petit probleme de nombre
ex 1 138,4569
ou ex 2 14,568

en fait je veux laisser 2 chiffres apres la virgule
ex 1 138,45
ou ex 2 14,56

je ne veux pas formater
peut etre avec len?
trouver la virgule et laisser 2 chiffres apres
comment faire
merci de votre aide








Avatar
Christophe QUEVAL
C'est pour cela qu'il faut passer par *Int* avant, ou l'intégrer au *Format*
;-)

"ng" a écrit dans le message de
news:
Salut,

La fonction Format$() employée ainsi arrondie le nombre :

Debug.Print Format$(1.459, "#.##") 'vaut 1,46


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Christophe QUEVAL a écrit :

> Avec l'instruction Format qui convertit la variable en *string*
>
> Dim MaChaine as String
> MaChaine = Format(MonNombre, "#.##")
>
> Remplacez #.## par #.00 si vous souhaitez afficher en permanence les
> décimales.
>
> Christophe
>
> "lou" a écrit dans le message de
> news:408629ae$0$11085$
>> bonjour et merci pour votre aide
>>
>> vous avez dit d'essaier ceci
>>
>>> Dim MonNombre as Single
>>> MonNombre = 1543,6597
>>> MonNombre = Int(MonNombre * 100) / 100
>>>
>>> Résultat >>> 1543,65
>>
>> mais moi j'obtiens 1543,6500
>> comment enlever les 2 derniers zeros
>> merci
>>
>>
>> "Christophe QUEVAL" a écrit
>> dans le message de news:
>>> Bonsoir,
>>>
>>> Avec Int vous pouvez faire :
>>>
>>> Dim MonNombre as Single
>>> MonNombre = 1543,6597
>>> MonNombre = Int(MonNombre * 100) / 100
>>>
>>> Résultat >>> 1543,65
>>>
>>> Christophe
>>>
>>> "lou" a écrit dans le message de
>>> news:40855f15$0$10991$
>>>> bonjour
>>>> petit probleme de nombre
>>>> ex 1 138,4569
>>>> ou ex 2 14,568
>>>>
>>>> en fait je veux laisser 2 chiffres apres la virgule
>>>> ex 1 138,45
>>>> ou ex 2 14,56
>>>>
>>>> je ne veux pas formater
>>>> peut etre avec len?
>>>> trouver la virgule et laisser 2 chiffres apres
>>>> comment faire
>>>> merci de votre aide




1 2