Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Je reviens vers vous

Je reviens vers vous

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Re...
Pourquoi ouvrir un nouveau fil.....

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

--
Salutations
JJ


"mirnan" a écrit dans le message de news: 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


Avatar
michdenis
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" a écrit dans le message de groupe de discussion :
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
Avatar
Jacky
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" a écrit dans le message de news: 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