Microsoft 365 Convertir un nombre au format date courte

[pat66]

Bonsoir le forum,

est il possible de saisir dans une cellule, par exemple 15061980 et faire en sorte qu'en cliquant sur entrée, cela devienne 15/06/1980 automatiquement

un grand merci

bonne soirée

 

[Dranreb]

Je voulais juste préciser que ça ne venait pas forcément d'avoir volontairement mis un format de date, et que problème était quand même là si on ne l'avait pas fait.

 

[Nicolas JACQUIN]

Voici là correction:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String
    Dim j As String, m As String, a As String

    If Target.Count > 1 Then Exit Sub

    Application.EnableEvents = False
    Target.NumberFormat = "@"
    Application.EnableEvents = True

    s = Format(Target.Value, "00000000")

    If Len(s) <> 8 Then Exit Sub

    j = Left(s, 2)
    m = Mid(s, 3, 2)
    a = Right(s, 4)

    Application.EnableEvents = False
    Target.Value = j & "/" & m & "/" & a
    Application.EnableEvents = True
End Sub

Nicolas

 

[Nicolas JACQUIN]

 

[TooFatBoy]

Je voulais juste préciser que ça ne venait pas forcément d'avoir volontairement mis un format de date, et que problème était quand même là si on ne l'avait pas fait.

Ah, pardon, je n'avais pas bien compris le sens de ta réponse. 🙁

 

[Nicolas JACQUIN]

Une dernière version un peu plus courte du code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String

    If Target.Count > 1 Then Exit Sub

    Application.EnableEvents = False
    Target.NumberFormat = "@"
    s = Format(Target.Value, "00000000")

    If Len(s) = 8 Then
        Target.Value = Left(s, 2) & "/" & Mid(s, 3, 2) & "/" & Right(s, 4)
    End If
    Application.EnableEvents = True
End Sub

En réponse à la question initiale du demandeur
Nicolas

 

[Dranreb]

@Nicolas JACQUIN, là Excel va essayer de l'interpréter comme date anglo-saxonne avec risque d'interversion du jour et du mois !

 

[mapomme]

Bonjour à tous😉,

Je publie ma tentative.
J'ai essayé de tenir compte du type de données et format de la cellule de saisie.
Si la donnée saisie est du texte ou un nombre ou une date alors on essaye de déchiffrer la valeur comme date et si ça représente une date alors on formate la cellule en date et on inscrit la valeur sinon on laisse la valeur saisie inchangée.
On doit donc pouvoir saisir une date quelque soit le format de la cellule d'entrée (très, très présomptueux comme affirmation 😏).

Le code est le module de la feuille Feuil1.

 

[job75]

Bonjour à tous,

Avec le code du post #25 de Bernard :

- si l'on tape 28021900 on obtient 29/02/1900

- mais si l'on tape 29021900 il y a bug avec Incompatibilité de type.

A+

 

[Dranreb]

Oui je crois qu'il vaut mieux ça en fin de compte :

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim V As Variant, S As String
   If Target.CountLarge > 1 Then Exit Sub
   V = Target.Value2
   If VarType(V) <> vbDouble Then Exit Sub
   If V < 1011900 Then Exit Sub
   Application.EnableEvents = False
   Target.Value = DateSerial(Int(V) Mod 10000, Int(V / 10000) Mod 100, Int(V / 1000000))
   Application.EnableEvents = True
   End Sub

Mais je préconiserais plutôt l'utilisation du calendrier …

 

[TooFatBoy]

Mais je préconiserais plutôt l'utilisation du calendrier …

Moi, je préconiserais plutôt la saisie manuelle qui est beaucoup plus rapide que ces calendriers si lourds pour l'utilisateur et qui sont hélas trop souvent imposés. 🙁


Sur ce, bon après-midi à tous.
🖖

 

[job75]

On notera que ma solution du post #11 colle parfaitement avec le calendrier grégorien :

- les dates du 05/10/1582 au 14/10/1582 n'existent pas

- les 29/02/1600 et 29/02/2000 existent mais les 29/02/1700 29/02/1800 29/02/1900 n'existent pas.

Bien sûr puisqu'il faut 8 chiffres les années antérieures au 01/01/1000 n'existent pas.

 

[Nain porte quoi]

et tout ça c'est juste pour éviter de saisir des "/" ou des "-" ?! éh bé

 

[job75]

Oui, le jeu n'en vaut pas la chandelle et pourtant il n'y a que quelques lignes de codes.

Que dire des DatePickers qui en nécessitent plusieurs dizaines ou centaines ?