Problème effacement données Userform (multiplication textbox)

Bonjour à tous,

J'ai créé un Userform dans lequel il y a une multiplication entre deux Textbox sous la forme :

Code:

---

1 2 3 4

UserForm3.TextBox31 = UserForm3.TextBox31.Value If UserForm3.TextBox32 <> "" Then UserForm3.TextBox35 = UserForm3.TextBox31 * UserForm3.TextBox32 End If

---

J'ai également créé un Commandbutton afin d'effacer l'ensemble des données de ma Userform, pour la remettre à zéro, sous la forme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If MsgBox("Are you sure ?", vbYesNo, "Cancel") = vbYes Then   Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "ListBox", "ComboBox" c.ListIndex = -1 End Select Next End If

---

Seulement voilà, lorsque je clique sur mon commandbutton, il m'affiche "erreur d'exécution 13 : incompatibilité de type", en surlignant en jaune ma ligne "UserForm3.TextBox35 = UserForm3.TextBox31 * UserForm3.TextBox32"

Pourriez-vous m'aider à résoudre mon problème afin que je puisse remettre à zéro l'ensemble des entrées de ma Userform, y compris cette partie où un calcul entre deux Textbox est réalisé

Merci beaucoup à tous !

Les textbox comme leur nom l'indique donnent du texte (qu'on ne peut pas multiplier)

Il faudra faire appel aux fonctions de conversion string/numeric

Bonjour,

Pourtant, cela fonctionne, j'arrive bien à multiplier les données comme je le souhaite. Le problème étant que je n'arrive pas à les effacer alors que j'arrive à effacer les données des autres textbox et combobox.
Mais cela provient peut-être du fait que j'ai des chiffres multipliés dans des textbox ?

Bonjour,

Essayez pour voir si cela fonctionne

Code:

---

1 2 3 4 5 6 7 8

Dim x# UserForm3.TextBox31 = UserForm3.TextBox31.Value If UserForm3.TextBox32 <> "" Then If isumeric(UserForm3.TextBox31) And IsNumeric(UserForm3.TextBox32) Then x# = CDbl(UserForm3.TextBox31) * CDbl((UserForm3.TextBox32)) UserForm3.TextBox35 = CStr(x#) End If End If

---

Merci pour vos explications,

J'ai finalement réussi en modifiant mes commandes de multiplication de la façon suivante, en transformant mes données en valeurs numériques donc :

Code:

---

1 2 3 4 5 6 7 8

UserForm3.TextBox31 = Val(UserForm3.TextBox31) If UserForm3.TextBox32 <> "" Then UserForm3.TextBox35 = UserForm3.TextBox31 * UserForm3.TextBox32 End If   UserForm3.TextBox31.Value = Val(UserForm3.TextBox31) UserForm3.TextBox32.Value = Val(UserForm3.TextBox32) UserForm3.TextBox35.Value = Val(UserForm3.TextBox35)

---

Merci et bonne journée !