Discussion :

[gigalia]

Bonjour,

Je souhaite avoir l'heure du système arrondi au quart d'heure supérieur. Ex 10h10 devient 10h15

Cordialement!

[pgz]

Bonjour.

Une fonction?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function fQuartDHeure(ByVal dte As Date) As Date
Dim iHeure As Integer
Dim iMinute As Integer
 
iHeure = Format(dte, "hh")
iMinute = Format(dte, "nn")
 
If iMinute Mod 15 > 7 Then iMinute = ((iMinute \ 15) + 1) * 15
 
fQuartDHeure = TimeValue(iHeure & ":" & iMinute)
 
End Function

Cordialement,

PGZ

[gigalia]

Bonjour,

il me faudrait une sub plutot qu'une fonction.

Cordialement.

[pgz]

Hello

Bonjour,

il me faudrait une sub plutot qu'une fonction.

Cordialement.

Sympa, ta réponse.

Je passe la main car malheureusement je ne sais faire que des fonctions.
Les sub ça a l'air vachement dur. Mieux, mais plus dur!

Bonne chance pour la suite!

PGZ

[gigalia]

Bonjour,

en utilisant la fonction ci-dessous j'obtient un nombre de 4 caractères. Il faudrait que ce nombre se termine par 00, 15, 30, 45 en fonction de la tranche dans laquel il se trouve pour arrivée au quart d'heure supérieur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub heure()
 
Range("A1") = Format(Now, "hhnn")
 
End Sub

Quelqu'un a une idée de comment faire?

[pgz]

Re,

Tu peux toujours essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub heure()
 
ThisWorkbook.Worksheets("NomFeuille").Range("A1") = fQuartDHeure(Now)
 
End Sub

Si tu vois ce qu'est la fonction "fQuartDHeure".

Cordialement,

PGZ

[gigalia]

bonjour,

merci la sa me plait ^^

cordialement.

[gigalia]

rectification : ta function ne marche pas toujours ......

exemple 17h49 reste 17h49.

Il va falloir continuer à chercher.

bon week à lundi ^^lol

[pgz]

Et comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function fQuartDHeure(ByVal dte As Date) As Date
Dim iHeure As Integer
Dim iMinute As Integer
 
iHeure = Format(dte, "hh")
iMinute = Format(dte, "nn")
 
If iMinute Mod 15 > 7 Then iMinute = ((iMinute \ 15) + 1) * 15
If iMinute = 60 Then
    iMinute = 0
    iHeure = iHeure + 1
    If iHeure = 24 Then iHeure = 0
End If
 
fQuartDHeure = TimeValue(iHeure & ":" & iMinute)
 
End Function

?

PGZ

[patricktoulon]

bonjour


et si il est 11heure 5 minute sa doit marquer quoi?

ca veut dire que tu veux afficher l'heure exacte 0.00000000001mmmmmmsecondes tout les quart d'heure soit 5 fois par heure



pgz vraiment trop dure les subs


bon courage

au plaisir

[pgz]

Salut Patrick.

C'est qu'il n'est pas facile, le client! Et le client est

Un de ces jours (c'est promis!) j'essaie les procédures sub.

Bonjour chez toi.

PGZ

[patricktoulon]

re

ok pgz dès que tu commence tu m'appelle j'aimerais m'y mettre moi aussi aux subs

au plaisir

[mercatog]

Une autre proposition générique

La fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function f(ByVal Dte As Date, ByVal q As Byte) As Double 'q le nombre de minute à arrondir
Dim h As Double, s As Double
 
s = q / (24 * 60)
h = Dte - Int(Dte) + s
h = s * Int(h / s)
f = Int(Dte) + h
End Function

La fonction peut être condensée comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function f(ByVal Dte As Date, ByVal q As Byte) As Double
Dim s As Double
 
s = q / (24 * 60)
f = s * Int(1 + (Dte - Int(Dte)) / s) + Int(Dte) 'Tu enlève +Int(Dte) si tu veux récupérer l'heure sans la date
End Function

Pour ne pas recevoir la même remarque, ci-joint la procédure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub LHeure()
 
With Worksheets("Feuil2").Range("A1")
    .NumberFormat = "h:mm:ss"
    .Value = f(Now, 15)
End With
End Sub

[gigalia]

trop fort ce mercatog ....

[gigalia]

je me suis servi de la macro de mercatog avec un format "hhmm". excel m'affiche donc une valeur comme "1530" dans la cellule.

mais lorsque je copie cette valeur elle passe en format numérique et devient "0,1688888".

Comment copie le format "hhmm" en format numérique en gardant la valeur initial (dans l'exemple 1530)?

[mercatog]

Change le format de la cellule de destination en "hhmm".

[gigalia]

le problème est que je ne colle pas vers une cellule mais vers un programme (attachmate myextra). donc le format du programme est numérique.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function f(ByVal Dte As Date, ByVal q As Byte) As Integer
Dim s As Double
 
s = q / (24 * 60)
f = Format(s * Int(1 + (Dte - Int(Dte)) / s), "hhmm")
End Function

[gigalia]

Mais qu'il est formidable si tu t'ennuie j'ai encore en tas de soucis pour ma macro.

[mercatog]

Il y a encore suffisamment de place sur ce forum.