Discussion :

[Sofy16]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mercatog]

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

[Sofy16]

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 ?

[PMO2017]

Bonjour,

Essayez pour voir si cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sofy16]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !