XL 2019 changer le format dans une colonne

[bobafric]

Bonjour à tous, je voudrai dans une colonne modifier le format des dates.
Actuellement les dates sont exemple 20080621 ce qui devrait être 21/06/2008
Merci pour votre aide

 

[cathodique]

Bonsoir,

Option Explicit

Sub ModifierFormatDate()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    Dim dateString As String
    Dim formattedDate As Date

    ' Spécifiez la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Dates modif") ' Remplacer par le nom de votre feuille

    ' Trouver la dernière ligne de la colonne A (ajustez la colonne selon vos besoins)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Parcourir chaque cellule dans la colonne A
    For Each cell In ws.Range("A1:B" & lastRow) ' Ajustez le range selon vos besoins
        If IsNumeric(cell.Value) And Len(cell.Value) = 8 Then
            dateString = cell.Value
            ' Convertir en date
            formattedDate = DateSerial(Left(dateString, 4), Mid(dateString, 5, 2), Right(dateString, 2))
            ' Mettre à jour la cellule avec le nouveau format de date
            cell.Value = formattedDate
            cell.NumberFormat = "dd/mm/yyyy" ' Appliquer le format de date
        End If
    Next cell

    MsgBox "Format des dates modifié avec succès !"
End Sub

j'avais ça sous la main.

 

[Dranreb]

Bonsoir.
Ce ne sont pas des dates mais des nombres. Cette formule les transforme en dates :

=DATE(ENT(A1/10000);MOD(ENT(A1/100);100);MOD(A1;100))

 

[bobafric]

Merci les gars c'est sympa. Je vais utiliser la solution de cathodique car j'ai des centaines de lignes à modifier. Cordialement