arrondi de minutes
- Initiateur de la discussion StekFrit
- Date de début
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+
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
XLDnaute Accro
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]
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
XLDnaute Accro
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
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
P
PhiBou
Guest
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
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
XLDnaute Barbatruc
Bonjour
Autre solution, sans recours au macro complémentaire.
=PLAFOND(A1;'0:15')
@+Jean-Marie
Autre solution, sans recours au macro complémentaire.
=PLAFOND(A1;'0:15')
@+Jean-Marie
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
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
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...
Ex: 2h37 ==> 2h35
2h38 ==> 2h40
Merci encore à vous tous, Galopin01,Gérard, PhiBou, JeanMarie et Monique...
Re,
Arrondi aux 5 minutes les + proches :
=ARRONDI($B3*288;0)/288
(288 = 1440 / 5)
Arrondi aux 5 minutes les + proches :
=ARRONDI($B3*288;0)/288
(288 = 1440 / 5)
JeanMarie
XLDnaute Barbatruc
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
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
