Problème de calcul décimale dans textbox

Version imprimable

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:

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

19/01/2017, 09h15
pijaku

Bonjour,

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

bonjour à tous
as tu essayé :

Code:

cdbl(textbox1.value)

et ça :

Code:

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

19/01/2017, 10h15
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
19/01/2017, 10h26
pijaku

Si ton code bloque sur :

Code:

Tbx_Montant = Format(Val(prix2 * Q))

alors remplace :

Code:

Format(Val(prix2 * Q))

par :

Code:

Tbx_Montant = CDbl(prix2 * Q)
19/01/2017, 10h38
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
19/01/2017, 10h39
Docmarti
Bonjour.

Tu as effectivement 2 options.

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

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:

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

Re bonjour pijaku, BENNASR, bonjour Docmarti,

Encore merci de passer du temps à combler mon manque de savoir,

J'ai testé les divers solution que vous m'apportez, celle qui passe bien est le code de Docmarti.
Mais je suis de nouveau bloqué avec le textbox, "Tb_Monant", qui ne calcul pas après la virgule.

Je ne sais pas si ma variable "Mont" est bien déclarée.

J'ai fait un essai avec le code suivant, sans résultat :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Tbx_PN_Change() Dim prix1 As String, prix2 As String, Q As String Dim Mont As Variant prix1 = Val(Replace(Tbx_PU, ",", ".")) prix2 = Val(Replace(Tbx_PN, ",", ".")) Q = Val(Replace(Tbx_Q, ",", ".")) Mont = Val(Replace(Tbx_Montant, ",", ".")) Mont = CDec(Mont) 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
Cordialement,

Patrick

Bonsoir Docmarti, pijaku, BENNASR,

J'ai pratiquement finalisé mon projet, il reste juste un bug.
Je me suis appuyé sur ce forum ICI.
Voici le code :
Dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer, Position As Integer)
SepDec = Format(0, ".")
 
If Position = 0 And Char = 45 Then
    CheckLaSaisie = Char
    Exit Function
End If
 
If Char = 44 Or Char = 46 Then
    If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then
        CheckLaSaisie = 0
    Else
        CheckLaSaisie = Asc(SepDec)
    End If
Else
    If Char < 48 Or Char > 58 Then
        CheckLaSaisie = 0
    Else
        CheckLaSaisie = Char
    End If
End If
End Function

En suite dans le code de userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Tbx_Q_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = CheckLaSaisie(Tbx_Q, KeyAscii, Tbx_Q.SelStart)
End Sub
 
Private Sub Tbx_PN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = CheckLaSaisie(Tbx_PN, KeyAscii, Tbx_Q.SelStart)
End Sub
 
Private Sub Tbx_PU_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = CheckLaSaisie(Tbx_PU, KeyAscii, Tbx_Q.SelStart)
End Sub
 
Private Sub Tbx_PN_Change()
Dim prix1 As Double, prix2 As Double, Q As Double
 
    If IsNumeric(Me.Tbx_Q) Then
        Q = CDbl(Me.Tbx_Q)
    End If
    If IsNumeric(Me.Tbx_PU) Then
        prix1 = CDbl(Me.Tbx_PU)
    End If
    If IsNumeric(Me.Tbx_PU) Then
        prix2 = CDbl(Me.Tbx_PU)
    End If
 
    Me.Tbx_Montant = Format(Q * prix2, "0.00")
    Me.Tbx_R = Format(prix2 - prix1 / prix2)
 
    Me.B_ok.Enabled = True
End Sub

Le bug est à ce niveau, "Me.Tbx_R = Format(prix2 - prix1 / prix2)", Dépassement de capacité (erreur 6).
J'ai tenté, "Me.Tbx_R = Format((prix2 - prix1) / prix2)" sans résultat

En lisant l'aide sur le sujet j'ai pas réussi à solutionner ce problème.

Si vous pouviez m’expliquer, pourquoi ça coince.

Merci,

Cordialement,

Patrick

19/01/2017, 22h38
Docmarti

La ligne suivante devrait produire une erreur car c'est une mauvaise utilisation de Format.

Code:

Me.Tbx_R = Format(prix2 - prix1 / prix2)

Essaie plutot ceci

Code:

Me.Tbx_R = prix2 - prix1 / prix2

Bonjour Docmarti,

Merci de vous préoccuper de mon problème,

Non, ça ne fonctionne pas, j'ai toujours la même erreur.

J'ai fait un essai avec :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Tbx_Montant_Change() Dim R As Currency If IsNumeric(Me.Tbx_R) Then R = CCur(Me.Tbx_R) End If Me.Tbx_R = Format(Me.Tbx_PN.Value / Me.Tbx_PU.Value) End Sub
pour contourner le problème, cette solution me génère, "Type incompatible (erreur 13)"

En fait je suis un peu perdu, j'ai essayé différente méthode sans résultat.
Je dois creuser encore...

Bonne journée,

Cordialement,

Patrick

20/01/2017, 09h55
Patrick-P
Après quelque recherche, j'en conclu que c'est la division qui pose problème, je m'en doutai.
J'ai donc commencé, avec un peu de difficulté,
Code:

1 2 3 4 5 6 If Me.Tbx_PU.Value = 0 Then Format(Me.Tbx_R.Value, "0.00%") = Null Else Me.Tbx_R.Value = Me.Tbx_PN.Value / Me.Tbx_PU.Value End If
Toujours avec une erreur "Type incompatible (erreur 13)"
Déjà c'est pas encourageant, je suis monté dans le niveau des erreurs.
J'ai effacé le format de ma Tbx_PN, toujours le même type d'erreur.

Je vais chercher encore,

Bonne fin de journée,

Patrick

Bonsoir Docmarti, pijaku, BENNASR, le forum,

Ne pouvant solutionner correctement le problème, je l'ai contourné de cette façon, "On Error Resume Next", je voulais pas trop utiliser cette expression, mais elle a l'air de fonctionner. En tout les cas j'ai plus de message d'erreur, reste à faire différent teste de calcul.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Tbx_PN_Change() Dim prix1 As Double, prix2 As Double, Q As Double Dim R If IsNumeric(Me.Tbx_Q) Then Q = CDbl(Me.Tbx_Q) End If If IsNumeric(Me.Tbx_PU) Then prix1 = CDbl(Me.Tbx_PU) End If If IsNumeric(Me.Tbx_PN) Then prix2 = CDbl(Me.Tbx_PN) End If Me.Tbx_Montant = Format(Q * prix2, "0.00") If IsNumeric(Me.Tbx_R) Then R = CDec(Me.Tbx_R) End If On Error Resume Next Me.Tbx_R = Format(Me.Tbx_PN.Value / Me.Tbx_PU.Value, "0.00%")
Après tous les essais que j'ai fait (niveau débutant +++:oops:), ce que j'ai pu lire aussi, j'en conclu que la valeur zéro est pas chose facile.

Pour ma part je tiens à remercie mes trois sauveurs, avec mille mercis et à félicité l'ensemble des personnes qui nous viennent en aide.

Je vous souhaite une très bonne soirée,

Cordialement,

Patrick

Bonsoir
peut être en passant par un Evaluate puis les reconvertir- à voir - j'ai pas testé
il faudra changé le code en conséquence

Edit : il y a peu j'ai utilisé Evaluate pour faire du calcul genre :

Code:

Toto = Evaluate(String1 & "*" & String2 & "/" & String3)

comme toi j'ai eu l'erreur de la virgule qu j'ai remplacé par un point
aprés la conversion de la "," en "." c'est OK pour moi

il y a peut etre qq ch a faire, voit le code que j'ai utilisé
peut être qur t'y trouvera une solution

Edit 2 :
Pour le code :

Code:

Me.Tbx_R = Format(Me.Tbx_PN.Value / Me.Tbx_PU.Value, "0.00%")

pourrait-on pas passer par des variables :
Code:

1 2 3 MaVariable1 = Me.Tbx_PN.Value 'tester comment est récupéré ma MaVariable1 et voir si il y a besoin de faire une quelconque conversion et surtout déclaré correctement MaVariable1 MaVariable2 = Me.Tbx_PU.Value 'tester comment est récupéré ma MaVariable2 et voir si il y a besoin de faire une quelconque conversion et surtout déclaré correctement MaVariable2 Me.Tbx_R = Format(MaVariable1 / MaVariable2 , "0.00%")
Edit 3 : le On Error Resume Next n'est en tout cas pas une solution et peut t’apporter bien des désagréments

20/01/2017, 21h11
unparia

Bonjour
J'ai l'habitude de commencer par déterminer le séparateur decimal en vigueur.
C'est ce que me retourne simplement

Code:

sepdec = Mid(1 / 2, 2, 1)

A partrir de là :
si ".", j'utilise la fonction Val directement
si autre, je commence par le remplacer par un point dans la variable toto (par exemple)

Code:

toto = replace(toto,sepdec, ".")

puis j'applique la fonction Val à toto
Toujours vrai

Dans la foulée : je ne me gêne pas pour imposer à la saisie le séparateur décimal en vigueur (je rejette si Isnumeric = false). Et tout est ainsi pour le mieux dans le meilleur des mondes.
20/01/2017, 22h08
clementmarcotte

Bonjour,

Citation:

Envoyé par unparia

Bonjour
J'ai l'habitude de commencer par déterminer le séparateur decimal en vigueur.

Tu peux l'avoir avec Application.decimalseparator

Une que je ne connaissais pas application.international
20/01/2017, 22h19
unparia

Bonjour clément

Citation:

Tu peux l'avoir avec Application.decimalseparator

Pas toujours (et me retourne un "-" sur ma machine, alors que mon séparateur décimal est une virgule)

J'ai adopté la méthode montrée plus haut depuis qu'un petit espiègle a voulu se moquer du vieux en substituant au caractère décimal un caractère farfelu. Il a vite perdu la face. ;)
21/01/2017, 12h47
Patrick-P

Bonjour RyuAutodidacte, unparia, clementmarcotte, le forum,

J'avais laissé le sujet ouvert, au cas ou j'avais eu un autre petit souci, j'ai teste mon fichier et j'ai juste, je pense une déclaration de variable qui n'est pas bien déclarée.
Et ce matin, me remettant sur le PC, je vois avec surprise que vous me préconisez quelque conseil en plus, :oops: je ne sais quoi vous dire, vous franchement un des dernier bastion du partage dans un monde ultra personnel, votre démarche me va droit au cœur. je ne sais comment vous dire ou simplement un grand merci, c'est si peu avec des mots.

Pour répondre à RyuAutodidacte,
Je sais, je ne voulais pas trop utiliser "On Error Resume Next", je ne voyais pas comment faire autrement, j'ai bien essayé de faire le calcul avec des variables, ça marche bien avec des entiers et t'en que l'on reste sur un calcul entier, il n'y a pas de problème, c'est le zéro qui fout tout à plat, il suffit que dans un textbox il y est un 0.01 pour que cela bug.

Pour répondre à unparia,
"sepdec = Mid(1 / 2, 2, 1)", Quitte à paraitre pour un demeuré,
Comment je comprends votre code, "sepdec" vous déclarez ce mot comme formule avec "Mid" appartenant au langage VBA et assure une fonction de ce langage,
(1 / 2, 2, 1) à partir de ce moment j'ai du mal à interpréter votre écriture.
Si je lis l'aide de VBA , Mid est soit une fonction soit une instruction.
Si c'est une fonction, elle traitera une chaine de caractère,
Si c'est une instruction, elle traitera plusieurs chaine de caractère,
Dans ce cas comment traiter un calcul mathématique ?

Pour répondre à clementmarcotte,
J'ai un tout petit niveau de VBA, si je commence par me perdre dans les méandres du langage, j'ai peur de ne pas comprendre les bases correctement.
Ca, n’empêche que je vais quand même regarder les liens, et comprendre tout ça.

Quoi qu'il en soit un grand merci à vous tous,

et une très bonne journée,

Cordialement,

Patrick
21/01/2017, 13h05
unparia

Citation:

Si c'est une fonction, elle traitera une chaine de caractère,
Si c'est une instruction, elle traitera plusieurs chaine de caractère,

Se replonger donc d'urgence dans l'aide, aidé si nécessaire d'un dictionnaire.

Citation:

Dans ce cas comment traiter un calcul mathématique ?

Toujours le même dictionnaire en mains : relire mon message où je l'expose. :roll: