Multiplier un nombre + arrondir

[vipi61]

Bonjour,

J'ai Excel 2007,

Je souhaite multiplier par une Macro le nombre d'une cellule par 1.25 et arrondir au 5 éme supérieur (0.5, 1 , 1.5 , 2 Ext...)

=> 10 = 10*1.25 = 12.5 donc 13
=> 11 = 11*1.25 = 13.75 donc 14
=> 9 = 9*1.25 = 11.25 donc 11.5

Merci

 

[Tibo]

Re : Multiplier un nombre + arrondir

Bonjour,

Une piste avec :

=PLAFOND(A1*1.25+0.001;0.5)

Essaye et dis nous

@+

 

[ROGER2327]

Re : Multiplier un nombre + arrondir

Bonjour à tous

En VBA, une fonction personnalisée :

[COLOR=DarkSlateGray][B]Function ArrondiPerso(r, k)
    ArrondiPerso = Int(2 * k * r + 1) / 2
End Function[/B][/COLOR]

=ArrondiPerso(10;1,25) renvoie 13.
​

ROGER2327
#4550

Dimanche 15 As 138 (Navigation du Dr Faustroll, SPs)
27 Brumaire An CCXIX
2010-W46-3T12:03:10Z

 

[vipi61]

Re : Multiplier un nombre + arrondir

Bonjour à tous

En VBA, une fonction personnalisée :

[COLOR=DarkSlateGray][B]Function ArrondiPerso(r, k)
    ArrondiPerso = Int(2 * k * r + 1) / 2
End Function[/B][/COLOR]

=ArrondiPerso(10;1,25) renvoie 13.
​

ROGER2327
#4550

Dimanche 15 As 138 (Navigation du Dr Faustroll, SPs)
27 Brumaire An CCXIX
2010-W46-3T12:03:10Z

Bonjour,

Merci d'avoir répondu

Par contre j'ai copié la formule dans le développeur VBA mais je ne sais pas ou l'activer?

Peut on me dire la procédure

Merci

 

[ROGER2327]

Re : Multiplier un nombre + arrondir

Re...

La fonction doit être placée dans un module standard du classeur. Voyez le classeur joint.
​

ROGER2327
#4571

Samedi 21 As 138 (Saint Possible, schizophrène, SQ)
3 Frimaire An CCXIX
2010-W47-2T13:07:10Z

 

[vipi61]

Re : Multiplier un nombre + arrondir

Re...

La fonction doit être placée dans un module standard du classeur. Voyez le classeur joint.
​

ROGER2327
#4571

Samedi 21 As 138 (Saint Possible, schizophrène, SQ)
3 Frimaire An CCXIX
2010-W47-2T13:07:10Z

Ok,

Merci de votre réponse

 

[vipi61]

Re : Multiplier un nombre + arrondir

=PLAFOND(A1*1.25+0.001;0.5)


Bonjour ça marche
Merci de votre réponse