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 le total des heures

le total des heures

3 réponses
Avatar
frayer
J'arrive doucement, doucement (Mci Bob, Ellimac et les=20
autres)
mais en col. 6 le total (C-B)+(F-E) marche pas du tout du=20
tout.
J'ai beau essayer tous les formats h.mm-hh.mm-[h]mm - [hh]
mm - NIET

J'ai reussi a faire fonctionner ca :
Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
If Target.Value <> "" Then
MsgBox ("D=E9j=E0 rempli ! Already fitted")
Else
Select Case Target.Column
Case 1: Target.Value =3D Format(Date, "dd mmm yyyy")
Case 2: Target.Value =3D Format(Now, "h:mm")
ActiveCell =3D Now - TimeSerial(0, 5, 0)
Case 3, 4, 5: Target.Value =3D Format(Now, "h:mm")
End Select
End If

End Sub

Le case 6 devrait etre un total ligne des heures =3Dsum(C-B)+
(F-E)
le case 7 le cumul des heures=20
------
Quand j'arrive a mettre en place qqchose qui semble=20
coherent dans la cellule "total" 6 et que je ferme le=20
dossier, PLUS RIEN a l'ouverture....=20
Ou est le bug ?
Mci de vos lumieres
++
Signaler un problème avec ce contenu

3 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
Frédéric Sigonneau
Bonjour,

Je ne sais pas si c'est le seul problème de ton code, mais la colonne 6, c'est
la colonne F. Ta formule en colonne 6 (=sum(C-B)+(F-E)) va donc provoquer une
erreur (référence circulaire)...

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

frayer a écrit:
J'arrive doucement, doucement (Mci Bob, Ellimac et les
autres)
mais en col. 6 le total (C-B)+(F-E) marche pas du tout du
tout.
J'ai beau essayer tous les formats h.mm-hh.mm-[h]mm - [hh]
mm - NIET

J'ai reussi a faire fonctionner ca :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value <> "" Then
MsgBox ("Déjà rempli ! Already fitted")
Else
Select Case Target.Column
Case 1: Target.Value = Format(Date, "dd mmm yyyy")
Case 2: Target.Value = Format(Now, "h:mm")
ActiveCell = Now - TimeSerial(0, 5, 0)
Case 3, 4, 5: Target.Value = Format(Now, "h:mm")
End Select
End If

End Sub

Le case 6 devrait etre un total ligne des heures =sum(C-B)+
(F-E)
le case 7 le cumul des heures
------
Quand j'arrive a mettre en place qqchose qui semble
coherent dans la cellule "total" 6 et que je ferme le
dossier, PLUS RIEN a l'ouverture....
Ou est le bug ?
Mci de vos lumieres
++



Avatar
FRAYER
Bjr, Excuses Frederique
La formule notee etait fausse, c'est plutot (=sum(C-B)+(D-
E))-
Je me suis aussi apercu qu'en colonne A (1), bien que le
format ai ete fixe a (Now, h:mm)> (case2), venait
s'inscrire la date complete avec jour, mois, année devant
l'heure. ?? Dès que je supprime ce debut de date, le total
fonctionne et le cumul de meme. Quel moyen ai-je pour
forcer l'entree de cette heure dans ce format (h:mm)
Merci

-----Message d'origine-----
Bonjour,

Je ne sais pas si c'est le seul problème de ton code,
mais la colonne 6, c'est

la colonne F. Ta formule en colonne 6 (=sum(C-B)+(F-E))
va donc provoquer une

erreur (référence circulaire)...

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

frayer a écrit:
J'arrive doucement, doucement (Mci Bob, Ellimac et les
autres)
mais en col. 6 le total (C-B)+(F-E) marche pas du tout
du


tout.
J'ai beau essayer tous les formats h.mm-hh.mm-[h]mm -
[hh]


mm - NIET

J'ai reussi a faire fonctionner ca :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value <> "" Then
MsgBox ("Déjà rempli ! Already fitted")
Else
Select Case Target.Column
Case 1: Target.Value = Format(Date, "dd mmm
yyyy")


Case 2: Target.Value = Format(Now, "h:mm")
ActiveCell = Now - TimeSerial(0, 5, 0)
Case 3, 4, 5: Target.Value = Format(Now, "h:mm")
End Select
End If

End Sub

Le case 6 devrait etre un total ligne des heures =sum(C-
B)+


(F-E)
le case 7 le cumul des heures
------
Quand j'arrive a mettre en place qqchose qui semble
coherent dans la cellule "total" 6 et que je ferme le
dossier, PLUS RIEN a l'ouverture....
Ou est le bug ?
Mci de vos lumieres
++



.




Avatar
Frédéric Sigonneau
Bonsoir,

Pour forcer le format d'une donnée dans une cellule, tu peux utiliser la
propriété NumberFormat (ou NumberFormatLocal) :

Target.Value = Now - Date
Target.NumberFormat = "h:mm"

ou, dans un contexte où il faudrait afficher un nombre d'heures supérieures à 24h :

Target.NumberFormat = "[h]:mm"

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

FRAYER a écrit:
Bjr, Excuses Frederique
La formule notee etait fausse, c'est plutot (=sum(C-B)+(D-
E))-
Je me suis aussi apercu qu'en colonne A (1), bien que le
format ai ete fixe a (Now, h:mm)> (case2), venait
s'inscrire la date complete avec jour, mois, année devant
l'heure. ?? Dès que je supprime ce debut de date, le total
fonctionne et le cumul de meme. Quel moyen ai-je pour
forcer l'entree de cette heure dans ce format (h:mm)
Merci


-----Message d'origine-----
Bonjour,

Je ne sais pas si c'est le seul problème de ton code,


mais la colonne 6, c'est

la colonne F. Ta formule en colonne 6 (=sum(C-B)+(F-E))


va donc provoquer une

erreur (référence circulaire)...

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

frayer a écrit:

J'arrive doucement, doucement (Mci Bob, Ellimac et les
autres)
mais en col. 6 le total (C-B)+(F-E) marche pas du tout


du


tout.
J'ai beau essayer tous les formats h.mm-hh.mm-[h]mm -


[hh]


mm - NIET

J'ai reussi a faire fonctionner ca :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value <> "" Then
MsgBox ("Déjà rempli ! Already fitted")
Else
Select Case Target.Column
Case 1: Target.Value = Format(Date, "dd mmm


yyyy")


Case 2: Target.Value = Format(Now, "h:mm")
ActiveCell = Now - TimeSerial(0, 5, 0)
Case 3, 4, 5: Target.Value = Format(Now, "h:mm")
End Select
End If

End Sub

Le case 6 devrait etre un total ligne des heures =sum(C-


B)+


(F-E)
le case 7 le cumul des heures
------
Quand j'arrive a mettre en place qqchose qui semble
coherent dans la cellule "total" 6 et que je ferme le
dossier, PLUS RIEN a l'ouverture....
Ou est le bug ?
Mci de vos lumieres
++



.