Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Résultat d'une division dans un textbox

21 réponses
Avatar
Denys
Bonjour =E0 tous,

Comment faire pour que le r=E9sultat d'une division de la valeur d'un
textbox par un autre textbox donne comme r=E9sultat un maximum de 4
d=E9cimales dans un troisi=E8me textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value =3D TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm r=E9sultat dans le textbox43
35.9181224689565

Je voudrais comme r=E9sultat 35.9181

Sauriez-vous comment ? car m=EAme en inscrivant 7 comme maximum de
caract=E8res acceptables, le r=E9sultat ne change pas....

Merci

Denys

10 réponses

1 2 3
Avatar
lSteph
Bonsoir,
ta messagerie bégaïe??

Cdlt.

lSteph

Denys vient de nous annoncer pour la seconde fois :
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys


--
- -

Avatar
Hervé
Bonsoir Denys,

De cette façon peut être ?

TextBox43.Value = Format(TextBox41.Value / TextBox42.Value, "###.0000")

Hervé.

"Denys" a écrit dans le message de
news:
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys
Avatar
lSteph
ReBonsoir,

Private Sub TextBox42_AfterUpdate()
TextBox43 = Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)),
"0.0000")
End Sub

Cdlt.

lSteph


Denys a émis l'idée suivante :
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys


--
- -

Avatar
garnote
J'ai mis trois TextBox dans un Userform.
455 dans Textbox1
12,6677 dans TextBox2
Ensuite :
Private Sub UserForm_Initialize()
TextBox3.Value = Format(TextBox1.Value / TextBox2.Value, "0.0000")
End Sub
et ça donne 35,9181 dans TextBox3.

Serge



"lSteph" a écrit dans le message de news:
ReBonsoir,

Private Sub TextBox42_AfterUpdate()
TextBox43 = Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")
End Sub

Cdlt.

lSteph


Denys a émis l'idée suivante :
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys


--
- -





Avatar
lSteph
Bonsoir Serge,
garnote a exprimé avec précision :
J'ai mis trois TextBox dans un Userform.
...
Oui, certes mais je n'ai pas compris si c'était une question.

Pour ma part.
Je n'ai pas utilisé initialize
puisqu'il me semblait s'agir de mettre à jour
le 43 après renseignement du 41 et du 42 dons AfterUpdate me paraît
assez bien
et ça donne 35,9181 dans TextBox3.
j'obtiens aussi ce résultat.


Aurais-je commis une erreur ou voulais tu juste indiquer que les deux
solutions fonctionnent ainsi?


@++

Bien amicalement.

LSteph
Stéphane ? (heu pardon j'ai pas pris le temps ce matin)Lepage


garnote a exprimé avec précision :
J'ai mis trois TextBox dans un Userform.
455 dans Textbox1
12,6677 dans TextBox2
Ensuite :
Private Sub UserForm_Initialize()
TextBox3.Value = Format(TextBox1.Value / TextBox2.Value, "0.0000")
End Sub
et ça donne 35,9181 dans TextBox3.

Serge



"lSteph" a écrit dans le message de news:

ReBonsoir,

Private Sub TextBox42_AfterUpdate()
TextBox43 = Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")
End Sub

Cdlt.

lSteph


Denys a émis l'idée suivante :
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys


-- - -





--
- -



Avatar
garnote
J'ai utilisé Initialize pour tester si mon Format donnait le résultat attendu.
Les deux trucs suivants sont-ils équivalents ?
Format(TextBox41.Value / TextBox42.Value, "0.0000")
Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")

Serge



"lSteph" a écrit dans le message de news:
Bonsoir Serge,
garnote a exprimé avec précision :
J'ai mis trois TextBox dans un Userform.
...
Oui, certes mais je n'ai pas compris si c'était une question.

Pour ma part.
Je n'ai pas utilisé initialize
puisqu'il me semblait s'agir de mettre à jour
le 43 après renseignement du 41 et du 42 dons AfterUpdate me paraît assez bien
et ça donne 35,9181 dans TextBox3.
j'obtiens aussi ce résultat.


Aurais-je commis une erreur ou voulais tu juste indiquer que les deux solutions fonctionnent ainsi?


@++

Bien amicalement.

LSteph
Stéphane ? (heu pardon j'ai pas pris le temps ce matin)Lepage


garnote a exprimé avec précision :
J'ai mis trois TextBox dans un Userform.
455 dans Textbox1
12,6677 dans TextBox2
Ensuite :
Private Sub UserForm_Initialize()
TextBox3.Value = Format(TextBox1.Value / TextBox2.Value, "0.0000")
End Sub
et ça donne 35,9181 dans TextBox3.

Serge



"lSteph" a écrit dans le message de news:
ReBonsoir,

Private Sub TextBox42_AfterUpdate()
TextBox43 = Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")
End Sub

Cdlt.

lSteph


Denys a émis l'idée suivante :
Bonjour à tous,

Comment faire pour que le résultat d'une division de la valeur d'un
textbox par un autre textbox donne comme résultat un maximum de 4
décimales dans un troisième textbox ?

Exemple

Private Sub TextBox42_AfterUpdate()
TextBox43.Value = TextBox41.Value / TextBox42.Value
End Sub

455 / 12.6677 donne comm résultat dans le textbox43
35.9181224689565

Je voudrais comme résultat 35.9181

Sauriez-vous comment ? car même en inscrivant 7 comme maximum de
caractères acceptables, le résultat ne change pas....

Merci

Denys


-- - -





--
- -







Avatar
MichDenis
| Les deux trucs suivants sont-ils équivalents ?
| Format(TextBox41.Value / TextBox42.Value, "0.0000")
| Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")


Bonjour Serge,

As-tu testé les deux séparateurs décimales possibles dans tes textbox ?
La virgule ou le point ? Est-ce que cela fonctionne dans les 2 cas ?

Ceci vaut pour les 2 lignes de code !!!!

Ça vaut une petite bière !
Avatar
lSteph
Bonsoir MD,
sitôt que tu as traversé l'atlantique, je t'offre une bière +
de bon coeur, mais
on a déjà mis longhtemps à comprendre que dans les textbox fallait
utiliser le point
à l'instar de la feuille qui elle requiert "selon la norme fr" une
virgule comme séparateur décimal,
Alors c'est pas gentil ;o)) d'vouloir ainsi nous perturber.
sinon c'est amusant , cela arrondi..

Bon allez tu veux une deuxième Bière (sur le compte de Serge), donne ta
formule, qui marche dans tous les cas.

Amicordialement.

lSteph.



MichDenis avait prétendu :
Les deux trucs suivants sont-ils équivalents ?
Format(TextBox41.Value / TextBox42.Value, "0.0000")
Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")



Bonjour Serge,

As-tu testé les deux séparateurs décimales possibles dans tes textbox ?
La virgule ou le point ? Est-ce que cela fonctionne dans les 2 cas ?

Ceci vaut pour les 2 lignes de code !!!!

Ça vaut une petite bière !


--
- -


Avatar
garnote
Salut Denis,

Si TextBox1 contient 455 et TextBox2 contient 12,6677
alors
1)
Private Sub UserForm_Initialize()
TextBox3.Value = Format(TextBox1.Value / TextBox2.Value, "0.0000")
End Sub
renvoie 35,9181 dans TextBox3 (bonne réponse).
et
2)
Private Sub UserForm_Initialize()
TextBox3.Value = Format(CSng(Val(TextBox1)) / CSng(Val(TextBox2)), "0.0000")
End Sub
renvoie 37,9167 dans TextBox3 (mauvaise réponse).

Si je remplace 12,6677 par 12.6677 alors :
1) renvoie Erreur d'exécution 13 (lamentable)
2) renvoie 35,9181 (bonne réponse)

Qu'est-ce à dire ?

Serge




"MichDenis" a écrit dans le message de news:
| Les deux trucs suivants sont-ils équivalents ?
| Format(TextBox41.Value / TextBox42.Value, "0.0000")
| Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")


Bonjour Serge,

As-tu testé les deux séparateurs décimales possibles dans tes textbox ?
La virgule ou le point ? Est-ce que cela fonctionne dans les 2 cas ?

Ceci vaut pour les 2 lignes de code !!!!

Ça vaut une petite bière !





Avatar
lSteph
Re,

Là tu as un entier dans le premier textbox
essaie aussi ainsi par exemple
4.1 et 5.1 puis 4,1 et 5,1
c'est étrange non!

lSteph

garnote a utilisé son clavier pour écrire :
Salut Denis,

Si TextBox1 contient 455 et TextBox2 contient 12,6677
alors
1)
Private Sub UserForm_Initialize()
TextBox3.Value = Format(TextBox1.Value / TextBox2.Value, "0.0000")
End Sub
renvoie 35,9181 dans TextBox3 (bonne réponse).
et
2)
Private Sub UserForm_Initialize()
TextBox3.Value = Format(CSng(Val(TextBox1)) / CSng(Val(TextBox2)),
"0.0000")
End Sub
renvoie 37,9167 dans TextBox3 (mauvaise réponse).

Si je remplace 12,6677 par 12.6677 alors :
1) renvoie Erreur d'exécution 13 (lamentable)
2) renvoie 35,9181 (bonne réponse)

Qu'est-ce à dire ?

Serge




"MichDenis" a écrit dans le message de news:

| Les deux trucs suivants sont-ils équivalents ?
| Format(TextBox41.Value / TextBox42.Value, "0.0000")
| Format(CSng(Val(TextBox41)) / CSng(Val(TextBox42)), "0.0000")


Bonjour Serge,

As-tu testé les deux séparateurs décimales possibles dans tes textbox ?
La virgule ou le point ? Est-ce que cela fonctionne dans les 2 cas ?

Ceci vaut pour les 2 lignes de code !!!!

Ça vaut une petite bière !






--
- -


1 2 3