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