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
Partager