Autres La formule ARRONDI

job75

XLDnaute Barbatruc

• 26 Juillet 2023

• #2

Bonjour,

Neo Hyuga à dit:

- de 5.5 a 9.5 arrondir a la dizaine supérieur

Cliquez pour agrandir...

Ce n'est pas clair : que faire avec 115.1 ou 119.6 ?

A+

 

Vote positif 0 Vote négatif

Neo Hyuga

XLDnaute Occasionnel

• 26 Juillet 2023

• #3

job75 à dit:

Bonjour,

Ce n'est pas clair : que faire avec 115.1 ou 119.6 ?

A+

Cliquez pour agrandir...

115.1 devient 120, pareil pour 119.6.
Tu as raison de souligner ca, Je m'excuse, j'aurais du preciser que mes chiffres peuvent varier de 1/2 unité seulement, donc je peux avoir 84.5 mais pas de 84.4 par exemple.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juillet 2023

• #4

Bon avec le nombre en A1 entrez en B1 :

Code:

=SI(A1-10*ENT(A1/10)<=5;PLANCHER(A1;10);PLAFOND(A1;10))

 

Vote positif 1 Vote négatif

Solution

Neo Hyuga

XLDnaute Occasionnel

• 26 Juillet 2023

• #5

job75 à dit:

Bon avec le nombre en A1 entrez en B1 :

Code:

=SI(A1-10*ENT(A1/10)<=5;PLANCHER(A1;10);PLAFOND(A1;10))

Cliquez pour agrandir...

merci bcp

Le problème c'est que j'arrive pas a savoir si la cellule source et cible peuvent être la même ?

Cliquez pour agrandir...

est ce possible ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juillet 2023

• #6

Par formule non, il faut du VBA.

 

Vote positif 0 Vote négatif

Neo Hyuga

XLDnaute Occasionnel

• 26 Juillet 2023

• #7

job75 à dit:

Par formule non, il faut du VBA.

Cliquez pour agrandir...

ah mince ok tant pis et merci a nouveau

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Juillet 2023

• #8

Bonjour Neo Hyuga, le forum,

Une autre solution :

Code:

=PLANCHER(A1;10)+10*(A1-PLANCHER(A1;10)>5)

Cette formule prend 37 octets en mémoire.

Celle du post #4 prend 63 octets (la fonction SI en prend 18).

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Juillet 2023

• #9

Pour appliquer la formule sur la cellule modifiée voyez le fichier joint et cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In [C4:F15] 'plage à adapter
    If IsNumeric(CStr(c)) Then c = Application.Floor(c, 10) - 10 * (c - Application.Floor(c, 10) > 5)
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

 

Pièces jointes

• Classeur(1).xlsm

  16.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Neo Hyuga

XLDnaute Occasionnel

• 28 Juillet 2023

• #10

Merci bcp

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Juillet 2023

• #11

Bonjour.
L'expression nécessaire me semble bien plus simple : c.Value = -10 * Int(0.5 - c.Value / 10)
Pourquoi les nombres entiers impaires multiples de 5 doivent-ils être arrondi à la dizaine inférieure ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Juillet 2023

• #12

Si une valeur imperceptiblement supérieure à une valeur de basculement devait aussi être arrondie à la dizaine inférieure, il vaudrait mieux prendre c.Value = 10 * Int((c.Value + 4.999999) / 10)

 

Vote positif 0 Vote négatif

Neo Hyuga

XLDnaute Occasionnel

• 29 Juillet 2023

• #13

Bonjour les solutions de Job75 m'ont grandement aidés, merci

 

Vote positif 0 Vote négatif

oguruma

XLDnaute Occasionnel

• 30 Juillet 2023

• #14

Rappel de quelques principes sur le fonctionnement des arrondis et cette méthode est imparable.
De plus maintenant avec la fonction Lambda de O365 c'est un jeux d'enfant.

Ci-dessous la méthode. Parfois le tout automatique ne fait pas toujours ce que l'on veut.
Pour les anciens qui ont connu COBOL ANS 74/76 la fonction ROUNDED comportait des failles et on était obligé de refaire notre propre arrondi
Je posterai à cette occasion un série Lambda_Rounded



A adapter selon le Nbr de décimales. Ce qu'il faut retenir
Arrondi à 2 décimales on ajoute 0.005, on multiplie par 100, on retient la valeur entière puis on divise par 100

Arrondi à 1 décimale on ajoute 0.05, on multiplie par 10, on retient la valeur entière puis on divise par 10

Arrondi à sans décimal on ajoute 0.5, on multiplie par 1, on retient la valeur entière puis on divise par 1
==>j'ai gardé le 1 volontairement pour bien montrer la logique, bien entendu on pourrait s'en passer

donc pour 3 décimales ou 4 décimales ou n décimales.... je vous laisse faire les conversions qui vont bien

 

Dernière édition: 30 Juillet 2023

Vote positif 0 Vote négatif

Neo Hyuga

XLDnaute Occasionnel

• 30 Juillet 2023

• #15

c'est interessant merci bien

 

Vote positif 0 Vote négatif