XL 2010 Format nombre Textbox

TheProdigy · 8 Mai 2018

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 · 8 Mai 2018

Re

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

Lone-wolf · 8 Mai 2018

Bonjour adil

Re pierrejean

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

TheProdigy · 8 Mai 2018

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

pierrejean à dit:
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 · 8 Mai 2018

Lone-wolf à dit:
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 · 8 Mai 2018

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 · 9 Mai 2018

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

TheProdigy · 9 Mai 2018

Lone-wolf à dit:
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 · 9 Mai 2018

pierrejean à dit:
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 · 9 Mai 2018

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 · 10 Mai 2018

Bonjour,

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

Complétement méditer(année)

XL 2010 Format nombre Textbox

TheProdigy

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Pièces jointes

TheProdigy

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

TheProdigy

XLDnaute Impliqué

TheProdigy

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Discussions similaires