format d'heures

Le
andre
Bonsoir,
j'ai une macro pour un pied de page qui me calcule :
-nbr de jours (2 fois)
- nbr de km
- nbr d'heures
si je mets pour le nombre d'heures : (voila une partie de la macro)
For x = 3 To 26 Step 2
totalk = totalk + Cells(33, x) 'pour les kilometres
For z = 3 To 26 Step 2
totalh = totalh + Cells(35, z) 'pour les heures
Next
Next
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km" & Chr(10) & _
"nombre d'heures en " & [A1] & " : " & totalh & " h"
le total nbr d'heures est egal à 47h15 il me mets 23,625
si je change "totalh" par le resultat que j'ai mis dans une cellule (47h15)
il me mets 1,96875 47h15 est presque egal a 2 jours
1,96 est presque egal a 2 (jours)
je ne trouve pas la solution
merci de votre coup de main
si vous voulez je vous donne le code complet

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #5376541
Bonjour Andre,

(non testé)

.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km"
& Chr(10) & _
"nombre d'heures en " & [A1] & " : " &
Application.Text(totalh, "[h]:mm:ss")


ChrisV


"andre"
Bonsoir,
j'ai une macro pour un pied de page qui me calcule :
-nbr de jours (2 fois)
- nbr de km
- nbr d'heures
si je mets pour le nombre d'heures : (voila une partie de la macro)
For x = 3 To 26 Step 2
totalk = totalk + Cells(33, x) 'pour les kilometres
For z = 3 To 26 Step 2
totalh = totalh + Cells(35, z) 'pour les heures
Next
Next
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " &
totalk & " Km" & Chr(10) & _
"nombre d'heures en " & [A1] & " : " & totalh &
" h"
le total nbr d'heures est egal à 47h15 il me mets 23,625
si je change "totalh" par le resultat que j'ai mis dans une cellule
(47h15)
il me mets 1,96875 47h15 est presque egal a 2 jours
1,96 est presque egal a 2 (jours)
je ne trouve pas la solution
merci de votre coup de main
si vous voulez je vous donne le code complet

--
andre




isabelle
Le #5376511
bonjour André,

remplace
totalh = totalh + Cells(35, z) 'pour les heures
par,
totalh = Format(totalh + Cells(35, z), "[hh]:mm") 'pour les heures

isabelle

Bonsoir,
j'ai une macro pour un pied de page qui me calcule :
-nbr de jours (2 fois)
- nbr de km
- nbr d'heures
si je mets pour le nombre d'heures : (voila une partie de la macro)
For x = 3 To 26 Step 2
totalk = totalk + Cells(33, x) 'pour les kilometres
For z = 3 To 26 Step 2
totalh = totalh + Cells(35, z) 'pour les heures
Next
Next
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km" & Chr(10) & _
"nombre d'heures en " & [A1] & " : " & totalh & " h"
le total nbr d'heures est egal à 47h15 il me mets 23,625
si je change "totalh" par le resultat que j'ai mis dans une cellule (47h15)
il me mets 1,96875 47h15 est presque egal a 2 jours
1,96 est presque egal a 2 (jours)
je ne trouve pas la solution
merci de votre coup de main
si vous voulez je vous donne le code complet



andre
Le #5376391
andre à dit
bonjour André,

remplace
totalh = totalh + Cells(35, z) 'pour les heures
par,
totalh = Format(totalh + Cells(35, z), "[hh]:mm") 'pour les heures

isabelle

merci à ChrisV et à isabelle

je vais tester des que je rentre
bonne journée

--
andre

andre
Le #5376361
bonjour André,

remplace
totalh = totalh + Cells(35, z) 'pour les heures
par,
totalh = Format(totalh + Cells(35, z), "[hh]:mm") 'pour les heures

isabelle

merci ca marche votre rectif


--
andre

isabelle
Le #5109321
Dakota toked ya un he?

isabelle

Bonjour Andre,

(non testé)

.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km"
& Chr(10) & _
"nombre d'heures en " & [A1] & " : " &
Application.Text(totalh, "[h]:mm:ss")


ChrisV


"andre"
Bonsoir,
j'ai une macro pour un pied de page qui me calcule :
-nbr de jours (2 fois)
- nbr de km
- nbr d'heures
si je mets pour le nombre d'heures : (voila une partie de la macro)
For x = 3 To 26 Step 2
totalk = totalk + Cells(33, x) 'pour les kilometres
For z = 3 To 26 Step 2
totalh = totalh + Cells(35, z) 'pour les heures
Next
Next
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " &
totalk & " Km" & Chr(10) & _
"nombre d'heures en " & [A1] & " : " & totalh &
" h"
le total nbr d'heures est egal à 47h15 il me mets 23,625
si je change "totalh" par le resultat que j'ai mis dans une cellule
(47h15)
il me mets 1,96875 47h15 est presque egal a 2 jours
1,96 est presque egal a 2 (jours)
je ne trouve pas la solution
merci de votre coup de main
si vous voulez je vous donne le code complet

--
andre








ChrisV
Le #5337711
Hau Isa,

Matanyan yelo pilamayaye, he lila piwakila kte. Nis ?
Ake wanciyankin ktelo. >:-)


ChrisV




"isabelle" a écrit dans le message de news:

Dakota toked ya un he?

isabelle


Publicité
Poster une réponse
Anonyme