XL 2010 VBA: Erreur lors d'une multiplication des des chiffres avec virgule

P

pilou76

XLDnaute Occasionnel

• 7 Mai 2018

• #2

Bonjour,
Essaye Cells(no_ligne, 12) = Val(TextBox1.Value) * Val(TextBox2.Value)

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 7 Mai 2018

• #3

Bonjour,

Utilise CDbl, cela permettra de convertir les données au format double 😉

Cells(no_ligne, 12) = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)


Oranger

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Mai 2018

• #4

Bonjour à tous

Je suggère:

Cells(no_ligne, 12) = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #5

pilou76 à dit:

Bonjour,
Essaye Cells(no_ligne, 12) = Val(TextBox1.Value) * Val(TextBox2.Value)

Cliquez pour agrandir...

Merci ta formule fonctionne correctement

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #6

Oranger à dit:

Bonjour,

Utilise CDbl, cela permettra de convertir les données au format double 😉

Cells(no_ligne, 12) = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)


Oranger

Cliquez pour agrandir...

@Oranger ton code bug Merci

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #7

pierrejean à dit:

Bonjour à tous

Je suggère:

Cells(no_ligne, 12) = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))

Cliquez pour agrandir...

@pierrejean Ton code fonctionne parfaitement. Merci

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #8

Autre question svp Comment afficher le total en format Millier dans le Msgbox? merci

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 7 Mai 2018

• #9

https://jpcheck.developpez.com/tutoriels/office/fonction-format-dans-vba/#LII-a

Oranger

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #10

Oranger à dit:

https://jpcheck.developpez.com/tutoriels/office/fonction-format-dans-vba/#LII-a

Oranger

Cliquez pour agrandir...

Merci beaucoup @Oranger

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #11

J'ai crée un Label LAbel14,

Est-il possible dans VBA d'afficher le montant total instantanément lors de la saisi du nombre et du prix avant d’appuyer sur Valider

Label 14 = nombre * prix

Merci

 

Pièces jointes

• Saisi1.xlsm

  53 KB · Affichages: 41

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Mai 2018

• #12

Bonjour à tous 🙂

@adilprodigy

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")
End Sub

Cells(no_ligne, 12) = Format(Val(Label14.Caption), "0.000")
MsgBox Format(Total, "0.000")


Utilise TAB du clavier.

 

Dernière édition: 7 Mai 2018

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 7 Mai 2018

• #13

Lone-wolf à dit:

Bonjour à tous 🙂

@adilprodigy

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")
End Sub

Cells(no_ligne, 12) = Format(Val(Label14.Caption), "0.000")
MsgBox Format(Total, "0.000")


Utilise TAB du clavier.

Cliquez pour agrandir...

Merci beaucoup @Lone-wolf

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Mai 2018

• #14

Re

Si MsgBox ne joue pas avec Total, remplace-le avec Label14.Caption.

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 10 Mai 2018

• #15

Re Bonjour @pierrejean @Staple1600

Excusez-moi d'avoir crée un fil de cette discussion https://www.excel-downloads.com/threads/resultat-dune-formule-vba.20024310/

Voici le fichier

 

Pièces jointes

• Saisi1_2.xlsm

  5.4 MB · Affichages: 33

Vote positif 0 Vote négatif