Discussion :

[Tiviia]

Bonjour à tous !

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

Par exemple la conversion:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub dateee()
Dim x As Integer
x = 1
MsgBox (CDate(x+1))
End Sub

[Tiviia]

Bonjour

MERCI pour la réponse.

Voila l'adaptation à ma situation!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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