Format date incorrect

Bonjour,

J'ai dans la colonne A des dates sous ce format : 20210331

J'aimerai les avoir sous ce format : 31/03/21

Comment puis je faire en VBA ?

Merci d'avance pour votre aide

Bonjour,

Des données avec des formats exotiques on peut en pondre à l'infini...

Pour préciser la question fournir un extrait du fichier avec au moins une ligne ou la date n'est pas modifiée. (et le format de colonne également)

A+

Bonjour Galopin,

Ci-joint un fichier.

Merci d'avance pour ton aide :)

Bonjour akira, hello galopin01,

Une proposition.

Cordialement

Bonjour akira, galopin01, le forum,

[EDIT]..Bonjour Zebulon2

Comme je me suis un peu galéré pour trouver une solution, je me permets de poster.....galopin01 me corrigera si je dis une ânerie,

Sub Bouton1_Cliquer()
  Dim année, mois, jour
  Dim i%, dl%
   Application.ScreenUpdating = False
    With Sheets("Formule")
     dl = .Range("A" & Rows.Count).End(xlUp).Row
          .Columns("B:B").NumberFormat = "m/d/yyyy"
      For i = 7 To dl
       année = Format(Left(.Range("A" & i), 4), "0000")
        mois = Format(Mid(.Range("A" & i), 5, 2), "00")
        jour = Format(Right(.Range("A" & i), 2), "00")
       .Range("B" & i) = DateSerial(année, mois, jour)
      Next i
   End With
End Sub

Cordialement,

Merci à tous les deux, c'est exactement ce que je recherchais :)

Vous êtes au top .

Je vous souhaite une agréable journée :)

Bonjour

Bonjour à tous

Une autre variante avec fonction personnalisée.

Bye !