Discussion :

[tieumav]

Bonjour,
Dans une colonne j'ai une liste de date que je souhaiterais convertir.
J'ai une colonne qui est sous format "mm/dd/yyyy hh:mm:ss AM/PM".
Je souhaiterais la convertir sous format: "dd/mm/yyyy hh:mm:ss".
Je suis un peu bloqué.
Voici ce que j'ai pour le moment:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub format_date_us()
 
Dim i As Integer
Dim v As Double
For Each sh In Sheets
sh.Select
Dim Lg
Lg = Range("B2").End(xlDown).Row  
 
        For i = 2 To Lg
        v = CDbl(CDate(Cells(i, 2)))
        Cells(i, 2) = Format(v, "mm/dd/yyyy hh:mm:ss")
    Next
Next sh

Merci

[Invité]

Cells(i, 2) = Format(Cells(i, 2),"yyyy-dd-mm")