Je reviens vers vous

Le
mirnan
Merci a ceux qui m'ont aide, malheureusement, cela ne marche pas.
Je vous copie donc ci dessous le code de ma macro, et si quelqu'un trouve ou
cela cloche, merci d'avance.

Dim Gain As Integer
Dim Somme As Integer
Sub Retrait()
' Affichage du gain mensuel
Gain = InputBox("Quel est le gain mensuel?", Gain)
' Calcul du retrait
Somme = [trunc(quotient(gain,50)/2)*50]
' Affichage du retrait
MsgBox "Il faut retirer " & Somme, vbDefaultButton1, "Retrait"
End Sub


Merci spécial a Jacky, la solution proposée "valeur = Int(variable / 50 / 2)
* 50" marche, mais la suivante
" valeur = [TRUNC(QUOTIENT(valeur,50)/2)*50] "
ne marche pas. Or, j'aimerais bien comprendre pourquoi.
Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21548911
Re...
Pourquoi ouvrir un nouveau fil.....

Somme = Int(Gain / 100) * 50
Ou
Somme = Evaluate("TRUNC(QUOTIENT(" & Gain & ",100))*50")

--
Salutations
JJ


"mirnan"
Merci a ceux qui m'ont aide, malheureusement, cela ne marche pas.
Je vous copie donc ci dessous le code de ma macro, et si quelqu'un trouve ou cela cloche, merci d'avance.

Dim Gain As Integer
Dim Somme As Integer
Sub Retrait()
' Affichage du gain mensuel
Gain = InputBox("Quel est le gain mensuel?", Gain)
' Calcul du retrait
Somme = [trunc(quotient(gain,50)/2)*50]
' Affichage du retrait
MsgBox "Il faut retirer " & Somme, vbDefaultButton1, "Retrait"
End Sub


Merci spécial a Jacky, la solution proposée "valeur = Int(variable / 50 / 2) * 50" marche, mais la suivante
" valeur = [TRUNC(QUOTIENT(valeur,50)/2)*50] "
ne marche pas. Or, j'aimerais bien comprendre pourquoi.
Salutations


michdenis
Le #21549021
Bonjour,

Tu as essayé quelque chose comme :

'--------------------------------
Sub Retrait()
Dim Gain As Double, Temp As Variant
Gain = CDbl(Application.InputBox("Quel est le gain mensuel?", Title:="Gain", Type:=1))
Temp = Replace(Gain, ",", ".")
Somme = Evaluate("trunc(quotient(" & Temp & ",50)/2*50)")
MsgBox "Il faut retirer " & Somme, vbDefaultButton1, "Retrait"
End Sub
'--------------------------------



"mirnan" 4bc4a717$0$31053$
Merci a ceux qui m'ont aide, malheureusement, cela ne marche pas.
Je vous copie donc ci dessous le code de ma macro, et si quelqu'un trouve ou
cela cloche, merci d'avance.

Dim Gain As Integer
Dim Somme As Integer
Sub Retrait()
' Affichage du gain mensuel
Gain = InputBox("Quel est le gain mensuel?", Gain)
' Calcul du retrait
Somme = [trunc(quotient(gain,50)/2)*50]
' Affichage du retrait
MsgBox "Il faut retirer " & Somme, vbDefaultButton1, "Retrait"
End Sub


Merci spécial a Jacky, la solution proposée "valeur = Int(variable / 50 / 2)
* 50" marche, mais la suivante
" valeur = [TRUNC(QUOTIENT(valeur,50)/2)*50] "
ne marche pas. Or, j'aimerais bien comprendre pourquoi.
Salutations
Jacky
Le #21550191
Re...
Or, j'aimerais bien comprendre pourquoi




Je n'avais pas vu cette question
ce n'est pas ...
" valeur = [TRUNC(QUOTIENT(valeur,50)/2)*50] "
Mais ....
valeur = [TRUNC(QUOTIENT(variable,50)/2)*50]
Ici "variable" doit être définie comme Nom de variable.(Insertion/nom/définir)

Exemple ici
http://www.cijoint.fr/cjlink.php?file=cj201004/cijXDiOYAe.xls

PS: valeur = Int(variable / 50 / 2) *50 <=====> valeur = Int(variable / 100) *50


--
Salutations
JJ


"mirnan"
Merci a ceux qui m'ont aide, malheureusement, cela ne marche pas.
Je vous copie donc ci dessous le code de ma macro, et si quelqu'un trouve ou cela cloche, merci d'avance.

Dim Gain As Integer
Dim Somme As Integer
Sub Retrait()
' Affichage du gain mensuel
Gain = InputBox("Quel est le gain mensuel?", Gain)
' Calcul du retrait
Somme = [trunc(quotient(gain,50)/2)*50]
' Affichage du retrait
MsgBox "Il faut retirer " & Somme, vbDefaultButton1, "Retrait"
End Sub


Merci spécial a Jacky, la solution proposée "valeur = Int(variable / 50 / 2) * 50" marche, mais la suivante
" valeur = [TRUNC(QUOTIENT(valeur,50)/2)*50] "
ne marche pas. Or, j'aimerais bien comprendre pourquoi.
Salutations


Publicité
Poster une réponse
Anonyme