[VBA-E] Type de données

Version imprimable

08/03/2006, 10h20
forsay1

[VBA-E] Type de données

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
08/03/2006, 11h38
Megaxel

Salut!
Regarde l'aide des fonction Format() et Round().
08/03/2006, 11h55
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 ?
08/03/2006, 11h59
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.)
08/03/2006, 12h14
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
08/03/2006, 12h17
chmod777

et si tu le met en format texte?
08/03/2006, 12h24
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
08/03/2006, 18h57
AlainTech

Ben, tu utilises Format() dans VB pour l'affichage...
08/03/2006, 19h01
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 ?
08/03/2006, 19h10
SfJ5Rpw8

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

Code:

format(591.3,"#.00")

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:

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

09/03/2006, 13h21
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:

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

:wink:
09/03/2006, 13h37
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