Aide Svp erreur d'execution'13' : incompatibilité de type [Résolu]

Signaler
Messages postés
7
Date d'inscription
vendredi 31 mars 2006
Statut
Membre
Dernière intervention
6 avril 2006
-
Messages postés
7
Date d'inscription
vendredi 31 mars 2006
Statut
Membre
Dernière intervention
6 avril 2006
-
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

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
/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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
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
Messages postés
7
Date d'inscription
vendredi 31 mars 2006
Statut
Membre
Dernière intervention
6 avril 2006

Super, Merci pour vos réponses éclairées.

Donne moi du couscous Chérie.