Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Format Date un extract 20240602

Xxaann

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

Pièces jointes

  • export.xlsx
    44 KB · Affichages: 10

patricktoulon

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

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

piga25

XLDnaute Barbatruc
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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…