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

P

PMO2

XLDnaute Accro

• 7 Février 2015

• #2

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

Code:

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.

 

Pièces jointes

• Centièmes d'heure_pmo.xlsm

  21.8 KB · Affichages: 36

Vote positif 0 Vote négatif

S

steph_97429

Guest

• 7 Février 2015

• #3

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 7 Février 2015

• #4

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.

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

S

steph_97429

Guest

• 7 Février 2015

• #5

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Février 2015

• #6

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

Bonjour steph_97429, PMO2 🙂

steph_97429 à dit:

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

Cliquez pour agrandir...

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 :

VB:

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

 

Dernière édition: 7 Février 2015

Vote positif 0 Vote négatif

S

steph_97429

Guest

• 7 Février 2015

• #7

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Février 2015

• #8

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".

 

Pièces jointes

• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 35
• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 40
• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 29

Vote positif 0 Vote négatif

S

steph_97429

Guest

• 7 Février 2015

• #9

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

 

Vote positif 0 Vote négatif

S

steph_97429

Guest

• 14 Février 2015

• #10

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

 

Pièces jointes

• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 9
• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 24
• steph_97429-Centièmes d'heure_pmo-v1.xlsm

  29 KB · Affichages: 19

Vote positif 0 Vote négatif