Discussion :

[grommerch]

Re bjr

J'utilise la fonction format pour ajouter 2 decimales et Replace pour remplacer la virgule par un point.

Cela fonctionne pour ceraines variables et pas pour d'autres déclarées toutes en Single.

Pire, Format ne m'affiche pas les 2 décimales mais arrondi la valeur

J'y comprends plus rien

Toutes ces valeurs viennent d'un formulaire qui lui affiche les 2 decimales

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
 
Dim dateFactureVal As Variant
Dim honorairesHTVal, honorairesTVAVal, honorairesTTCVal, prejudiceHTVal, prejudiceTVAVal, prejudiceTTCVal As Single
Dim valeurAvantSinistreVal, valeurSauvetageVal As Single
 
honorairesHTVal = Replace(Format(Me.honorairesHT.Value, "0.00"), ",", ".")
 honorairesTVAVal = Replace(Format(Me.honorairesTVA.Value, "0.00"), ",", ".")
 honorairesTTCVal = Replace(Format(Me.honorairesTTC.Value, "0.00"), ",", ".")
 prejudiceHTVal = Replace(Format(Me.prejudiceHT.Value, "0.00"), ",", ".")
 prejudiceTVAVal = Replace(Format(Me.prejudiceTVA.Value, "0.00"), ",", ".")
prejudiceTTCVal = Me.prejudiceTTC.Value
prejudiceTTCVal = Format(prejudiceTTCVal, "0,00")' ARRONDI
prejudiceTTCVal = Replace(prejudiceTTCVal, ",", ".") 'FONCTIONNE PAS
 kilometrageVehiculeVal = Str(Me.kilometrageVehicule.Value)
 valeurAvantSinistreVal = Replace(Format(Me.valeurAvantSinistre.Value, "0.00"), ",", ".")
 valeurSauvetageVal = Replace(Format(Me.valeurSauvetage.Value, "0.00"), ",", ".")'Fonctionne pas

J'ai également essayé avec Round, Str ,.... et combinaison de tout mais rien n'y fait

SVP besoin d'une piste

[Arkham46]

déclarées toutes en Single.

Bonjour,

Ah non, seule la dernière de chaque ligne de déclaration est en single. Les autres sont des variant.

[grommerch]

super grand merci Arkam

c'était effectivement les variables déclarées en Single qui plantaient.
Au risque de paraître idiot mais je l'assume car peu de connaissance informatique, comment fait on pour déclarer plusieurs variables au même type?

Encore Merci

[Arkham46]

Il n'y a pas d'astuce, il faut mettre le type de chaque variable