, j'ai une fonction qui permet de mettre le format d'un montant sous la forme 125,125. Mais en essayant d'exécuter le code, il me sort le msg "La conversion de la chaîne " " en type 'Double' n'est pas valide". Voici le code de ma fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Const FORMAT_CURRENCY = "#,###,###,##0.###############;(#,###,###,##0.###############)"
Function MonFormat(ByVal Value As Double, ByVal NbDec As VariantType) As String
        Dim Dec As String
        Dim F As String
        Dec = ""
        If Val(NbDec) = "" Then
            MonFormat = Format(CDec(Value), FORMAT_CURRENCY)
        Else
            If Val(NbDec) > 0 Then Dec = "." & String.Format(NbDec, "0")
            F = "#,###,###,##0" & Dec & ";(#,###,###,##0" & Dec & ")"
            MonFormat = Format(CDec(Value), F)
        End If
    End Function
Et voici où l'erreur vient :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
If Val(NbDec) = "" Then
J'ai besoin d'aide pour voir d'où provient le pb et comment le corriger?