Format cellule

JYLL

Nous a quitté

Repose en paix

• 8 Décembre 2005

• #2

Bonsoir,


Pour la deuxième question, voici la formule.

=MRound(A1+4;10)

Il faut ajouté 4 pour avoir l'arrondi par excès

ex =Mround(1541+4;10) donne 1550

sans le +4 donne 1540


Bon test.
Amicalement.

JYLL

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 9 Décembre 2005

• #3

Salut k@rl et JYLL,

Je réponds aux deux questions : il n'est pas possible, à ma connaissance, de réaliser ce qui est demandé par un 'format', bien par formule.

Pour la mois précédent : =MOIS.DECALER(date;-1)
'date' est une référence à une cellule contenant une date ou une date placée entre '' ou la fonction AUJOURDHUI()
Il y a lieu d'activer l'Utilitaire d'Aanalyse sous les macros complémentaires du menu Outils.

Pour l'arrondi il y a aussi : =ARRONDI.SUP(A1/10;0)*10
ou bien pour faire compliqué mais plus court : =(ENT(A1/10)+1)*10

Â+

 

Vote positif 0 Vote négatif

K

k@rl

XLDnaute Nouveau

• 9 Décembre 2005

• #4

Bonjour le Forum, JYLL, André,

Merci de vous êtres penchés sur mon problème.
Vos réponses l'ont très bien résolu.

A bientôt,

 

Vote positif 0 Vote négatif

K

k@rl

XLDnaute Nouveau

• 9 Décembre 2005

• #5

Re Bonjour à tous,

La solution que vous m'avez soumis fonctionne très bien dans une cellule vide. (ARROND.SUP)
Par contre dans mon apllication la cellule est alimentée par une macro, donc je suppose qu'il faut aller titiller VBA pour pouvoir remédier au problème.

Voici le bout de code

Sheets('Consommation totale usine').Activate
Range('K65536').End(xlUp).Select
Somme = Selection.Value
Sheets('Répartitions du mois').Select
Range('C8').Value = Somme

C'est le cellule C8 que je voudrais arrondir à la dizaine supérieure.

Merci pour vos conseils
@+

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 10 Décembre 2005

• #6

bonjour K@rl , Jyll et André

tu peux tester une macro de ce type

MsgBox Application.WorksheetFunction.RoundUp(14.456 / 10, 0) * 10


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

K

k@rl

XLDnaute Nouveau

• 10 Décembre 2005

• #7

Bonsoir MichelXld, et le forum,

Je viens d'essayer ta solution à mon petit problème, j'ai recopié ta ligne de code à la suite de celle que j'avais proposé.
Seulement le résultat obtenu n'est pas celui que je souhatais,
(arrondir le cellule C8 à la dizaine supérieure).
Mon niveau VBA est semblable à la poule qui à rencontré une paire de ciseaux !!!!
Une ligne de code qui s'intégrerait au mien serait magnifique.

Encore merci

@+

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 11 Décembre 2005

• #8

bonjour K@rl

le but du forum est de proposer des solutions et pas de faire le travail à ta place


Range(C8') = Application.WorksheetFunction.RoundUp(Somme / 10, 0) * 10



bonne journée
MichelXld

 

Vote positif 0 Vote négatif

K

k@rl

XLDnaute Nouveau

• 11 Décembre 2005

• #9

Bonjour MichelXld,

Ta solution fonctionne,
La précédante que tu m'avais proposé, je l'ai tournée dans tous les sens sans résultat.
Je suis pas très bon en VBA

Encore merci
A+

 

Vote positif 0 Vote négatif