Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel arrondir à un nombre pair ou divisible par 5

arrondir à un nombre pair ou divisible par 5

15 réponses
Avatar
Bonjour,

Est-il possible de créer une fonction (ou une macro) pour arrondir un nombre
soit à un nombre pair soit à un nombre divisible par 5 ? Par exemple 4,4
devrait donner 4 et 4,6 = 5, aussi 73,4 = 74 et 74,5 = 75 ?

Merci d'avance pour toute suggestion

René
Signaler un problème avec ce contenu

5 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
1 2
Avatar
Rebonjour

Mon symbole décimal, c'est le point "."

"Daniel.C" a écrit dans le message de groupe de
discussion : e6kT9#
Bonjour.
Quel est ton symbole décimal ?
Daniel

Bonjour Modeste,

Merci pour cette formule. Je l ai 'insérée dans la cellule B1 avec une
valeur dans la cellule A1 et c'est le message "La formule que vous avez
tapée contient une erreur" qui apparaît et ça flashe au niveau du 4,5.
Pourquoi ?

J'ai essayé de la disséquer, mais c'est ardu.

Merci d'avance pour votre aide

RL


"Modeste" a écrit dans le message de groupe de discussion :
#
Bonsour® avec ferveur ;o))) vous nous disiez :

Est-il possible de créer une fonction (ou une macro) pour arrondir un
nombre soit à un nombre pair soit à un nombre divisible par 5 ? Par
exemple 4,4 devrait donner 4 et 4,6 = 5, aussi 73,4 = 74 et 74,5 >>>> 75 ?



=SI(OU(MOD(A1;5)<1;MOD(A1;5)>4,5);5*(ENT((A1+2,5)/5));2*(ENT((A1+1)/2)))

53,94 54
96,10 96
74,76 75
92,32 92
62,36 62
35,59 35
16,18 16
71,20 72
83,15 84
49,37 50
59,10 60

HTH








Avatar
O.K. ça marche
Merci mille fois
RL

"Sam" a écrit dans le message de groupe de
discussion : 4b76ec62$0$908$

Bonjour,
pour 35,59 ne faudrait il pas trouver 36 ?

autrement j'ai ceci
=SI(MOD(A1-0,5;5)>=4;5*ARRONDI(A1/5;0);2*ARRONDI(A1/2;0))

Cordialement
Michel dit "Sam"

"Modeste" a écrit dans le message de news:
%
Bonsour® avec ferveur ;o))) vous nous disiez :

Est-il possible de créer une fonction (ou une macro) pour arrondir un
nombre soit à un nombre pair soit à un nombre divisible par 5 ? Par
exemple 4,4 devrait donner 4 et 4,6 = 5, aussi 73,4 = 74 et 74,5 >> 75 ?



=SI(OU(MOD(A1;5)<1;MOD(A1;5)>4,5);5*(ENT((A1+2,5)/5));2*(ENT((A1+1)/2)))

53,94 54
96,10 96
74,76 75
92,32 92
62,36 62
35,59 35
16,18 16
71,20 72
83,15 84
49,37 50
59,10 60

HTH



Avatar
Philippe.R
Bonjour,
Remplacer alors la "," par le "."
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
a écrit dans le message de
news:
Rebonjour

Mon symbole décimal, c'est le point "."

"Daniel.C" a écrit dans le message de groupe de
discussion : e6kT9#
Bonjour.
Quel est ton symbole décimal ?
Daniel

Bonjour Modeste,

Merci pour cette formule. Je l ai 'insérée dans la cellule B1 avec une
valeur dans la cellule A1 et c'est le message "La formule que vous avez
tapée contient une erreur" qui apparaît et ça flashe au niveau du 4,5.
Pourquoi ?

J'ai essayé de la disséquer, mais c'est ardu.

Merci d'avance pour votre aide

RL


"Modeste" a écrit dans le message de groupe de discussion
: #
Bonsour® avec ferveur ;o))) vous nous disiez :

Est-il possible de créer une fonction (ou une macro) pour arrondir un
nombre soit à un nombre pair soit à un nombre divisible par 5 ? Par
exemple 4,4 devrait donner 4 et 4,6 = 5, aussi 73,4 = 74 et 74,5 >>>>> 75 ?



=SI(OU(MOD(A1;5)<1;MOD(A1;5)>4,5);5*(ENT((A1+2,5)/5));2*(ENT((A1+1)/2)))

53,94 54
96,10 96
74,76 75
92,32 92
62,36 62
35,59 35
16,18 16
71,20 72
83,15 84
49,37 50
59,10 60

HTH










Avatar
michdenis
À ce que je vois, je suis le seul à avoir saisi le sens de ta question !
;-))
Avatar
jean-some
Anonyme a écrit le 13/02/2010 à 14h25 :
Bonjour,

Est-il possible de créer une fonction (ou une macro) pour arrondir un
nombre
soit à un nombre pair soit à un nombre divisible par 5 ? Par
exemple 4,4
devrait donner 4 et 4,6 = 5, aussi 73,4 = 74 et 74,5 = 75 ?

Merci d'avance pour toute suggestion

René


voici un facon laborieuse mais sur du resultat car avec la fonction cint() ne retourne pas toujours la bonne reponse dans EXCEL 2003
si tu te sers de formulalocal comme ceci
Sheets("SIMPLE preparation").Range("DG2").FormulaLocal = _
"=SOMME(G2+AN2+BU2)/3"
sujet :: macro
sub decimal_plus_5()
Sheets("SIMPLE preparation").Select
For LIGNE_VIRGULE = 2 To 73
For DECEQUIPE = 111 To 143
T = Sheets("SIMPLE preparation").Cells(LIGNE_VIRGULE, DECEQUIPE)
'MsgBox "((( T )))) = Sheets(SIMPLE preparation).Cells(LIGNE_VIRGULE, DECEQUIPE)=== " & T
'' a partir d'ici, tu te sers d'un range("") qui ne sera pas utilise
Sheets("SIMPLE preparation").Range("DG75").Select
Sheets("SIMPLE preparation").Range("DG75") = Str(Sheets("SIMPLE preparation").Cells(LIGNE_VIRGULE, DECEQUIPE))
'EXEMPLE HDCP = 124,5
'Sheets("SIMPLE preparation").Range("DG76") = "0," & Mid(Sheets("SIMPLE preparation").Range("DG75"), 5)

LEN_NUMERO = Len(Sheets("SIMPLE preparation").Range("DG75"))
If LEN_NUMERO = 4 Then
' exemple :: 34,5
Sheets("SIMPLE preparation").Range("DG77") = Mid(Sheets("SIMPLE preparation").Range("DG75"), 1, 2)
Sheets("SIMPLE preparation").Range("DG76") = Mid(Sheets("SIMPLE preparation").Range("DG75"), 4)
Else
' exemple :: 334,5
Sheets("SIMPLE preparation").Range("DG77") = Mid(Sheets("SIMPLE preparation").Range("DG75"), 1, 3)
Sheets("SIMPLE preparation").Range("DG76") = Mid(Sheets("SIMPLE preparation").Range("DG75"), 5)
End If


If Sheets("SIMPLE preparation").Range("DG76") >= 5 Then

Sheets("SIMPLE preparation").Cells(LIGNE_VIRGULE, DECEQUIPE) = Trim(Sheets("SIMPLE preparation").Range("DG77")) + 1
Else
Sheets("SIMPLE preparation").Cells(LIGNE_VIRGULE, DECEQUIPE) = Trim(Sheets("SIMPLE preparation").Range("DG77"))
End If

Next DECEQUIPE
Next LIGNE_VIRGULE
Range("DG75").Select
Selection.ClearContents
Range("DG76").Select
Selection.ClearContents
Range("DG77").Select
Selection.ClearContents
end sub

j'ai passé des heures afin de trouver
jean some
1 2