Format cellule

[k@rl]

Bonsoir le forum

Quel format, ou quelle formule faut-il donner à une cellule pour qu'elle affiche le mois précédant au mois actuel.
Dans le même style, quel format faut-il donner à une cellule pour qu'elle affiche un nombre à la dizaine supérieure ==> 1452 ==> 1460

Merci à tous pour vos précieux conseils.

A bientôt.

 

[JYLL]

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

 

[andré]

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

Â+

 

[k@rl]

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,

 

[k@rl]

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

 

[MichelXld]

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

 

[k@rl]

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

@+

 

[MichelXld]

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

 

[k@rl]

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+