arrondi de minutes

G

galopin01

XLDnaute Occasionnel

• 10 Avril 2005

• #2

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+

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 10 Avril 2005

• #3

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]

 

Pièces jointes

• ArrondiQuartHeureSup.zip

  4.5 KB · Affichages: 65

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 10 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 10 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 10 Avril 2005

• #6

Bonjour

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 10 Avril 2005

• #7

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

 

Vote positif 0 Vote négatif

S

StekFrit

XLDnaute Nouveau

• 10 Avril 2005

• #8

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...

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 10 Avril 2005

• #9

Re,

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 10 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif

S

StekFrit

XLDnaute Nouveau

• 10 Avril 2005

• #11

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

Merci Monique

 

Vote positif 0 Vote négatif

S

StekFrit

XLDnaute Nouveau

• 10 Avril 2005

• #12

Ok Jean Marie

 

Vote positif 0 Vote négatif