Conversion date nombre en format usuel

Bonjour à tous ! :coucou:

Je recherche un code permettant de convertir une date format nombre en une date format dd/mm/yyyy.

Par exemple la conversion:

Code:

---

1 2 3

date nombre = 1 date format dd/mm/yyyy = 01/01/1900

---

Quelqu'un aurait une idée ??

Merci d'avance

Cdt

Tiviia

La date 1 est 31/12/1899 en format usuel donc pour ton format :

Code:

---

1 2 3 4 5

Sub dateee() Dim x As Integer x = 1 MsgBox (CDate(x+1)) End Sub

---

Bonjour

MERCI pour la réponse. :ccool::ccool::ccool::ccool:

Voila l'adaptation à ma situation!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub dateee() Dim x As Range Dim daterange As Range Dim derlig As Long   derlig = ActiveSheet.Range("T" & Rows.Count).End(xlUp).Row Set daterange = Range("$T$2:$T$" & derlig)   For Each x In daterange x.Value = (CDate(x)) Next x End Sub

---

A bientôt

Tiviia :D:D