XL pour MAC Arrondir automatiquement le chiffre d'une cellule

Jimbob · 7 Janvier 2021

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 · 25 Janvier 2021

job75 à dit:
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 :

VB:

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 :

Code:

=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 · 25 Janvier 2021

Bonjour Jimbob,

Fichier (2) avec la formule matricielle en G4 :

Code:

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

A+

Jimbob · 25 Janvier 2021

job75 à dit:
Bonjour Jimbob,

Fichier (2) avec la formule matricielle en G4 :

Code:

=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 · 25 Janvier 2021

Jimbob à dit:
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 · 25 Janvier 2021

Bonsour®

Jimbob à dit:
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 ...

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 · 25 Janvier 2021

job75 à dit:
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 · 26 Janvier 2021

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 · 26 Janvier 2021

Bonjour Jimbob,

C'est pourtant assez évident :

VB:

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

A+

job75 · 26 Janvier 2021

Kektudi ????

Jimbob · 26 Janvier 2021

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 · 26 Janvier 2021

Nouveau fichier avec :

VB:

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 · 24 Février 2021

Bonjour,

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

XL pour MAC Arrondir automatiquement le chiffre d'une cellule

Jimbob

XLDnaute Nouveau

Jimbob

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Jimbob

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

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

Jimbob

XLDnaute Nouveau

Jimbob

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Jimbob

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Jimbob

XLDnaute Nouveau

Discussions similaires