XL 2010 Format nombre Textbox

[TheProdigy]

Bonjour,

J'ai fourni un effort pour mettre en forme mes Textbox1 et Textbox2 mais la multiplication dans le Label14 me donne un chiffre erroné je ne comprends pas pourquoi.

Merci de m'aider svp

 

[pierrejean]

Re

Il me semblait te l'avoir proposé !!!!
Vois si cela va mieux

 

[Lone-wolf]

Bonjour adil

Re pierrejean

@adilprodigy : chez moi le calcul est juste. T'as fait quoi comme manip??

 

[TheProdigy]

Oui, c'est votre conseil mais la multiplication est erronée

Re

Il me semblait te l'avoir proposé !!!!
Vois si cela va mieux

Oui j'ai utilisé votre solution mais regardez

La multiplication = 12 eronné

 

[TheProdigy]

Bonjour adil

Re pierrejean

@adilprodigy : chez moi le calcul est juste. T'as fait quoi comme manip??

Bonjour @Lone-wolf sûrement j'ai fait une bêtise

 

[Lone-wolf]

RE

@adilprodigy :
Déjà de 1 : à quoi sa sert d'emmerder le monde (demande d'aide) quand on te donne un exemple et toi tu fait tout le contraire??

De 2: pourquoi il y a une virgule dans nombre; c'est quoi des Kg, des grammes??
De 3: pourquoi avoir ouvert un autre fil??

Reprend l'exemple que j'avait donné et débrouille toi.

Private Sub TextBox2_AfterUpdate()
Dim total As Double ' À mettre en entête du formulaire
total = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Label14.Caption = Format(total, "0.000")
MsgBox Format(total, "0.000")
End Sub

En Image

 

[pierrejean]

Re
ATTENTION !!!
L'usage du on error resume next doit etre MAITRISE
Dans les textbox_update il était superfétatoire

 

[TheProdigy]

RE

@adilprodigy :
Déjà de 1 : à quoi sa sert d'emmerder le monde (demande d'aide) quand on te donne un exemple et toi tu fait tout le contraire??

De 2: pourquoi il y a une virgule dans nombre; c'est quoi des Kg, des grammes??
De 3: pourquoi avoir ouvert un autre fil??

Reprend l'exemple que j'avait donné et débrouille toi.

Private Sub TextBox2_AfterUpdate()
Dim total As Double ' À mettre en entête du formulaire
total = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Label14.Caption = Format(total, "0.000")
MsgBox Format(total, "0.000")
End Sub

En Image

Regarde la pièce jointe 1011639

Bonjour @Lone-wolf bonjour @pierrejean , bonjour le forum,

1) Je n'ai pas fait le contraire, si tu remarques bien j'ai utilisé la solution et je l'ai développé de telle sorte à avoir le format des chiffres en milliers dans le texbox. Je me suis investi dans le forum et la recherche pour ne pas rester passif mais malheureusement ça a foiré;
2) Voilà c'est le résultat de ma recherche je voulais forcer le format des Texbox de telle sorte à ce qu'il paraissent en millier lors de la saisie;
3) Pour que l'intitulé puisse décrire exactement le problème; Le membre qui souhaite chercher Format nombre Texbox se repère facilement

Je ne savais pas qu'il faut continuer sur le même projet en déclinant les sous-problèmes. Je suivrai vos conseils prochainement.

Merci à tous.

 

[TheProdigy]

Re
ATTENTION !!!
L'usage du on error resume next doit etre MAITRISE
Dans les textbox_update il était superfétatoire

Donc je dois enlever je l'ai exécuté bêtement

Merci @pierrejean

 

[Lone-wolf]

Bonjour à tous

@adilprodigy: concerne(txtbox nombre)-tu as déjà été chez un marchand de poissons par exemple et lui dire
"Je veux 975, 479 grammes de sardines"?? , oubien tu lui dit "Je veux 1 kilo de sardines".
Ou encore, je veux 112, 075 grammes de menthe fraîche.

Je te laisse méditer(année)

 

[TheProdigy]

Bonjour,

@Lone-wolf Je me sens perdu avec le VBA qui est ###,###.00 et Excel ###.###,00

Complétement méditer(année)