Multiplié 2 textbox sur une 3eme textbox

Bonsoir le forum,

J'ai mon programme qui normalement devrais multiplié 2 TxtBox entre elle mais la elle bug je ne comprend vraiment pas ou est le problème .Pouvez-vous y jeter un œil svp? merci beaucoup. (erreur incompatibilité)

Private Sub TextPU_Change()
If Me.TextQuantite <> "" Then
  Me.TextPrixTotalHT.Value = (Me.TextPU.Value * Me.TextQuantite.Value)
Else
  Me.TextPrixTotalHT.Value = ""
End If
End Sub

Private Sub TextQuantite_Change()
If Me.TextPU <> "" Then
  Me.TextPrixTotalHT.Value = (Me.TextPU.Value * Me.TextQuantite.Value)
Else
  Me.TextPrixTotalHT.Value = ""
End If
End Sub

Cordialment.

Bonsoir,

une textbox comme sont nom le dit est du texte, donc pas de multiplication ! Il faut transformer les données alphanumérique en numérique en fonction de ce que c'est. Si ce sont des décimaux alors il faut utiliser CDbl : TextBox3 = CDbl(TextBox1) * CDbl(TextBox2)

@ bientôt

LouReeD

Bonjour LouReeD,

Du coup il faut créer la variable CDBI en Integer c'est bien ça?

Cldt

Bonjour,

Non CDbl() est une fonction VBA.

@ bientôt

LouReeD