nombre à 2 décimales

[helenaide]

Bonjour à tous,

Voilà mon problème...
J'ai dans mon code des nombres à additionner (Par exemple, 2.25 + 0.75), or mon problème c'est que je voudrais que le résultat s'affiche comme ceci : 3.00.
En clair, je veux que quelque soient les nombres additionnés, le résultat s'affiche avec AU MOINS 2 décimales, mais ça peut être plus de décimales si le résultat est du type 3.258.

Merci d'avance.

[jfontaine]

Bonjour,

Le résultat se trouve dans une cellule ou dans un objet activex (Textbox, label)?

[helenaide]

Bonjour,

Le contenu se trouve dans une cellule au format texte car le contenu de la cellule est du type :
"Vous paierez 2.50 euros"

[mercatog]

Et quel est le code que tu utilise?

[helenaide]

VBA...

pr Excel 2003...
Si ça peut vous aider.

[mercatog]

Je crois que c'est toi qui cherche l'aide.
Tu as commencé un code ou tu cherches qu'on te donne un code prêt?
Si tu as commencé par écrire ton code, mets le ici pour qu'on puisse t'aider.

[Jean-Pierre49]

Bonjour

Ce que mercatog te demande c'est si tu a fait un code, on ce doute un peu que c'est VBA

Si les valeurs sont des euros, pourquoi chercher les millièmes


Donne le code que tu essais d'utiliser
et dans qu'elle situation


Cordialement

[jfontaine]

ci dessous une idée de code

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim db As Double
Dim strDB As String
 
db = 2.5
 
If InStr(1, db, Application.DecimalSeparator) <= 2 Then
    strDB = Format(db, "# ###.00")
Else
    strDB = db
End If
Range("A1").Value = "Le montant est " & strDB & " euros"

[helenaide]

Désolée... Je n'avais effectivement pas compris la question !
Voici une partie du code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
                  If CheckBox8 = True Then
                    Rows("89:91").RowHeight = 15
                    Rows("108:108").RowHeight = 12.75
                    Range("ref") = "Vous recevez"
                    Range("vendeur") = "XXXX"
                    If CheckBox1 = True Or CheckBox3 = True Then
                    Range("Instrument") = "SSS"
                    Range("Payeur") = "EEEE"
                    floor = InputBox("Merci d'indiquer le niveau du floor, "niveau du  floor ?", " ")
                    Cap = InputBox("Merci d'indiquer le niveau du Cap", "niveau du Cap ?", " ")
                    prime = InputBox("Merci d'indiquer le niveau de la prime de cap", "Prime du cap ?", " ")
                    If prime <> 0 Then
                    floor1 = floor + prime
                    cap1 = Cap + prime
                    Range("Structure") = floor1 & "% si " & Index & " < " & floor & "%"
                    Range("Structure2") = Index & " + " & prime & "% si " & Index & " est compris entre " & floor & "% et " & Cap & "%"
                    Range("Structure3") = cap1 & "% si " & Index & " > " & Cap & "%"
                    Else
                    Range("Structure") = floor & "% si " & Index & " < " & floor & "%"
                    Range("Structure2") = Index & " si " & Index & " est compris entre " & floor & "% et " & Cap & "%"
                    Range("Structure3") = Cap & "% si " & Index & " > " & Cap & "%"
                    End If
                    Range("Niveau") = " "
                    Range("Barrière") = " "
                    Range("Structure4") = " "

L'idée étant que le floor1 et le cap1 soient donc sous la forme dont je vous parlais.

Merci encore pour votre aide.

[helenaide]

Merci pour la suggestion de code mais je l'ai essayé et ça ne fonctionne pas

- quand le chiffre est inférieur à 1. Pour cela, j'ai trouvé une solution en modifiant légèrement le code comme ceci :

Code :

Format(db, "# ##0.00")

- quand il y a plus de deux décimales. Et pour ça, je sèche complètement.

Auriez-vous une autre idée ?

[orpheu]

Bonjour, voici peut-être une réponse

Il y a deux problèmes:
1- éditer une valeur formatée
2- afficher une valeur numérique dans une cellule

1- pour éditer une valeur numérique avec deux décimales au moins, il suffit de rajouter des # pour les zéros non significatifs:
chez moi...
msgbox format (1.2345,"#,##0.00###") affiche '1,2345'
msgbox format (1.2345,"# ##0.00") affiche '1,23'

Si tu insères le résultat de format() dans une chaine non numérique, ça doit normalement bien se passer

2- lorsqu'on affiche une valeur numérique dans une cellule, même si toi tu utilises une chaine de caractères, cette chaine est convertie en un nombre par excel et, dans la cellule, le résultat est affiché en fonction du numberformat de la cellule.

Pour que le format du nombre affiché corresponde exactement au format que tu as construit, il faut que tu indiques à EXCEL que c'est une chaine, en spécifiant toi-même le format 'texte', ou bien, plus rapidement, en faisant précéder ton nombre d'une apostrophe (elle ne sera pas affichée)