Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format heure

Format heure

4 réponses
Avatar
Jacky
Bonjour à tous

J'ai comme un trou de mémoire...

j'ai en Décimale : 11,5
Comment le transformer en VBA en heure =11:30

Merci
JJ
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Jacky,

Sub Macro1()
ActiveCell.NumberFormat = "[h]:mm"
ActiveCell = [a1] / 24
End Sub

isabelle


Bonjour à tous

J'ai comme un trou de mémoire...

j'ai en Décimale : 11,5
Comment le transformer en VBA en heure :30

Merci
JJ


Avatar
Jacky
Bonjour Isabelle

Je me suis planté....excuse
Il faut lire:
J'ai 11,5 jours==> variable Jd,5
Chaque jour vaut 7,8 heures
Jd=Jd*7,8
Jd‰,7 heures en décimale
Dans une cellule, je fais Jd*7,8/24 format [h]:mm soit 89:42
Mais, le résultat dans un msgbox au format heures???
MsgBox "Heures déduites: " & jd
Avec comme résultat:
Heures déduites: 89:42

JJ

"isabelle" a écrit dans le message de
news:
bonjour Jacky,

Sub Macro1()
ActiveCell.NumberFormat = "[h]:mm"
ActiveCell = [a1] / 24
End Sub

isabelle


Bonjour à tous

J'ai comme un trou de mémoire...

j'ai en Décimale : 11,5
Comment le transformer en VBA en heure :30

Merci
JJ




Avatar
isabelle
re bonjour Jacky,

Sub Macro1()
JD = 11.5
x = CDbl((JD * 7.8))
Y = Right(Format(((Int(x) - x) / 24), "hh:mm"), 2)
MsgBox Int(x) & ":" & Y
End Sub

isabelle


Bonjour Isabelle

Je me suis planté....excuse
Il faut lire:
J'ai 11,5 jours==> variable Jd,5
Chaque jour vaut 7,8 heures
Jd=Jd*7,8
Jd‰,7 heures en décimale
Dans une cellule, je fais Jd*7,8/24 format [h]:mm soit 89:42
Mais, le résultat dans un msgbox au format heures???
MsgBox "Heures déduites: " & jd
Avec comme résultat:
Heures déduites: 89:42

JJ

"isabelle" a écrit dans le message de
news:
bonjour Jacky,

Sub Macro1()
ActiveCell.NumberFormat = "[h]:mm"
ActiveCell = [a1] / 24
End Sub

isabelle


Bonjour à tous

J'ai comme un trou de mémoire...

j'ai en Décimale : 11,5
Comment le transformer en VBA en heure :30

Merci
JJ






Avatar
Jacky
Parfait !
C'est le manque de CDbl qui me mettait la pagaille et des erreurs de calcul.
Cela m'apprendra à déclarer les variables :-(

Merci Beaucoup
JJ

"isabelle" a écrit dans le message de
news:
re bonjour Jacky,

Sub Macro1()
JD = 11.5
x = CDbl((JD * 7.8))
Y = Right(Format(((Int(x) - x) / 24), "hh:mm"), 2)
MsgBox Int(x) & ":" & Y
End Sub

isabelle


Bonjour Isabelle

Je me suis planté....excuse
Il faut lire:
J'ai 11,5 jours==> variable Jd,5
Chaque jour vaut 7,8 heures
Jd=Jd*7,8
Jd‰,7 heures en décimale
Dans une cellule, je fais Jd*7,8/24 format [h]:mm soit 89:42
Mais, le résultat dans un msgbox au format heures???
MsgBox "Heures déduites: " & jd
Avec comme résultat:
Heures déduites: 89:42

JJ

"isabelle" a écrit dans le message de
news:
bonjour Jacky,

Sub Macro1()
ActiveCell.NumberFormat = "[h]:mm"
ActiveCell = [a1] / 24
End Sub

isabelle


Bonjour à tous

J'ai comme un trou de mémoire...

j'ai en Décimale : 11,5
Comment le transformer en VBA en heure :30

Merci
JJ