Erreur 13, incompatibilité de type

ziopizza

XLDnaute Occasionnel

• 15 Septembre 2006

• #2

Re : Erreur 13, incompatibilité de type

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 15 Septembre 2006

• #3

Re : Erreur 13, incompatibilité de type

Cougar à dit:

Bonjour le forum,

Pourquoi j'ai une incompatibilité de type ?

Private Sub CommandButton1_Click()

mavar = Abs(TextBox33.Value)

TextBox9.SetFocus

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 15 Septembre 2006

• #4

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.

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 16 Septembre 2006

• #5

Re : Erreur 13, incompatibilité de type

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

 

Pièces jointes

• mavar.xls

  26.5 KB · Affichages: 55

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 19 Septembre 2006

• #6

Re : Erreur 13, incompatibilité de type

Bonsoir le fil,

Fonctionnel, merci.

 

Vote positif 0 Vote négatif