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
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
ChrisV
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" a écrit dans le message de news:
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
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" <andre260@cegetel.net> a écrit dans le message de news:
mn.a52e7d7c13ad7751.51150@cegetel.net...
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
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km" & Chr(10) & _ "nombre d'heures en " & [A1] & " : " & Application.Text(totalh, "[h]:mm:ss")
ChrisV
"andre" a écrit dans le message de news:
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
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
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
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
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km" & Chr(10) & _ "nombre d'heures en " & [A1] & " : " & Application.Text(totalh, "[h]:mm:ss")
ChrisV
"andre" a écrit dans le message de news:
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
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" <andre260@cegetel.net> a écrit dans le message de news:
mn.a52e7d7c13ad7751.51150@cegetel.net...
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
.LeftFooter = "nombre de Km parcourus en " & [A1] & " : " & totalk & " Km" & Chr(10) & _ "nombre d'heures en " & [A1] & " : " & Application.Text(totalh, "[h]:mm:ss")
ChrisV
"andre" a écrit dans le message de news:
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