Microsoft 365 Insérer ARRONDI.SUP à une cellule déjà existante

[Alexandre_1]

Bonjour,

Tout d'abord merci pour votre forum qui regorge d'information. C'est une mine! J'ai lu quelques posts qui suggèrent d'enregistrer une macro via le menu Outil/macro mais ça ne fonctionne pas car la macro démarre sur la cellule où je l'ai enregistrée et puis ça ne fait pas mon job attendu...!

Je manipule des cellules qui ne sont jamais au même endroit. En fonction de mes besoins, il me faut insérer la formule de l'arrondi supérieur en tapant: "ARRONDI.SUP(bla, bla...xxx...);0)
C'est très fastidieux de devoir à chaque fois:
- rentrer dans la cellule,
- pointer la souris juste après le "=" qui est déjà dans la cellule
- ajouter le début de la formule
- me déplacer à la fin de la formule pour terminer avec ";0)"

Vous me voyez venir... Je souhaiterai associer un raccourci ou un bouton pour que lorsque je selectionne une cellule, j'apppuie sur le fameux bouton et ça insère automatiquement la formule au contenu déjà existant!
Qu'en pensez-vous..!!??

Merci pour le coup de main!
Alexandre.

 

[D.D.]

Bonjour,

Voici le code:

Sub Arrondi_Sup()
    Selection.Formula = "=roundup(" & Right(Selection.Formula, Len(Selection.Formula) - 1) & ",0)"
End Sub

 

[Alexandre_1]

Top-top top!!!
Merci beaucoup D.D.
Si je veux appliquer la même chose pour ARRONDI.INF, ce sera:

Sub Arrondi_Inf()
Selection.Formula = "=roundinf(" & Right(Selection.Formula, Len(Selection.Formula) - 1) & ",0)"

??
Alexandre.

 

[D.D.]

Top-top top!!!
Merci beaucoup D.D.
Si je veux appliquer la même chose pour ARRONDI.INF, ce sera:

Sub Arrondi_Inf()
Selection.Formula = "=roundinf(" & Right(Selection.Formula, Len(Selection.Formula) - 1) & ",0)"

??
Alexandre.

Nan
C'est
ROUNDDOWN

 

[Alexandre_1]

Hi, Hi!
Top merci beaucoup pour votre réactivité!

Alexandre.