Private Sub TBHeures_Change()
Dim ValeurHoraire As String
'MsgBox (ValeurHoraire)
'Stop
If ListeUE.List(ListeUE.ListIndex, 1) <> -1 Then
ValeurHoraire = TBHeures.Value
If InStr(ValeurHoraire, "h") = 0 Then
MsgBox ("Veuillez compléter les horaires au format 'xxhyy'. xx et yy sont des nombres sur 2 chiffres")
Else
MsgBox (Left(ValeurHoraire, InStr(ValeurHoraire, "h") - 1))
If TypeName(Left(ValeurHoraire, InStr(ValeurHoraire, "h") - 1)) = "string" Or TypeName(Right(ValeurHoraire, Len(ValeurHoraire) - InStr(ValeurHoraire, "h"))) = "string" Then
MsgBox ("Veuillez compléter les horaires au format 'xxhyy'. xx et yy sont des nombres sur 2 chiffres.")
Else
ListeUE.List(ListeUE.ListIndex, 1) = TBHeures.Value
End If
MsgBox (Right(ValeurHoraire, Len(ValeurHoraire) - InStr(ValeurHoraire, "h")))
End If
Else
MsgBox ("Sélectionnez une ligne dans la liste précédente...")
End If
End Sub