Re : Cherche code VBA pour format heure
Bonjour,
Pas très joli mais ça fonctionne:
Sub WorkSheet_Change(ByVal Target As Range)
Dim a As Integer, b As Integer, c As Integer, d As Integer
If Target.Count > 1 Then Exit Sub
If Target = Range("A2") Or Target = Range("B3") Or Target = Range("C4") Then
If Len(Target.Value) <> 4 Then
Exit Sub
Else
a = Mid(Target.Value, 1, 1)
b = Mid(Target.Value, 2, 1)
c = Mid(Target.Value, 3, 1)
d = Mid(Target.Value, 4, 1)
Target.Value = a & b & ":" & c & d
End If
End If
End Sub