XL 2016 Convertir un format de date

vivi21 · 5 Octobre 2023

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 · 5 Octobre 2023

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 · 5 Octobre 2023

Bonjour Vivi, JHA,
En VBA une possibilité :

VB:

 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 · 6 Octobre 2023

Merci pour votre aide.

XL 2016 Convertir un format de date

vivi21

XLDnaute Occasionnel

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

vivi21

XLDnaute Occasionnel

Discussions similaires