Probleme valeur dans TextBox

Bonjour,

Pourriez vous m'aider svp, j'ai un problème lors de la première exécution de ma macro ca m'affiche Erreur d'exécution '13'
Je dois rentrer des chiffres dans mes TextBox mais il ne les prend pas en compte !
Voila le bout de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() 'Bouton de l'UserForm Call Simulation Call Copy_First Unload Me End Sub   Public Sub Copy_First() Dim Up, Down As Single Up = UserForm1.TextBox2.Value / 100 Down = UserForm1.TextBox3.Value / 100 'Les 2 valeurs reste à zéro lors de la première exécution

---

Merci d'avance,

Bonjour Jose, bonjour le forum,

Les Textboxes renvoie une valeur dans un format texte (String) il faut les convertir en Double. Essaie comme ça :

Code:

---

1 2 3 4

Public Sub Copy_First() Dim Up, Down As Single Up = CDbl(UserForm1.TextBox2.Value) / 100 Down = CDbl(UserForm1.TextBox3.Value) / 100 'Les 2 valeurs reste à zéro lors de la première exécution

---

Bonjour Thautheme,

Merci pour ta réponse mais j'avais déjà essayé ca et aussi
Up = Format ( UserForm1.TextBox2.Value, "0,00" )/100

Ca ne marche pas que quand j'exécute le code la première fois après le débogage il n y'a plus de problème

Bonsoir,
Up = val(replace("" & UserForm1.TextBox2.Value, ",",".")) /100

bonsoir

Citation:

---

Bonjour Thautheme,

Merci pour ta réponse mais j'avais déjà essayé ca et aussi
Up = Format ( UserForm1.TextBox2.Value, "0,00" )/100

Ca ne marche pas que quand j'exécute le code la première fois après le débogage il n y'a plus de problème

---

ce n'est pas ce que tautheme t'a indiqué
ca n'est pas parce que tu formate une chaine numerique avec format que ca devient un numerique la chaine est toujours un string
quand au fait qu'apres le debugage un 2d essaie fonctionne n'est pas logique je soupconne le "/100" ne semer la confusion
val ou clng ou cdbl voir cdec
;)

Code:

---

Up = cdbl( UserForm1.TextBox2.Value )/100

---

et pour formater a 2 decimales on utilisera pas format (qui retransformerait en string) mais round

Code:

---

Up = round(cdbl( UserForm1.TextBox2.Value )/100,2)'2decimales

---

attention ca arrondi 1,255 devient 1.26
;)

Bonjour patricktoulon,

Merci pour ta réponse.
J'ai dis à Thautheme que j'avais déjà essayé Up = cdbl( UserForm1.TextBox2.Value )/100 et ca ne marche pas.
Justement c'est ce qui me laisse perplexe c'est que ca fonctionne normalement au 2nd essai après le debugage :?

Bonjour le fil, bonjour le forum,

"Ça ne marche pas", ne signifie pas grand chose ! Surtout quand on a juste un bout du code extrait de son contexte... Tu n'as pas le résultat espéré ou s'il y a bug, quelle est le message ? Les variables up et down ne devraient-elles pas être déclarées au niveau du module (Private) voire Public, plutôt que dans la procédure ?... Si tu nous donnais plus d'infos on pourrait te proposer plus de solutions. En plus je viens juste te télécharger l'application Tirage des vers du nez qui est m'est bien utile dans des cas comme le tien...

Bonjour tout le monde,

Merci pour vos réponses, finalement j'ai réussi à trouver une solution alternative à mon problème en mettant les valeurs des TextBox dans des cellules de ma feuille

Re,

Arf !... No comment...