Private Sub T2_EntreeHr_AfterUpdate()
Dim tString As String
With T2_EntreeHr
If InStr(1, .Value, ":", vbTextCompare) = 0 Then 'Vérifie si l'utilisateur met dans des deux-points ou non
tString = Format(.Value, "0000") 'Sinon, faites la série de 4 chiffres et insérez des deux-points
tString = Left(tString, 2) & ":" & Right(tString, 2) 'autrement le code insère les ":"entre les 2 chiffres
T2_EntreeHr.Value = Format(TimeValue(tString), "HH:MM")
Else
.Value = Format(.Value, "hh:mm") 'Autrement, prenez la valeur comme donné
End If
End With
'Txt_TotalHr.Value = calcul_total(T2_EntreeHr.Value, T3_EntreeHr.Value, T4_EntreeHr.Value, T5_EntreeHr.Value)
End Sub