FORMAT DATE

Bonsoir,

Avec une macro cela est possible

Cordialement

Bonjour Denis,

lien fichier : https://www.cjoint.com/c/NDkapufnJO0

* en A2, saisis 090424 ➯ 09/04/24

* si le 1er chiffre est 0, il est facultatif ; donc :
en A2, saisis 50424 ➯ 05/04/24 ; note bien que
ça permet d'accélérer la saisie pour toutes les
dates dont le jour est compris entre 1 et 9.

* quand y'a les 2 « / », ce n'est pas une date texte,
c'est une vraie date, au format jj/mm/aa.

* pour tout ce qu'on vient de voir pour une saisie en A2,
c'est pareil pour toutes les cellules en dessous ; donc
tu peux faire le même genre de saisie à partir de A3
puis dessous.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA du module de Feuil1 (18 lignes) :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim v$
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column > 1 Then Exit Sub
    If .Row = 1 Then Exit Sub    .NumberFormat = "@": v = Right$("0" & .Value, 6)
    If Len(v) <> 6 Then Exit Sub
    v = Left$(v, 2) & "/" & Mid$(v, 3, 2) & "/20" & Right$(v, 2)
    If Not IsDate(v) Then Exit Sub
    Application.EnableEvents = 0: .NumberFormat = "dd/mm/yy"
    .Value = DateSerial(Right$(v, 4), Mid$(v, 4, 2), Left$(v, 2))
    Application.EnableEvents = -1
  End With
End Sub

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

si besoin, tu peux demander une adaptation ;
à te lire pour avoir ton avis.  :)

rhodo