FORMAT DATE

0

Bonjour, connaissez vous un moyen de rentrer les données dates sans les / en écrivant par exemple 090424 et que la date soit automatiquement validée par 09/04/24?Merci

    Posté le 9 avril, 14:58
    par Denis
    Répondre
    0

    Bonsoir,

    Avec une macro cela est possible

    Cordialement

    Posté le 9 avril, 21:38
    0

    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

    rhodo Posté le 10 avril, 02:19
    par rhodo

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :