arrondi de minutes

[StekFrit]

Bonsoir,

Je cherche en vain une manière d'arrondir des minutes au 1/4 d'heure supérieur Ex: 2h17 ==> 2h30.

Merci, (je sais, je ne suis pas très doué!!!)

 

[galopin01]

Bonjour,
Une petite fonction personnalisée qui te fait cela :

Function QPM(HM As Date)
Dim i%, j%, k%
i = Minute(HM)
j = Hour(HM)
Select Case i
Case i = 1 To 15: k = 15 - i
Case i = 16 To 30: k = 30 - i
Case i = 31 To 45: k = 45 - i
Case i = 46 To 60: j = j + 1: i = 0
End Select
QPM = CDate(j & ':' & i + k)
End Function

Il faut coller cette macro dans un 'nouveau' module : Module1, Module2... ensuite tu utilises cette fonction comme une fonction Excel
Si A1 = 1h48 dans une autre cellule (au format hh:mm) mettre
=QPM(A1)
et c'est tout !

Nota : ne fonctionne que pour les heures en dessous de 24...
A+

 

[Gérard DEZAMIS]

Bonjour StekFrit

Une formule un peu tirée par les cheveux mais en attendant mieux...

@+ GD [file name=ArrondiQuartHeureSup.zip size=4557]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ArrondiQuartHeureSup.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Galopin 01

Nous avons évité le crash
En plus ma formule est fausse !

Remplacer par

=ARRONDI.AU.MULTIPLE(B3;1/96)
cela ira mieux
Possible de plus de 24 heures si format personnalisé

[h]' h 'mm' min'

@+ GD

 

[PhiBou]

Bonjour StekFrit, Galopin01, Gérard, le Forum

Gérard, ta formule arrondie au 1/4 h. le plus proche alors que StekFrit désire arrondir au 1/4 h. supérieur. Cette formule devrait convenir : ENT(B3*96+1)/96 (même format personnalisé)

Bonne journée

PhiBou

 

[JeanMarie]

Bonjour

Autre solution, sans recours au macro complémentaire.
=PLAFOND(A1;'0:15')

@+Jean-Marie

 

[Monique]

Bonjour,

Il y a aussi Arrondi.Sup()
=ARRONDI.SUP($B3*96😉/96

Rien ou bien 0 à la place du smiley :
=ARRONDI.SUP($B3*96;0)/96

Message édité par: Monique, à: 10/04/2005 13:15

 

[StekFrit]

Alors là...bravo! et merci encore pour toutes ces réponses qui correspondent à ce que je cherchais depuis un certain temps !! Par contre, Gérard ta formule: =ARRONDI.AU.MULTIPLE(B3;1/96) ne fonctionne pas et me retourne #NOM?. Par contre dans le même registre (c'est la dernière fois promis)avec les heures et les minutes, je souhaiterai dans certaines conditions afficher l'arrondi inférieur ou supérieur à 5 minutes.

Ex: 2h37 ==> 2h35
2h38 ==> 2h40

Merci encore à vous tous, Galopin01,Gérard, PhiBou, JeanMarie et Monique...

 

[Monique]

Re,

Arrondi aux 5 minutes les + proches :
=ARRONDI($B3*288;0)/288
(288 = 1440 / 5)

 

[JeanMarie]

Re...

Concernant à l'affichage de l'erreur #NOM?, il faut que tu coches Utilitaire d'analyse dans la boîte de dialogue du menu Outils/macro complémentaires...

@+Jean-Marie

 

[StekFrit]

Trop fort..........

Merci Monique

 

[StekFrit]

Ok Jean Marie 😉