Discussion :

[jose23]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jose23]

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

[Invité]

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

[patricktoulon]

bonsoir

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

attention ca arrondi 1,255 devient 1.26

[jose23]

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

[Thautheme]

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...

[jose23]

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

[Thautheme]

Re,

Arf !... No comment...