XL 2016 Récupération de date qui ne sont pas reconnues

Chris24

XLDnaute Impliqué

• 31 Août 2017

• #2

Bonjour

peut être comme ceci (en décomposé)

VB:

dte = Right(ActiveCell.Value, Len(ActiveCell.Value) - 4)

dte = CDate(Replace(dte, ".", "/"))

ActiveCell.Value= dte

Cdt

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Août 2017

• #3

Bonsour®

Fab117 à dit:

Dans mon fichier Excel, je récupère des dates qui sont inscrites selon :
Fri 08.09.17

Ce format n'est pas reconnue comme une date.
Ce que j'ai fait est de supprimer les 4 premiers caractères.
Quelqu'un saurait-il comment réglé ce problème dans ma macro ?

Cliquez pour agrandir...

avant toutes manipulations :
Considerer la colonne considérée en Format Texte (si elle est en standard, forcer en texte)
La suppression des 4 premiers caractères devrait dans ce cas ne pas avoir d'impact sur la partie restante contenant des chiffres.
les dates sont supposées être au format US , i.e : MJA
Sélectionner la colonne
Menu Données > Convertir
à l'étape 3 choisir le format Lu : MJA
OK
la conversion devrait s'effectuer intégralement sans problème

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 31 Août 2017

• #4

Bonjour à tous

A voir

Code:

Sub test()
ActiveCell.Value = Mid(ActiveCell.Value, 8, 2) & "-" & Mid(ActiveCell.Value, 5, 2) & "-20" & Mid(ActiveCell.Value, 11, 2)
End Sub

 

Dernière édition: 31 Août 2017

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 31 Août 2017

• #5

Hello,
Merci à tous d'avoir travaillé sur mon problème.
J'ai utilisé la ligne de code de M12 qui fonctionne parfaitement.

Bon après-midi.

Fab

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 31 Août 2017

• #6

juste un peu plus court en compilant le code

VB:

ActiveCell = CDate(Replace(Right(ActiveCell.Value, Len(ActiveCell.Value) - 4), ".", "/"))

Cdt

 

Vote positif 0 Vote négatif

C

cheribibi33

XLDnaute Nouveau

• 5 Octobre 2017

• #7

Bonjour,
Comment utiliser le code de M12 ou Chris24 sur plusieurs cellules en même temps. (exemple A2:A1000)
Merci

 

Vote positif 0 Vote négatif