Microsoft 365 Convertir un nombre au format date courte

Dranreb

XLDnaute Barbatruc

• Hier à 13:35

• #31

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.

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• Hier à 13:36

• #32

Voici là correction:

VB:

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

 

Pièces jointes

• Date.xlsm

  14.9 KB · Affichages: 1

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• Hier à 13:37

• #33

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 13:41

• #34

Dranreb à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Accro

Supporter XLD

• Hier à 13:54

• #35

Une dernière version un peu plus courte du code

VB:

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

 

Pièces jointes

• Date.xlsm

  14.9 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• Hier à 14:31

• #36

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• Hier à 15:11

• #37

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.

 

Pièces jointes

• pat66-Saisie-Date-jjmmaaaa-v1.xlsm

  21.4 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• Hier à 15:31

• #38

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• Hier à 16:03

• #39

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

VB:

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 …

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 16:18

• #40

Dranreb à dit:

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

Cliquez pour agrandir...

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.
🖖

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• Hier à 18:46

• #41

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.

 

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Occasionnel

• Hier à 22:53

• #42

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• Hier à 23:40

• #43

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 ?

 

Vote positif 0 Vote négatif