Calcul dans des textbox

Résolu/Fermé
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 2 nov. 2016 à 20:35
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 11 nov. 2016 à 11:54
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
2 nov. 2016 à 21:37
Bonjour,

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

0
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
2 nov. 2016 à 22:02
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
Modifié par gbinforme le 2/11/2016 à 22:59
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 mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
2 nov. 2016 à 22:43
Re
Nouveau message d'erreur
Membre de méthode ou de données introuvable.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
2 nov. 2016 à 23:01
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 mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
2 nov. 2016 à 23:28
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
3 nov. 2016 à 08:35
Bonjour,

le calcul ne ce fait pas.
Tu obtiens quoi dans Me.TextBox13 ?
0
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
3 nov. 2016 à 17:56
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
Modifié par gbinforme le 3/11/2016 à 18:24
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 mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
3 nov. 2016 à 18:28
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
3 nov. 2016 à 18:31
Re : c'était fait...
0
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
3 nov. 2016 à 19:26
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
3 nov. 2016 à 20:41
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 mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
11 nov. 2016 à 11:54
Bonjour,
Merci pour ta réponse c'est bon ça marche impeccable.
0