Discussion :

[loverdev]

, 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?

[Chii-san]

Normal, tu essaies de comparer le retour de Val() (Double), avec "" (String).

[loverdev]

Comment le corriger?

[Chii-san]

Ben ça dépend de ce que tu veux faire avec ce If, tu peux utiliser un Try Catch pour gérer le cas où Val() n'a pas pu convertir la paramètre que tu lui donnes.
Et dans le cas où tout se passe bien, gérer le cas où la valeur vaut 0.

[loverdev]

Je vous explique ce que je veux faire. J'ai par exemple un champ "Montant d'un contrat" et un 2ème champ "Reste à payer". Je veux que lorsque je saisi le montant du contrat, il me met automatiquement le montant tout en respectant les chiffres après la virgule. Si vous connaissez une méthode plus simple que cette fonction, pouvez vous me la donnez? Sinon, comment corriger cette fonction pour qu'elle puisse fonctionner?

[Aspic]

Bah utilise le type Decimal pour la précision... Je ne vois pas à quoi sert ta fonction compliquée !

Quel est "l'algorithme" utilisée pour convertir ton "montant d'un contrat" en "restant à payer" ?

[loverdev]

Voila ce que j'ai mis au niveau du code principal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Txtmontantc.Text = MonFormat(Txtresteapayer.Text, 3)

en sachant que "MonFormat" est le nom de la fonction. Est ce que vous connaissez une méthode plus simple?

[Aspic]

Dans ta fonction il y a plein de convertions implicites !
Voila je te l'ai corrigé mais je sais pas si c'est les bon type...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Const FORMAT_CURRENCY As String = "#,###,###,##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) = 0 Then
            MonFormat = Format(CDec(Value), FORMAT_CURRENCY)
        Else
            If Val(NbDec) > 0 Then Dec = "." & String.Format(NbDec.ToString, "0")
            F = "#,###,###,##0" & Dec & ";(#,###,###,##0" & Dec & ")"
            MonFormat = Format(CDec(Value), F)
        End If
    End Function

Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Strict On 'a placer en haut de ta page
Option Explicit On

Voila

[loverdev]

Voila ce que j'ai fait :

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
17
18
 
Option Strict On
Option Explicit On
Module Module1
    'Const FORMAT_DATEA As Date = CDate("dd/mm/yyyy")
    Const FORMAT_CURRENCY As String = "#,###,###,##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) = 0 Then
            MonFormat = Format(CDec(Value), FORMAT_CURRENCY)
        Else
            If Val(NbDec) > 0 Then Dec = "." & String.Format(NbDec.ToString, "0")
            F = "#,###,###,##0" & Dec & ";(#,###,###,##0" & Dec & ")"
            MonFormat = Format(CDec(Value), F)
        End If
    End Function

Mais il me sort tjrs le même msg

[loverdev]

J'ai le msg d'erreur a ce niveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Txtmontantc.Text = MonFormat(Txtresteapayer.Text, 3)

[Aspic]

Je ne comprends aps ce que tu veux faire...

Donne un exemple de ce que tu veux obtenir à partir de ce que tu as tapé.

[loverdev]

J'ai un champ "Montant du contrat" et un champ "Reste à payer". Je veux que quand je tape par exemple au niveau du champ "Montant du contrat" le chiffre 245,125, le champ "Reste à payer" prend ce chiffre avec les virgules càd 245,125 et non pas 245 seulement.

[dubidon]

Tu dit que ton erreur vient de là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Val(NbDec) = ""

test en enlevant le val() car en fait tu demande à comparer quelque chose de numerique Nbdec avec "" qui n'est pas numérique d'ou un problème de conversion de type

met simplement NbDec = ""
sinon il doit bien y avoir une focntion qui teste si une valeur est numérique ou non

@++
dubidon

[loverdev]

Le msg d'erreur que j'ai vient a ce niveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Txtmontantc.Text = MonFormat(Txtresteapayer.Text, 3)

J'ai essayé sans val mais ca ne marche pas

[Aspic]

J'ai un champ "Montant du contrat" et un champ "Reste à payer". Je veux que quand je tape par exemple au niveau du champ "Montant du contrat" le chiffre 245,125, le champ "Reste à payer" prend ce chiffre avec les virgules càd 245,125 et non pas 245 seulement.

Je vois pas ou est le probleme ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Resultat as Decimal = Cdec(Textbox1.Text) 'récupère la valeur entrée
Textbox2.Text = Resultat.Tostring 'affecte à la deuxieme textbox la valeur entrée précédemment !

Et c'est tout !!

[loverdev]

Merci Aspic, Ca marche impeccablement ton code

[Aspic]

Merci Aspic, Ca marche impeccablement ton code

Bah oui !! mais je comprends pas pouquoi vous etes aller vous prendre la tete avec une procédure compliquée !