Erreur 13, incompatibilité de type

[Cougar]

Bonjour le forum,

Pourquoi j'ai une incompatibilité de type ?

Private Sub CommandButton1_Click()

mavar = Abs(TextBox33.Value)

TextBox9.SetFocus

 

[ziopizza]

Re : Erreur 13, incompatibilité de type

Bonjour essaye comme ça,
mavar = Abs(Val(TextBox1))
Salut Yves

 

[Gorfael]

Re : Erreur 13, incompatibilité de type

Bonjour le forum,

Pourquoi j'ai une incompatibilité de type ?

Private Sub CommandButton1_Click()

mavar = Abs(TextBox33.Value)

TextBox9.SetFocus

Salut
Parce que 🙂
TextBox => boite à texte.
Excel est suffisament "intelligent" pour transformer la saisie du point du pavé numérique en virgule.
Mais quand tu passes en VBA, il ne le fait pas, et si dans ta valeur numérique tu mets un point, il pique sa crise et te jette.

Donc, soit tu t'astreins à bien utiliser la virgule, soit tu transformes ton point en virgule, soit tu modifies le point par exemple

Private Sub CommandButton1_Click()

mavar = Abs(Replace(TextBox33 ".", ",", 1))

TextBox9.SetFocus

A+

 

[Cougar]

Re : Erreur 13, incompatibilité de type

Bonjour le fil, le forum

ziopizza, mavar = 0 et mon textbox = -16 ???

Gorfael, ma valeur est entière, donc seulement 1, 2, 3, etc. Pas besoin de changer la virgule.

Merci.

 

[ziopizza]

Re : Erreur 13, incompatibilité de type

Bonjour à tous ,
Pas sur de comprendre,Je joins un petit test .
Salut Yves

 

[Cougar]

Re : Erreur 13, incompatibilité de type

Bonsoir le fil,

Fonctionnel, merci.