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

[TheProdigy]

Bonjour,

J'ai crée deux texbox de saisi de chiffres "Nombre" et "Prix". La multiplication ne fonctionne pas quand je saisis des chiffres avec virgule.
Merci.

 

[pilou76]

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

 

[Oranger]

Bonjour,

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

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


Oranger

 

[pierrejean]

Bonjour à tous

Je suggère:

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

 

[TheProdigy]

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

Merci ta formule fonctionne correctement

 

[TheProdigy]

Bonjour,

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

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


Oranger

@Oranger ton code bug Merci

 

[TheProdigy]

Bonjour à tous

Je suggère:

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

@pierrejean Ton code fonctionne parfaitement. Merci

 

[TheProdigy]

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

 

[Oranger]

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

Oranger

 

[TheProdigy]

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

Oranger

Merci beaucoup @Oranger

 

[TheProdigy]

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

 

[Lone-wolf]

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.

 

[TheProdigy]

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.

Merci beaucoup @Lone-wolf

 

[Lone-wolf]

Re

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

 

[TheProdigy]

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