Discussion :

[Patrick-P]

Bonjour,

Je sollicite un peu de votre temps, je travail sur excel 2000 et 2013,
Mon problème, j’ai dans un userforme des textbox pour calculer la saisie des factures de fournisseurs. Je n’arrive pas à comprendre comment les formater en numérique décimale.
J’ai essayé divers solutions sans résultat, le bug est déclenché lors du calcul, dés que je saisis dans la textbox « Tbx_PN » .
Voilà le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
 
Private Sub Tbx_PN_Change()
Dim prix1 As String, prix2 As String, Q As String
 
prix1 = Replace(Tbx_PU, ",", ".")
prix2 = Replace(Tbx_PN, ",", ".")
Q = Replace(Tbx_Q, ",", ".")
    If Not (IsNumeric(prix2) Or IsNumeric(Replace(Tbx_PN, ".", ","))) Then Tbx_PN = ""
    If Val(prix1) > 0 And Tbx_PN <> "" Then Tbx_R = Format((Val(prix2) - Val(prix1)) / Val(prix1), "0.00%") Else Tbx_R = ""
    If Val(Q) > 0 And Tbx_PN <> "" Then Tbx_Montant = Format(Val(prix2 * Q)) Else Tbx_Montant = ""
End Sub

Merci,

Patrick

[pijaku]

Bonjour,

Ce tutoriel devrait t'apporter beaucoup.
Il traite ton souci dans ce paragraphe.

[BENNASR]

bonjour à tous
as tu essayé :

Code :

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

cdbl(textbox1.value)

et ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub mamacro()
Dim DernLigne As Long
DernLigne = Range("C" & Rows.Count).End(xlUp).Row
 Columns("c:c").Select ' ici la plage à mettre en forme
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
For i = 1 To DernLigne
Range("c" & i).Value = CDbl(Range("c" & i).Value)
Range("c" & i).NumberFormat = "#,##0.000" ' trois chiffre après virgule
Next i
End Sub

[Patrick-P]

Bonjour pijaku, BENNASR,

Je vous remercie de vous penchez sur mon problème,

Pijaku, j'ai bien lu le tutoriel, j'ai téléchargé le fichier excel pour m'en inspirer, Mais rien à faire.
Je pense que c'est lors du calcul des textbox, Quantité * Prix Net, que ça coince, j'arrive à rien.

BENNASR, oui j'ai aussi essayé cette solution sans résultat,

Je creuser encore, mais en tout les cas je vous remercie de m'avoir répondu,

Je vous souhaite une bonne fin de journée,

Cordialement,

Patrick

[pijaku]

Si ton code bloque sur :

Code :

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

Tbx_Montant = Format(Val(prix2 * Q))

alors remplace :

Code :

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

Format(Val(prix2 * Q))

par :

Code :

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

Tbx_Montant = CDbl(prix2 * Q)

[Docmarti]

Bonjour.

Tu as effectivement 2 options.

Ou tu utilises Val qui ne reconnait que le point comme separateur decimal

Code :

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

1
2
3
prix1 = Val(Replace(Tbx_PU, ",", "."))
prix2 = Val(Replace(Tbx_PN, ",", "."))
Q = Val(Replace(Tbx_Q, ",", "."))

Ou tu utilises Cdbl qui lui ne reconnait que le separateur decimal par defaut defini dans les parametres regionaux de ton systeme ( dans ton cas ca semble etre la virgule )

Code :

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

1
2
3
4
 
prix1 = CDbl(Replace(Tbx_PU, ".", ","))
prix2 = CDbl(Replace(Tbx_PN, ".", ","))
Q = CDbl(Replace(Tbx_Q, ".", ","))

[Patrick-P]

Re BENNASR,

J'avais pas vu le deuxième code,

Oui c'est vrai, je pourrai faire de cette façon, mais le bug serai toujours dans la portée de userform,
Au débogage, le ligne Tbx_Montant = Format(Val(prix2 * Q)) Else est surlignée en jaune, et en passant le curseur de la sourie dessus, ça m'affiche : prix2=1
alors que le prix1 est bien formaté dans la textbox.
C'est peu-êtres insoluble ?

Merci encore du coup de main.

Cordialement,

Patrick