Calcul dans des textbox

Résolu
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Dans un formulaire je cherche à calculer texbox4/Textbox5*Textbox17 et mettre le résultat dans la textebox13 (M3/j 1) et pareil pour texbox6/Textbox7*Textbox17 résultat dans (M3/j2) puis texbox8/Textbox9*Textbox17 résultat dans (M3/j3) et pour finir texbox11/Textbox12*Textbox17 résultat dans (M3/j4). En sachant que toutes les textbox ne seront pas forcement toutes remplies en même temps. Pour une meilleure compréhension je joins un fichier.
Ps : les données sont des nombres avec parfois des virgules.
Merci de prendre le temps de me lire.
http://www.cjoint.com/data3/FKctJa3a2Oc_Essai---Copie1.xlsm
A voir également:

6 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

As-tu essayé :
textbox13 = textbox4 / Textbox5 * Textbox17

0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonsoir,
Je vient de tester ta réponse et malheureusement ça marche pas
Incompatibilité type Erreur d'exécution "13".
En espérant une solution merci de te pencher sur mon problème.
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonsoir,

Tu dois avoir des données non numériques ou avec le mauvais séparateur décimal. Tu peux essayer
If IsNumeric(Me.TextBox17) And IsNumeric(Me.TextBox4) And IsNumeric(Me.TextBox5) Then
    Me.TextBox13 = CDbl(Me.TextBox4) / CDbl(Me.TextBox5) * CDbl(Me.TextBox17)
Else
    MsgBox "données non numériques"
End If
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
Re
Nouveau message d'erreur
Membre de méthode ou de données introuvable.
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Sans doute le nom des textbox que j'ai rectifié : j'avais testé avec d'autres.
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Re,
plus de message d'erreur mais le calcul ne ce fait pas.Voila la formule que j'ai mis.

If IsNumeric(Me.TextBox4) And IsNumeric(Me.TextBox5) And IsNumeric(Me.TextBox17) Then
Me.TextBox13 = CDbl(Me.TextBox4) / CDbl(Me.TextBox5) * CDbl(Me.TextBox17)
Else
MsgBox "données non numériques"
End If
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

le calcul ne ce fait pas.
Tu obtiens quoi dans Me.TextBox13 ?
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour,
Merci de me répondre. c'est le vide complet dans TextBox13, normalement le résultat de la formule devrait s'afficher mais là rien du tout.
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Je ne sais pas ce que tu fais et comment cela fonctionne mais j'ai mis ce code dans ton classeur et par exemple quand je saisis 10 et 20, comme 86.400 est affiché, j'obtiens 43.2 qui me parait tout à fait correct : 10 / 20 * 86.400 = 43.2

La preuve : https://www.cjoint.com/c/FKdrtksBbkl
Il te suffit de saisir dans textbox4 et textbox5
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
Re
Si tu pouvais me renvoyer le classeur comme ça je verrais ou tu met exactement le code car avec moi cela ne marche pas.
Merci de ta patience
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Re : c'était fait...
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 
oups pas vu
Désole d’être un tel boulet mais si je tape 6 dans la textbox4 et 8 dans la textbox 5 rien ne se passe .Seul le message apparaît (données non numériques). je ne sais plus quoi faire
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Dans la TextBox17, essaies de remplacer le point par la virgule car le pense que tu dois être en séparateur décimal virgule.
0
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour,
Merci pour ta réponse c'est bon ça marche impeccable.
0