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]

Bonsoir.

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   Target.Value = DateSerial(Int(Target.Value) Mod 10000, Int(Target.Value / 10000) Mod 100, Int(Target.Value / 1000000))
   Application.EnableEvents = True
   End Sub

 

[Jacky67]

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

Bonjour à tous
Les cellules concernées au format (Uniquement visuel)
00\/00\/0000

 

[TooFatBoy]

Bonjour,

Les cellules concernées au format
00\/00\/0000

Au début j'ai trouvé ça magique, puis j'ai constaté que même si ça donne le bon affichage ça ne converti hélas pas le nombre en date. 🙁

 

[Jacky67]

Bonjour,


Au début j'ai trouvé ça magique, puis j'ai constaté que même si ça donne le bon affichage ça ne converti hélas pas le nombre en date.

Hello,
Oui, hélas🙁.. c'est pour cela que j'ai rajouté (Uniquement visuel)
Reste à savoir si l'utilisateur a besoin de calculer avec les dates