Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub convert_test() For i = 1 To 10 cellule = Cells(i, 5) If IsDate(cellule) And VarType(cellule) = 7 Then cellule = format(cellule,"yyyy-dd-mm") If IsDate(cellule) Then Cells(i, 6) = CDate(cellule) Next End Sub
Partager