Bonsoir,
je bute sur une conversion d'heure pour mon application.
Sur le principe j'ai un SpinBouton un TextBox un Bouton et une cellule dans un tableau structuré.

  • Le SpinButton doit varier par pas de 15mn de 0 à 50 heures
  • Le TextBox doit afficher la valeur au format "hh:mm"
  • Après validation par le bouton :
  • La cellule doit recevoir le contenu du TextBox au format Serial number d'Excel. La cellule elle-même doit être au format "hh:mm" ou "[h]:mm" si les heures dépassent 24h


J'ai tester avec ce style de fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Function HeureToDec(pHeure As Date) As Single    Dim nbHeures As Integer, nbMinutes As Integer, nbSecondes As Single
 
    nbHeures = DatePart("h", pHeure, vbMonday, vbFirstFourDays)
    nbMinutes = DatePart("n", pHeure, vbMonday, vbFirstFourDays)
 
    nbSecondes = nbMinutes * 60 + DatePart("s", pHeure, vbMonday, vbFirstFourDays)
    nbSecondes = nbSecondes / 3600
    HeureToDec = nbHeures + nbSecondes
 
End Function
Mais je n'arrive pas au résultat voulu.
Merci pour votre aide.