XL 2010 Conversion temps décimal vers [Heure] minute par vba

vgendron · 17 Juin 2022

Bonjour à toutes et tous

Je viens vous soumettre un problème qui m'interpelle.. je dois être fatigué, car il y a une subtilité que je ne vois pas.

dans le fichier ci joint
j'ai des durées décimales en colonne B que je souhaite convertir en temps ([hh]:mm)

si j'utilise les formules colonnes C et D, j'obtiens bien le meme résultat, mais il s'agit de l'heure "modulo" 24
par macro, j'obtiens la meme chose en colonne H

Mais je souhaite avoir le résultat de la colonne E==> Sans ce modulo 24
lorsque j'essaie d'utiliser le format [hh]:mm par macro.. j'obtiens la colonne I
VBA n'aime pas les crochets??

VB:

Sub testtemps()
For i = 2 To 6
    Range("H" & i) = Format(Range("B" & i) / 24, "hh:mm") 'identique à la colonne C: heure "modulo 24"
    Range("I" & i) = Format(Range("B" & i) / 24, "[hh]:mm") 'Devrait etre identique à la colonne E ???
Next i
End Sub

merci

job75 · 17 Juin 2022

Bonjour vgendron,

Oui le format [hh]:mm n'est pas reconnu en VBA donc utilise :

VB:

Sub testtemps()
Columns("H").NumberFormat = "hh:mm"
Columns("I").NumberFormat = "[hh]:mm"
For i = 2 To 6
    Range("H" & i) = Round(60 * Range("B" & i)) / 1440 'identique à la colonne C
    Range("I" & i) = Round(60 * Range("B" & i)) / 1440 'identique à la colonne E
Next i
End Sub

A+

vgendron · 17 Juin 2022

Salut @job75
merci
quand meme incroyable que ce format proposé par Excel ne soit pas géré par VBA

patricktoulon · 17 Juin 2022

bonjour
juste en passant
par vba

VB:

Sub test()
Debug.Print TimeValue(CDate(CDbl([b2].Value) / 24))
End Sub

job75 · 17 Juin 2022

Salut patricktoulon,

Le code du post #1 impose qu'on arrondisse à la minute.

Bonne nuit.

patricktoulon · 17 Juin 2022

RE
Bonsoir job75
superieur?
inferieur?
ou auto?

job75 · 17 Juin 2022

Round => la minute la + proche.

soan · 18 Juin 2022

Bonsoir patrick, job75, vgendron,

job75 à dit:
Le code du post #1 impose qu'on arrondisse à la minute.

patricktoulon à dit:
superieur?
inferieur?
ou auto?

job75 à dit:
Round => la minute la + proche.

je vois que patrick a du mal ; alors je vais essayer de l'aider
comme je peux, avec mes maigres compétences :

ici l'horloge parlante ; au 4ème bip, il sera exactement 0 heure 26 minutes 54 secondes.

job75 : « à la minute la plus proche, j'ai dit ! » ; moi : « ah, oui, c'est juste ! alors : » ;

ici l'horloge parlante ; au 4ème bip, il sera exactement 0 heure 27 minutes.

soan

TooFatBoy · 18 Juin 2022

Bonjour,

"Zéro heures", avec "heure" au pluriel ! Je trouve ça pour le moins singulier !

soan · 18 Juin 2022

@Marcel32

oooooopppppsssss ! merci pour ton info !

j'viens d'corriger à l'instant mon post #8 !

j'ai une excuse : j'ai eu une dure journée !

soan

patricktoulon · 18 Juin 2022

re
Bonjour a tous
je n'ai pas de mal avec ça
ma question était plus que légitime je pense
en rentrant ce soir je regarderais si je peux faire ça simplement avec les fonctions date et time de vb

pour moi alors ce serait
en auto
00:15:31 = 00:16(31 secondes ou plus)
00:15:21 = 00:15:00
en supérieur
00:15:21 = 00:16:00

en inférieur
00:15:21 = 00:15:00

en attendant en auto

VB:

Sub test()
    Dim t As Date
    t = TimeValue(CDate(CDbl([b2].Value) / 24))
    Debug.Print t
    Debug.Print Format(t + IIf(Second(t) >= 31, 0.0007, 0), "hh:mm")
End Sub

XL 2010 Conversion temps décimal vers [Heure] minute par vba

vgendron

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires