XL 2013 Calcule de produit dans un textbox

[Appo1985]

Bonjour
Je voudrais que la valeur d'un textbox (textbox4) soit le produit des valeurs de deux textbox (textbox5 et textbox6) ceci quand une condition est remplie. La condition est que les textbox 5 et 6 soient visibles car il sont souvent masqués .
J'ai fait le code ci-dessous mais je ne sais pas si il n'a pas d'anomalies et je ne sais où placer le code pour que ça marche.
Je voudrais que ça soit calculer en même temps que j'introduis les chiffres dans les textbox 5 et 6

Merci par avance
Code:
Private Sub TextBox4_Change()
If UserForm1.TextBox5.Visible = True And UserForm1.Label8.Visible = True And UserForm1.TextBox6.Visible = True Then
Me.TextBox4.Value = (Me.TextBox5.Value * Me.TextBox6.Value)
End If
End Sub

 

[sousou]

Bonjour
regarde ceci , tu dois aussi traiter la valeur numérique des textes box,
ajout du controle alphanumérique

 

[Appo1985]

Bonjour
regarde ceci , tu dois aussi traiter la valeur numérique des textes box,
ajout du controle alphanumérique

Testé et satisfait. Merci beaucoup

 

[job75]

Bonjour Appo1985, sousou,

Je voudrais que ça soit calculer en même temps que j'introduis les chiffres dans les textbox 5 et 6

Les TextBox sont normalement visibles quand elles sont modifiées, on peut utiliser simplement :

Private Sub TextBox5_Change()
TextBox4 = Val(Replace(TextBox5, ",", ".")) * Val(Replace(TextBox6, ",", "."))
End Sub

Private Sub TextBox6_Change()
TextBox5_Change
End Sub

A+