VBA - passer ma textbox en heure décimal dans une cellule

Bonjour,

Après plusieurs recherches je n'ai pas réussi à trouver un exemple qui colle à ce que je recherche.

Ce que je cherche à faire c'est que dans mon onglet "DATA" en D3, la saisie de temps dans le textbox se fasse sous cette forme décimale --> ,##" h"

Ainsi cela alimentera mon tableau dans le format souhaité

Merci d'avance pour le temps consacré à mon sujet.

bonjour,

je suppose que le temps dans ce textbox est par exemple "0:30" pour une demi-heure

dans votre macro "valider ..."

   Range("D3") = TimeValue(Temps.Value) * 24

J'ai oublié de préciser cela pardon.

Quand je rentre une valeur dans mon textbox je rentre ceci "1,5" qui correspond à 1h30.

En fin de compte je rentre une heure décimal

bonjour, ce textbox est "texte" et il faut remplacer le virgule par un point pour qu'excel le traite comme un valeur

une possibilité est cette macro à ajouter dans l'userform "Déclaration"

Private Sub Temps_Change()
     With Temps
          If Len(.Text) = 0 Then Exit Sub
          If InStr(.Text, ",") Then .Text = Replace(.Text, ",", ".")
     End With
End Sub

2ième possibilité est de faire la même chose dans l'autre macro "Valider_Click"

   Range("D3") = Replace(Temps.Value, ",", ".")

J'ai effectivement remplacé ma virgule par un point et cela m'a affiché sous le format désiré.

Merci pour votre aide, bonne journée