Bonjour à tous, j'imagine comme d'habitude que la solution doit etre toute bete, mais dieu sait si ça m'enerve de ne pas trouver.
Je recupere d'un userform une valeur (1,23) cette valeur je la transforme à l'aide d'une fct pour pouvoir récuperer 1.23.
Ensuite avec Val() je la transforme en double pour l'inserer dans une variable appelé invariant.
Ma fonction Formate (voir ci dessou) fonctionne (en mode pas a pas). Mais lorsque je passe en double je retrouve la virgule et je ne sais pas pourquoi.
Je recupere d'un userform une valeur (1,23) cette valeur je la transforme à l'aide d'une fct pour pouvoir récuperer 1.23.
Ensuite avec Val() je la transforme en double pour l'inserer dans une variable appelé invariant.
Ma fonction Formate (voir ci dessou) fonctionne (en mode pas a pas). Mais lorsque je passe en double je retrouve la virgule et je ne sais pas pourquoi.
Code:
'--------------------------------------------------
Public Function Formate(ByVal valeur As String) As String
'--------------------------------------------------
Formate = Strings.Replace(valeur, ",", ".")
End Function
Code:
Dim invariant As String
invariant = Val(Formate(UserForm1.quantite.Value))