Format heure

[MJ13]

Bonjour à tous

J'ai ce code pour avoir l'heure au format hh:mm

Mais je n'arrive pas pour avoir l'heure au format hhHmm

Sub heure()
Dim MyTime
MyTime = Time
MsgBox Format(MyTime, "hh:mm")
MsgBox Format(MyTime, "hh") & "H" & Format(MyTime, "mm")
End Sub

Merci d'avance pour vos lumières.

 

[Pierrot93]

Re : Format heure

Bonjour Michel🙂

comme ceci peut être...

Option Explicit
Sub heure()
Dim MyTime
MyTime = Time
MsgBox Format(MyTime, "hh:mm")
MsgBox Format(MyTime, "hh" & """H""" & "mm")
End Sub

bon après midi
@+

 

[MJ13]

Re : Format heure

Bonjour Pierrot

Ouah Pierrot😱, tu es un magicien. J'ai pas tout compris mais je vois le genre. En fait c'est pour nommer mes onglets avec l'heure en cours (car je ne peux pas metttre de ":")

Merci beaucoup.

Bonne Journée 🙂.

 

[degap05]

Re : Format heure

Bonjour à tous

J'ai ce code pour avoir l'heure au format hh:mm

Mais je n'arrive pas pour avoir l'heure au format hhHmm

Sub heure()
Dim MyTime
MyTime = Time
MsgBox Format(MyTime, "hh:mm")
MsgBox Format(MyTime, "hh") & "H" & Format(MyTime, "mm")
End Sub

Merci d'avance pour vos lumières.

Bonjour,

Sub heure1()
Dim MyTime
MyTime = Time
MsgBox Format(MyTime, "hh") & "H" & Format(MyTime, "mm")
End Sub


???
A+

 

[MJ13]

Re : Format heure

Bonjour Degap

Bonjour,

Sub heure1()
Dim MyTime
MyTime = Time
MsgBox Format(MyTime, "hh") & "H" & Format(MyTime, "mm")
End Sub


???
A+

Je n'ai pas compris la réponse 😕.

 

[degap05]

Re : Format heure

Bonjour MJ13,

Je me suis trompé!

Ta première proposition:

Sub heure()
Dim MyTime
MyTime = Time
'MsgBox Format(MyTime, "hh:mm")
MsgBox Format(MyTime, "hh" & """H""" & "mm")
End Sub

En enlevant la ligne 4, donne bien 16H20. Je me trompe ?

A+

 

[MJ13]

Re : Format heure

Re Degap

Sub heure()
Dim MyTime
MyTime = Time
'MsgBox Format(MyTime, "hh:mm")
MsgBox Format(MyTime, "hh" & """H""" & "mm")
End Sub

Merci pour ta proposition qui rejoint celle de Pierrot. Cela fait 2 magiciens😛.

par contre cela ne me donne par 16H20 mais 16H33 (comme le temps passe vite) 😛.

Bonne fin de journée🙂.

 

[degap05]

Re : Format heure

Ou alors celle-là:

Sub time()
MsgBox Format(Now, " hh"" H ""mm")
End Sub

En ajoutant des espaces avant hh, on peut centrer le message.

Non 16 H 36

A+

 

[MJ13]

Re : Format heure

Re

Sub time()
MsgBox Format(Now, " hh"" H ""mm")
End Sub

Ah merci, c'est bien aussi 🙄.