Aide Svp erreur d'execution'13' : incompatibilité de typeRésolu

Question

Bonjour, j'effectue un projet VBA. Je travaille sous excel(Alt f11) mais mon userform n'a aucun lien avec un classeur Excel.
J'aimerais que l'utilisateur puissse entrer un nombre d&#233;cimal dans les TextBoxH et Textbox B.  
Voici les lignes relatives &#224; ce probl&#232;me :

Dim b As Single
Dim h As Single
b = TextBoxB
h = TextBoxH

If (TextBoxH.Value / TextBoxB.Value) >= 5 Then
MsgBox "Instabilit&#233; : poutre soumise au d&#233;versement, ici H/B >= 5"
End If

Lorsque l'utilisateur rentre des nombres entier dans les TextBox H et B ca marche ,mais pas avec des d&#233;cimaux.

Donne moi du couscous Ch&#233;rie.

mortalino · Accepted Answer

/auteurdetail.aspx?ID=647037 Salut

Dans ta feuille Excel, tes chiffres d&#233;cimaux sont avec des virgules ou des points ?
Si c'est des virgules, 
vas dans panneau de configuration, Options R&#233;gionales, Personnaliser, Symbole d&#233;cimale : " ." (au lieu de ",").

Toutes tes virgules dans tous les fichiers excel seront en points et t'aura plus d'erreur


@ ++

  Mortalino

econs · Answer

Salut,

Les types Single n'acceptent pas les nombres d&#233;cimaux.







Dim b As Long

Dim h As Long

b = Val(TextBoxB.Text)

h = Val(TextBoxH.Text)



If (h / b) >= 5 Then

    MsgBox "Instabilit&#233; : poutre soumise au d&#233;versement, ici H/B >= 5"

End If


Manu

tchobisounours · Answer

Super, Merci pour vos r&#233;ponses &#233;clair&#233;es.

Donne moi du couscous Ch&#233;rie.

Aide Svp erreur d'execution'13' : incompatibilité de type

3 réponses

Discussions similaires