Format des heures en VBA
m
Bonjour
Ci dessous le code pour alimenter mon tableau mais lorsque je saisi dans le txtNbrheures plus de 24 heures j'ai un message d'erreur exécution 13
incompatibilité de type. Comment faire pour changer la deuxièmes ligne
merci pour votre aide
Private Sub BtnValider_Click()
'Saisie d'une activite pour agent
Dim ligne As Integer
ligne = Sheets("BDD").[A2].End(xlDown).Row + 1
Sheets("BDD").Range("a" & ligne) = CDate(TxtDate)
Sheets("BDD").Range("b" & ligne) = CDate(TxtNbrHeures)
Sheets("BDD").Range("c" & ligne) = CbxNom
Sheets("BDD").Range("d" & ligne) = CbxDesignation
Me.TxtDate = ""
Me.TxtNbrHeures = ""
Me.CbxDesignation = ""
Me.CbxNom = ""
End SubBonjour
Au delà de 24:00 ce n'est plus un horaire mais une durée
https://forum.excel-pratique.com/excel/calculer-duree-en-heures-sur-2-jours-t6582.html