XL 2016 Convertir un format de date

[vivi21]

Bonjour,

Dans mon exemple, j'ai une colonne avec une date de cette forme 2023-03-22 15:38:17 et je souhaite la convertir au format 22/03/2023.
J'utilise une boucle dans mon code VB :
' Boucle à travers les cellules de la colonne D et convertit le format de date
' For Each cell In ws.Range("C2:C" & derniereLigne)
' If IsDate(cell.Value) Then
' cell.Value = Format(cell.Value, "dd/mm/yyyy")
' End If
' Next cell

Mais pour certaines dates, il inverse le mois et le jour. Par exemple 2023-03-10 15:38:17, il me met 03/10/2023.
Pouvez-vous m'aiguiller ?
Merci.
Vivi21

 

[JHA]

Bonjour à tous,

Bonjour à tous,

Je ne sais pas coder en VBA mais si tu veux uniquement la date, il faut prendre son entier.

JHA

 

[sylvanu]

Bonjour Vivi, JHA,
En VBA une possibilité :

 Sub Essai()
    DL = Cells(Cells.Rows.Count, "C").End(xlUp).Row
    For Each C In Range("F2:G" & DL)
        If C.Value <> "" Then
            C.Value = Int(CDate(C.Value) + 0)
            C.NumberFormat = "dd/mm/yyyy"
        End If
    Next C
 End Sub

 

[vivi21]

Merci pour votre aide.