Discussion :

[forsay1]

Bonjour

Voila mon problème, je récupère des valeurs avec plusieurs chiffres apres la virgule, j'aimerai savoir comment faire pour n'afficher que 2 chiffre apres la virgule vu que ces valeurs font reference a des prix.

j'ai essayé d'utiliser une variable de type currency mais sans succès.

Merci

[Megaxel]

Salut!
Regarde l'aide des fonction Format() et Round().

[forsay1]

Merci mais il y a un probleme pour afficher les 0

par exemple au lieu de m'afficher 591.30 il m'affiche 591.3

comment faire pour qu'il prenne en compte le format monétaire ?

[Megaxel]

Ok: après le Format() dans le code VB, tu dois modifier le format de la cellule où va s'afficher ton montant. Tu peux mettre le nombre de décimales à afficher "à la main" dans Excel, si la cellule est toujours la même. Si elle bouge, tu dois modifier le format de la cellule par le code (le plus simple, c'est de la faire en enregistrant une macro, tu auras la syntaxe.)

[forsay1]

j'ai essayé ce que tu m'as dit de faire

mais probleme :

en fait dans la cellule meme (celle qu'on voit dans le contenu de la feuille excel) il va bien m'afficher 591.30
mais dans la barre de formule il me recupere 591.3 et apparament vb recupere la valeur de la barre de formule et pas ce qui est visible dans la cellule sur la feuille excel

[chmod777]

et si tu le met en format texte?

[forsay1]

effectivement dans la barre de formule ansi que dans la cellule j'aurai 591.30 mais lorsque je le passe dans la fonction sous vb ben il me recupere 531.3

[AlainTech]

Ben, tu utilises Format() dans VB pour l'affichage...

[forsay1]

ben c'est ce que j'ai fait...
heu en fait pas tt a fait j'ai utiliser formatnumber()

c'est different ??

Si oui en quoi ?

[SfJ5Rpw8]

bon vu que tu t'obstine à ne pas nous montrer le code que tu utilise, voilà un morceau du code à utiliser !

Code :

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

format(591.3,"#.00")

[forsay1]

bbil ca ne marche toujours pas
il me donne quand meme 591.3 au lieu de 591.30

voila le code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
If ThisWorkbook.Worksheets("CalculTarif").Cells(3, 2) = "Salarié" Then
  For i = 8 To 14
 
    If ThisWorkbook.Worksheets("Tarifs étendus").Cells(i, 1).Value = ThisWorkbook.Worksheets("ENTREES").Cells(8, 9).Value And ThisWorkbook.Worksheets("ENTREES").Cells(8, 9).Value > 20 Then
      If ThisWorkbook.Worksheets("CalculTarif").Cells(6, 3).Value = "IDF" Then
        UserForm3.Lbl_Prix_An_Enf1.Caption = ThisWorkbook.Worksheets("Tarifs étendus").Cells(i, j).Value * Pourcentage
      Else
        UserForm3.Lbl_Prix_An_Enf1.Caption = ThisWorkbook.Worksheets("Tarifs étendus").Cells(i, j).Value
      End If
 
      Tarif_Enfant1 = UserForm3.Lbl_Prix_An_Enf1.Caption
      Tarif_Enfant1 = Format(Tarif_Enfant1, "#.00")
      UserForm3.Lbl_Prix_An_Enf1.Caption = Tarif_Enfant1
 
    End If
 
  Next i
End If

[SfJ5Rpw8]

la variable tarifEnfant1.. ? c'est quoi ... si c'est pas un string c'est normal que cela ne marche pas ... tu n'as pas modifier la bonne ligne pour l'affichage :

Code :

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

 UserForm3.Lbl_Prix_An_Enf1.Caption = Format(Tarif_Enfant1, "#.00")

[forsay1]

Voila c'etait donc ça qui clochait...

j'avais laisser la variable Tarif_Enfant1 sur Currency, je l'ai passé en String et là ca fonctionne...

Merci bcp