Microsoft 365 Heure en centième

[pompaero]

Bonjour le forum,

Si possible, je cherche à ajuster un code afin de mettre un textbox qui contient des heures (hh:mm), les mettre en centième.

Dans mon projet, je mets en colonne I des heures au format hh:mm avec le code si après, mais j'aimerai en colonne J le même résultat en centième, est-ce possible ?

.Range("I" & L).Value = Format(Me.Txt_TotalHr.Value, "hh:mm")
'.Range("J" & L).Value = Format(Me.Txt_TotalHr.Value * 24)

Pas de fichier joint, j'imagine que la question est assez simple.
Merci par avance, de votre aide.

pompaero

 

[frangy]

Bonjour,

Essaie avec

.Range("J" & L).Value = CDate(Me.Txt_TotalHr.Value) * 24

Cordialement.

 

[pompaero]

Bonjour frangy

Merci de ton soutien,
Ton code fonctionne, mais dans la BDD dans les colonnes I et J des petits points vert sont dans les cellules, certainement une histoire de format j'imagine.
Dans l'onglet "Annualisation" le résultat ne correspond pas à la BDD.
Du coup je joins un fichier modele pour ce rendre compte.

Cordialement
pompaero