Autres La formule ARRONDI

[Neo Hyuga]

hello,

je suis sous excel 2007 en francais,

mon soucis du jour, j'ai besoin d'une formule qui m'arrondisse un chiffre rentré dans la même cellule selon ces criteres :
- de 0 a 5.0, arrondir a la dizaine inférieur
- de 5.5 a 9.5 arrondir a la dizaine supérieur

exemple :
73.5 devient 70
ou
115.5 devient 120

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

une idée svp ?

merci d'avance

PS : J'ai pas mis de fichier, je me suis dit que c'etait assez clair comme ca, mais si necessaire j'en mettrais un

 

[job75]

Bonjour,

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

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

A+

 

[Neo Hyuga]

Bonjour,

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

A+

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.

 

[job75]

Bon avec le nombre en A1 entrez en B1 :

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

 

[Neo Hyuga]

Bon avec le nombre en A1 entrez en B1 :

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

merci bcp

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

est ce possible ?

 

[job75]

Par formule non, il faut du VBA.

 

[Neo Hyuga]

Par formule non, il faut du VBA.

ah mince ok tant pis et merci a nouveau

 

[job75]

Bonjour Neo Hyuga, le forum,

Une autre solution :

=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+

 

[job75]

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

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

 

[Neo Hyuga]

Merci bcp

 

[Dranreb]

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 ?

 

[Dranreb]

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)

 

[Neo Hyuga]

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

 

[oguruma]

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

 

[Neo Hyuga]

c'est interessant merci bien