besoin d'un petit coup de main sur Usrform et calcul

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Janvier 2009

• #2

Re : besoin d'un petit coup de main sur Usrform et calcul

Bonjour

il faut comprendre que dans les textbox il s'agit de texte il faut donc convertir du genre

CDbl(Replace(txtprix.Value, ".", ","))

Cela te convertit ta valeur de ton textbox txtprix en numerique et cela que ce soit un point ou une virgule en séparation

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 26 Janvier 2009

• #3

Re : besoin d'un petit coup de main sur Usrform et calcul

merci, de ton astuce, mais le probleme qui ce passe c'est que j'ai deja sa comme formule dans mon texbox :

Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(txtprix.Value) Or txtprix.Value <= 0 Then
MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
txtprix.Value = ""
Cancel = True
End If

End Sub

je doit mettre ou ta formule dans la mienne

merci d'avance

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Janvier 2009

• #4

Re : besoin d'un petit coup de main sur Usrform et calcul

re

tu n'auras jamais du numerique dans un textbox

donc ton test est erroné par définition

alors biensûr si tu as juste un nombre VBA retranscrit ton nombre "texte" en nombre mais si tu as une virgule ou un point là il dit toujours non numérique

essaies plutot du style

Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
on error goto erreur
toto=CDbl(Replace(txtprix.Value, ".", ","))
exit sub
erreur:
MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
txtprix.Value = ""
End Sub

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 26 Janvier 2009

• #5

Re : besoin d'un petit coup de main sur Usrform et calcul

dsl mais cela ne marche pas
Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
on error goto erreur
txtprix=CDbl(Replace(txtprix.Value, ".", ","))
exit sub
erreur:
MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
txtprix.Value = ""
End Sub
j'ai remplacer ton toto pas txtprix
en plus j'ai plus mon message d'erreur si je rentre le chiffre 0 ou si je laisse vide. je veut que le champs soit obilgatoir avec un message qui dit qu'il est pas bon.

encore merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Janvier 2009

• #6

Re : besoin d'un petit coup de main sur Usrform et calcul

re

essaies ceci

Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

toto = CDbl(Replace(txtprix.Value, ".", ","))
If toto <= 0 Then MsgBox "impossible"
Exit Sub
erreur:
MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
txtprix.Value = ""

End Sub

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 26 Janvier 2009

• #7

Re : besoin d'un petit coup de main sur Usrform et calcul

une question bete, c'est quoi TOTO?
je doit le mettre car sa me donne un erreur ou je doit le remplacer ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Janvier 2009

• #8

Re : besoin d'un petit coup de main sur Usrform et calcul

RE

tu le mets c'est une variable qui récupère la valeur de ton textbox

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Janvier 2009

• #9

Re : besoin d'un petit coup de main sur Usrform et calcul

Bonjour angoul, salut Pascal,

Perso j'écrirais :

Code:

If IsNumeric(Replace(txtprix.Value, ".", ",")) Or IsNumeric(Replace(txtprix.Value, ",", ".")) Then Exit Sub
MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
txtprix.Value = ""

De cette manière ça fonctionne quelque soit le séparateur décimal utilisé par l'ordinateur.

A+

 

Dernière édition: 26 Janvier 2009

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 27 Janvier 2009

• #10

Re : besoin d'un petit coup de main sur Usrform et calcul

merci de votre aide, j'ai essayer ta formule job75, mais helas quand je tape 0.20 en quantite, il m'affiche dans ma listbox 0.01, bizarre

pour ta formule pascal
j'ai une erreur sur les lignes :
Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
toto = CDbl(Replace(txtprix.Value, ".", ","))
il me met la premiere en jaune et surligne le mot toto

quelqu'un peut m'expliquer??
merci

 

Dernière édition: 27 Janvier 2009

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 28 Janvier 2009

• #11

Re : besoin d'un petit coup de main sur Usrform et calcul

bonjour
personne ne peut m'aider pour mon petit probleme???

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 28 Janvier 2009

• #12

Re : besoin d'un petit coup de main sur Usrform et calcul

RE

oups excuses j'avais zappé ton message d'hier

essaies

Private Sub Txtprix_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim toto as DOuble
toto = CDbl(Replace(txtprix.Value, ".", ","))

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 28 Janvier 2009

• #13

Re : besoin d'un petit coup de main sur Usrform et calcul

je t'excuse pas pascal, c'est moi qui doit plutot m'excuser de prendre ton temps

j'ai copier ta formule j'ai plus de beug, mais toujour une erreur au niveau de mon tableau
je tape 0.20 en quantite, il m'affiche dans ma listbox 0.01

merci encore de ton aide.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2009

• #14

Re : besoin d'un petit coup de main sur Usrform et calcul

Bonjour angoul, salut Pascal,

Regardant de nouveau le 1er fichier envoyé, j'ai remarqué une inversion des noms pour les 2 TextBox txtprix et Textquant...

Cela explique peut-être vos problèmes.

A+

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 28 Janvier 2009

• #15

Re : besoin d'un petit coup de main sur Usrform et calcul

oui j'ai vu cela, j'ai bien essayer de modifier ce probleme, mais helas j'y arrive pas, je suis trop nul je pense. quand je change les noms plus rien ne marche.

Si vous pouvez me corriger se probleme cela sera sympa.

merci

 

Vote positif 0 Vote négatif