XL 2016 Forcer format heure dans une plage de cellule

[Mimi]

Bonjour à tous,
J'ai trouvé ceci sur un forum :
Lorsque j'écris 1200 sa me transforme en A1 12:00.

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
x = Format(zz, "0000")
zz.Value = Left(x, 2) & ":" & Right(x, 2)
Application.EnableEvents = True
End Sub

Mon problème c'est en A1 seulement et je voudrais que ce soit sur une plage de cellule exemple : D2300
Ensuite dans le même principe et dans une plage de cellule C2:C300 est-il Possible de faire ceci :
j'écris 26112019 sa se transforme en 26/11/2019.
D'avance je vous remercie
Mimi

 

[fanfan38]

Bonjour,
Un fichier exemple est TOUJOURS le bienvenu...

Private Sub Worksheet_Change(ByVal zz As Range)
  Dim x As String
If zz.Column < 3 Or zz.Column > 4 Then Exit Sub
If zz.Row < 2 Or zz.Row > 300 Then Exit Sub
Application.EnableEvents = False
If zz.Column = 4 Then
  x = Format(zz, "0000")
  zz.Value = Left(x, 2) & ":" & Right(x, 2)
Else
  x = Format(zz, "00000000")
  zz.Value = Left(x, 2) & "/" & Mid(x, 3, 2) & "/" & Right(x, 4)
End If
Application.EnableEvents = True
End Sub

A+ François

 

[Mimi]

Bonjour François,
Je te joints un fichier
Merci

 

[fanfan38]

Quelques modif pour que 01122019 n'affiche pas 12/01/2019...
A+ François

 

[Mimi]

Merci beaucoup François impeccable
Mimi