XL 2013 calcul temps unitaire

Chris401

XLDnaute Accro

• 28 Mai 2016

• #2

Re : calcul temps unitaire

Bonsoir

Essaye avec ce code à placer dans la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("E5:E8")) Is Nothing Then
        Target.Offset(0, 1) = Target * 24
    End If
    If Not Application.Intersect(Target, Range("F5:F8")) Is Nothing Then
        Target.Offset(0, -1) = Target / 24
    End If
Application.EnableEvents = True
End Sub

Cordialement
Chris

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 28 Mai 2016

• #3

Re : calcul temps unitaire

Bonsoir

Pour convertir des heures en centièmes d'heures il faut multiplier les heures par 24 et l'inverse pour obtenir des heures en centièmes en hh mm ss

En colonne E tu ne peux avoir une formule et saisir, il faut choisir.

Cordialement

Cordialement

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 28 Mai 2016

• #4

Re : calcul temps unitaire

Merci messieurs pour votre aide. je regarde ton code de ce pas.

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 28 Mai 2016

• #5

Re : calcul temps unitaire

Par contre si je vide toutes les cellules de E et F, cela ne fonctionne plus, est ce normal.

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 29 Mai 2016

• #6

Re : calcul temps unitaire

Bonjour

Code modifié

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("E5:E8")) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, 1) = Target * 24
    End If
    If Not Application.Intersect(Target, Range("F5:F8")) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, -1) = Target / 24
    End If
Application.EnableEvents = True
End Sub

Cordialement
Chris

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 29 Mai 2016

• #7

Re : calcul temps unitaire

Merci Chris401,
Ça marche du tonnerre, choix en heure minute ou en centièmes d'heure. Excellent.
Merci encore.
Maintenant si je veux pousser plus loin en ajoutant les secondes, comment fait on ?
cordialement

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 29 Mai 2016

• #8

Re : calcul temps unitaire

Bonsoir

Pas sûr de comprendre.
Dans le fichier que tu as joins, tu as écrit 00:01:50 soit 1 minute et 50 secondes
Si tu veux écrire 1 heure 50 minutes et 10 secondes, tu mets : 1:50:10

Pour voir la différence sur la colonne des centièmes, passe les cellules F5:F7 en format Standard ou Nombre avec 4 virgules.

Si ce n'est pas ton attente, explique en détail.

Chris

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 29 Mai 2016

• #9

Re : calcul temps unitaire

Tu as raison, ca marche nickel. Merci de ton aide

 

Vote positif 0 Vote négatif