XL 2021 Format Date un extract 20240602

Xxaann · 7 Juin 2024

Bonjour,

J'ai un extract de données dont les dates sont en texte et notées 20240602.

Je cherche une façon simple de et rapide de remettre en format date ces données.

A ce jour je n'ai trouvé que mettre en formule =DROITE(A3;2)&"/"&GAUCHE(DROITE(A3;4);2)&"/"&GAUCHE(A3;4)
ensuite de copier et coller en valeur les données
et donc ensuite automatiser cela en macro.

J'imagine qu'il y a une façon bien plus simple et rapide pour réaliser cela, mais je ne trouve pas.

Je mets un fichier exemple avec en colonne A mon extract et en colonne B ma solution .

Bonne journée à tous,
Nicolas

patricktoulon · 7 Juin 2024

Bonjour
déjà en formule j'aurais plutôt fait ça histoire d'avoir de sur des dates et non le texte d'une date
=DATE(STXT(A3;1;4);STXT(A3;5;2);STXT(A3;8;2))
ensuite par macro tu n'aurais alors plus besoins de formule et surtout ce ne serait plus un xlsx mais un xlsm fichier avec macro
problème si ce fichier est un extract généré par je ne sais quel procédé, il te faudra recommencer l'opération sur le prochain fichier

sinon la petite sub pourrait être ça

VB:

Sub test()
   Dim i&,tablo
   tablo = Feuil1.[A2].Resize(ActiveSheet.UsedRange.Rows.Count).Value
    For i = 1 To UBound(tablo)
        If tablo(i, 1) <> "" Then tablo(i, 1) = DateSerial(Mid(tablo(i, 1), 1, 4), Mid(tablo(i, 1), 5, 2), Mid(tablo(i, 1), 8, 2))
    Next
    [B2].Resize(UBound(tablo)) = tablo
End Sub

Xxaann · 7 Juin 2024

Merci beaucoup!

Déjà, la formule DATE, je suis con de n'avoir même pas essayer.

Pour la macro, j'ai simplement remplacé B2 par A2 afin que la colonne soit directement remplacée.

Grand merci,
Nicolas

Encore une fois ce forum est génial, tu coinces, tu postes et dans l'heure ta la solution!

dysorthographie · 7 Juin 2024

Bonjour,

Code:

If tablo(i, 1) <> "" Then tablo(i, 1)= cdate(format(tablo(i, 1),"@@@@-@@-@@"))

piga25 · 7 Juin 2024

Bonjour,
Tout simplement en utilisant données - Convertir - date (AMJ) .
Sélectionner votre colonne,
aller dans données
puis convertir,
aller jusqu'à la fenêtre date et choisir le bon format (format d'origine AMJ)
sélectionner l'endroit ou vous voulez votre réponse.
Valider.

XL 2021 Format Date un extract 20240602

Xxaann

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Xxaann

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

piga25

XLDnaute Barbatruc

Discussions similaires