XL pour MAC Arrondir automatiquement le chiffre d'une cellule

[Jimbob]

Bonjour à tous

Je fais appel a vous afin de savoir si il est possible et si oui comment, d'arrondir le chiffre d'une cellule et que la différence soit inscrite automatiquement dans une autre case.
Je ne sais pas si je suis très clair ^^.
Exemple : Dans la case B2 est noté 45,18
je souhaiterais que automatiquement dans ma case B2 apparaisse 46
et que la différence, soit 0,82 apparaisse dans la case F4


Je vous remercie par avance

 

[Jimbob]

Bonjour Jimbob, JM, soan,

Remplacer le nombre décimal par son arrondi ne me paraît pas une bonne solution car on perd la valeur d'origine.

Il vaut mieux concaténer les 2 valeurs dans la même cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B2:D20]) 'plage à adapter
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées/effacements multiples
    If IsNumeric(CStr(Target)) Then Target = Target & " * " & Application.Ceiling(Target, 1) Else Target = ""
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

En F4 formule matricielle pour faire la somme des écarts :

=SOMME(SI(ESTNUM(TROUVE("*";B2:D20));STXT(B2:D20;TROUVE("*";B2:D20)+1;99)-GAUCHE(B2:D20;TROUVE("*";B2:D20)-1)))

A+

Bonjour,

désolé je reponds tard, quelques contre temps.
Donc j'aime bien cette solution car en effet ne pas perdre la valeur de départ c'est pas mal.
Mais du coup je ne sais pas comment faire la somme des valeurs.

Dans ma case j'ai ; 287,12 * 288, dans l'autre 12,56 * 13
Comment faire la sommes automatiquement de 288+13

 

[job75]

Bonjour Jimbob,

Fichier (2) avec la formule matricielle en G4 :

=SOMME(SI(ESTNUM(TROUVE("*";$B2:$D20));--STXT($B2:$D20;TROUVE("*";$B2:$D20)+1;99)))

A+

 

[Jimbob]

Bonjour Jimbob,

Fichier (2) avec la formule matricielle en G4 :

=SOMME(SI(ESTNUM(TROUVE("*";$B2:$D20));--STXT($B2:$D20;TROUVE("*";$B2:$D20)+1;99)))

A+

Super merci =)

Et y a t il possibilité d'afficher seulement la valeur arrondi sans perdre la valeur de départ

 

[job75]

Et y a t il possibilité d'afficher seulement la valeur arrondi sans perdre la valeur de départ

Avec un seul tableau de résultats ce n'est pas possible, avec 2 tableaux c'est possible.

 

[Modeste geedee]

Bonsour®

Et y a t il possibilité d'afficher seulement la valeur arrondi sans perdre la valeur de départ

en dehors de l'arrondi commercial en défaveur du client ...

Spoiler: #12

XL pour MAC - Arrondir automatiquement le chiffre d'une cellule

Bonjour à tous Je fais appel a vous afin de savoir si il est possible et si oui comment, d'arrondir le chiffre d'une cellule et que la différence soit inscrite automatiquement dans une autre case. Je ne sais pas si je suis très clair ^^. Exemple : Dans la case B2 est noté 45,18 je souhaiterais...

www.excel-downloads.com

Oui et sans macro
à l'aide du format de cellule sans décimale.
!!!! mais seulement si l'arrondi se fait à l'unité la plus proche
la colonne A ne sert qu'a montrer la valeur saisie

 

[Jimbob]

Avec un seul tableau de résultats ce n'est pas possible, avec 2 tableaux c'est possible.

Pas grave s'était pour le coté esthétique.

Et dernière question, j'essaie de bricoler ta formule matricielle mais je n'y arrive pas :


=SOMME.SI.ENS(D521;E5:E21;"x";SI(ESTNUM(TROUVE("*";$D5:$D21));--STXT($D5:$D21;TROUVE("*";$D5:$D21)+1;99)))-SOMME.SI.ENS(D2428;E24:E28;"x")

 

[Jimbob]

Bonjour,

désolé je sais que j'en demande beaucoup mais je ne trouve pas
qu'elle est le code pour cette fois ci faire l'arrondi inférieur ( 12,67 * 12) et de meme faire la sommes des arrondis
j'ai tenté des choses mais je ne trouve pas la solution

Merci par avance

 

[job75]

Bonjour Jimbob,

C'est pourtant assez évident :

For Each Target In Target 'si entrées/effacements multiples
    If IsNumeric(CStr(Target)) Then Target = Target & " * " & Int(Target) Else Target = ""
Next

A+

 

[job75]

Kektudi ????

 

[Jimbob]

Je n'arrive pas à appliquer ces deux commandes sur la même feuille
de B2:B20 plafond et de E2:E20 plancher

quand je rentre tout, cela fonctionne mais dès que je selectionne la case la valeur inscrite dedans disparait.

 

[job75]

Nouveau fichier avec :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False 'désactive les évènements
Set r = Intersect(Target, [B2:B20]) 'plage à adapter
If Not r Is Nothing Then
    For Each r In r 'si entrées/effacements multiples
        If IsNumeric(CStr(r)) Then r = r & " * " & Application.Ceiling(r, 1) Else r = ""
    Next
End If
Set r = Intersect(Target, [E2:E20]) 'plage à adapter
If Not r Is Nothing Then
    For Each r In r 'si entrées/effacements multiples
        If IsNumeric(CStr(r)) Then r = r & " * " & Int(r) Else r = ""
    Next
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

 

[Jimbob]

Bonjour,

Désolé de ma réponse tardive mais je tenais a vous remercier pour votre aide.