Bonjour,

J'effectue le code suivant pour forcer 1 chiffre apres la virgule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Function myfunction() As Double
 
  Dim myVar As Double
  '....
  'Calcul
  '....
  myfunction = Format(myVar, "0.0")
End Function

a) si myVar = 1.0 la valeur retourné par myFunction est 1
b) si myVar = 1.1 la valeur retournée par myFunction est 1.1

Que faut il faire pour dans le cas a) myFunction retourne 1.0 et non 1.

Merci d'avance