formule durée en hh:mm:ss avec fonction Now()

[jeromeN95]

Bonjour le forum, quelle belle journée !

J'ai 3 cellules, S1 avec l'heure qui évolue.
C13, qui est une heure d'entrée au format 05/09/2010 14:10:27
P13, qui est une heure de sortie dans le meme format

Je souhaite avoir la durée en Q13 au format hh:mm:ss

J'ai cette formule en Q13 :
=SI(ET(P13="";C13="");"";SI(P13="";$S$1-C13;P13-C13))
Elle marche plutot bien, mais comme j'ai pas le bon format de cellule, ni en C13, ni en P13, il me fait une erreur ###############....!!!!

J'ai essayer dans ma feuille1 en vba de faire ceci :
'double clik = Heure dans colone C et P uniquement !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C13:C200,P13😛200")) Is Nothing Then GoTo fin
ActiveCell = Now()
Selection.NumberFormat = "hh:mm:ss"
'format du double clique en HH:MM:SS



'déplacer la cellule vers la droite aprés validation
Selection.End(xlToLeft).Select
fin:
End Sub

Mais le probleme est que le format hh:mm:ss ne s'applique pas au cellule de la colone 16 et 17, à savoir P et Q!

J'ai meme essyer ceci ; Cells(Target.Row, 3) = Format(Now, "hh:mm:ss")

Mais le calucle ne se fait pas correctement en Q13, car P13=C13.

Quelqu'un a une idée de où est l'erreur???

Merci aux forces XLS...🙂

 

[Tibo]

Re : formule durée en hh:mm:ss avec fonction Now()

Bonjour,

Les ###### sont sans doute dus au fait que ton calcul retourne un nombre d'heures négatif.

Peux-tu joindre un extrait de ton fichier dans lequel tu nous mets le résultat attendu.

Nous verrons comment adapter la formule

@+

 

[jeromeN95]

Re : formule durée en hh:mm:ss avec fonction Now()

Salut Tibo, voici le fichier.
Merci de votre aide.🙂

P.S.: désoler mais il y a une erreur sur la page et je ne peux pas rajouter de PJ... J'attend un peu.

Bon, je l'ai uploader avec free :
Free - Envoyez vos documents

Merci

 

[Tibo]

Re : formule durée en hh:mm:ss avec fonction Now()

re,

Dans quel cas obtiens-tu des ###### ?

En saisissant une heure de sortie ?

Laquelle par exemple ?

A te (re)lire

@+

 

[jeromeN95]

Re : formule durée en hh:mm:ss avec fonction Now()

En sortie :
Je souhaite avoir la durée en Q13 au format hh:mm:ss

 

[Tibo]

Re : formule durée en hh:mm:ss avec fonction Now()

re,

Comme déjà dit, on obtient des ######## si le résultat est négatif, c'est-à-dire si l'heure de sortie est antérieure à l'heure d'entrée.

1ère question : est-il normal d'avoir une heure de sortie antérieure à l'heure d'entrée ?

2ème question : si c'est normal, donne-nous un exemple avec le résultat attendu

@+

 

[jeromeN95]

Re : formule durée en hh:mm:ss avec fonction Now()

par exemple : S1
15:10:10
C13 P13 Q13
heure d'entrée heure de sortie durée
15:10:10 01:00:00 (si il est 16:10:00)

ensuite je rentre l'heure de sortie
15:10:10 15:20:10 00:10:00


Donc l'heure de sortie est forcement supperieur a l'heure d'entrée.

 

[Tibo]

Re : formule durée en hh:mm:ss avec fonction Now()

re,

Si l'heure de sortie est toujours supérieure à la date de sortie, je ne vois pas toujours pas pourquoi tu aurais des #######

Sinon, essaye ceci :

=SI(ET(P13="";C13="");"";SI(P13="";MOD($S$1-C13;1);MOD(P13-C13;1)))

@+

 

[jeromeN95]

Re : formule durée en hh:mm:ss avec fonction Now()

Bonjour,
je pense que l'erreur vient des formats de cellules.
C'est pour cela que dans le code j'ai essayer :
ActiveCell = Now()
Selection.NumberFormat = "hh:mm:ss"

 

[jeromeN95]

Re : formule durée en hh:mm:ss avec fonction Now()

Bonsoir le forum,
un p'tit UP...

Car j'ai pas trouver de solution, merci de m'aider SVP...