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

Résolu
tchobisounours Messages postés 7 Date d'inscription vendredi 31 mars 2006 Statut Membre Dernière intervention 6 avril 2006 - 31 mars 2006 à 10:51
tchobisounours Messages postés 7 Date d'inscription vendredi 31 mars 2006 Statut Membre Dernière intervention 6 avril 2006 - 31 mars 2006 à 14:00
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écimal dans les TextBoxH et Textbox B.
Voici les lignes relatives à ce problème :

Dim b As Single
Dim h As Single
b = TextBoxB
h = TextBoxH

If (TextBoxH.Value / TextBoxB.Value) >= 5 Then
MsgBox "Instabilité : poutre soumise au dé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écimaux.

Donne moi du couscous Chérie.

3 réponses

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
31 mars 2006 à 10:56
/auteurdetail.aspx?ID=647037 Salut

Dans ta feuille Excel, tes chiffres décimaux sont avec des virgules ou des points ?
Si c'est des virgules,
vas dans panneau de configuration, Options Régionales, Personnaliser, Symbole décimale : " ." (au lieu de ",").

Toutes tes virgules dans tous les fichiers excel seront en points et t'aura plus d'erreur


@ ++

Mortalino
3
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
31 mars 2006 à 13:22
Salut,

Les types Single n'acceptent pas les nombres décimaux.







Dim b As Long

Dim h As Long

b = Val(TextBoxB.Text)

h = Val(TextBoxH.Text)



If (h / b) >= 5 Then

MsgBox "Instabilité : poutre soumise au déversement, ici H/B >= 5"

End If


Manu
0
tchobisounours Messages postés 7 Date d'inscription vendredi 31 mars 2006 Statut Membre Dernière intervention 6 avril 2006
31 mars 2006 à 14:00
Super, Merci pour vos réponses éclairées.

Donne moi du couscous Chérie.
0
Rejoignez-nous