changer des heures minutes d'un TDC en centième d'heure avec VBA

[steph_97429]

Bonjour à tous
je cherche à transformer,à partir d'un bouton de commande, les temps en heures et minutes d'un TCD en centième d'heure puis à les faire revenir en heures minutes.
merci d'avance
Steph_97429

 

[PMO2]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour,

Une piste avec 2 fonctions personnalisées.
Copiez le code suivant dans un module Standard

Const COEFF As Double = 4.16666666666666E-04

Function Heure2Centieme(Cellule As Range) As Double
Heure2Centieme = CDbl(Cellule(1, 1)) / COEFF
End Function

Function Centieme2Heure(Cellule As Range) As Double
Centieme2Heure = CDbl(Cellule(1, 1)) * COEFF
End Function

Pour l'utilisation, se référer à l'exemple en pièce jointe.

 

[steph_97429]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour PMO2
Je vous remercie pour la solution. J'ai essayé de comprendre votre proposition et je note que le résultat en centième d'heure est multiplié par 100. comment faire pour avoir le bon résultat? faut il intervenir sur la constante?
encore merci pour votre solution
Stéph_97429

 

[PMO2]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Je me suis référé à votre demande

je cherche à transformer,à partir d'un bouton de commande, les temps en heures et minutes d'un TCD en centième d'heure puis à les faire revenir en heures minutes.

Une heure = 100 centièmes d'heure etc (voir ci-dessous)
01:00 100
01:30 150
02:00 200
02:15 225

Si ce n'est pas cela que vous attendiez, reformulez votre question.

 

[steph_97429]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour PMO2
je note que je me suis mal expliqué pour les "centièmes d'heure".
j'ai pour habitude de multiplier par 24 et mettre la cellule en format nombre et le résultat donne 1,50 pour 01h30 ou encore 1,67 pour 01h40.
merci encore pour l’intérêt que vous portez à ma demande
Stéph_97429

 

[mapomme]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour steph_97429, PMO2

Bonjour PMO2
Je vous remercie pour la solution. J'ai essayé de comprendre votre proposition et je note que le résultat en centième d'heure est multiplié par 100. comment faire pour avoir le bon résultat? faut il intervenir sur la constante?
encore merci pour votre solution
Stéph_97429

A mon avis, ce n'est pas en centième d'heure mais en heure décimale arrondie au centième .
Donc en pompant "honteusement" le code de PMO , essayez :

Const COEFF = 24

Function Heure2Centieme(Cellule As Range) As Double
  Heure2Centieme = CDbl(Cellule(1, 1)) * COEFF
End Function

Function Centieme2Heure(Cellule As Range) As Double
  Centieme2Heure = CDbl(Cellule(1, 1)) / COEFF
End Function

 

[steph_97429]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour mapomme, PMO2
merci pour le conseil, cela marche.
Merci également pour la précision concernant "mes" centièmes d'heure car j'étais à coté de la plaque.
Merci beaucoup à PMO2 pour son implication et la résolution de mon problème
Puisque vous êtes respectivement de Paris et d'Angers je vous envoie un peu de soleil de l’île de la Réunion.
Cordialement

 

[mapomme]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour steph_97429, PMO2,

Pour le FUN.

Un essai qui agit directement sur le tableau des données de la feuille "BDD" pour modifier la présentation du TCD.
L'activation de la feuille "BDD" formate automatiquement le tableau en [h]:ss.

Le code est dans module1 et dans le module de code du classeur .

Pour basculer d'un affichage à l'autre, cliquer sur le bouton de la feuille "TCD".

 

[steph_97429]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonsoir mapomme
Excellent, vraiment trés bien!!
merci beaucoup
Stéph_97429

 

[steph_97429]

Re : changer des heures minutes d'un TDC en centième d'heure avec VBA

Bonjour à tous
Comment faut-il faire pour pouvoir adapter le fichier créé par mapomme à un autre TCD dans un autre fichier? je cherche depuis une semaine et je suis complètement bloqué.
merci d'avance