jeromeN95
XLDnaute Impliqué
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...🙂
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...🙂