XL 2019 changer le format dans une colonne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bobafric

XLDnaute Occasionnel
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
 

Pièces jointes

Bonsoir,
VB:
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.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
173
Réponses
9
Affichages
483
Réponses
18
Affichages
477
Retour