Re : Implanter les ":" dans une cellule
Salut Xeration,
Essaye la Vba suivante:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Plage affectée : A2 - F655536
If Target.Row < 2 Or Target.Column >6 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Len(Target)
Case 4
Target = CDate(Left(Target, 2) & ":" & Right(Target, 2))
Case 3
Target = CDate(Left(Target, 1) & ":" & Right(Target, 2))
Case 1, 2
Target = CDate("0:" & Target)
End Select
Target.NumberFormat = "h:mm"
Application.EnableEvents = True
End Sub