Convertir textes avec longueurs différentes au format date

Caribou · 8 Mai 2019

Bonjour à tous,
Je cherche à convertir des données au format texte en date.
Mon pb est que les données des cellules n'ont pas toujours la même longueur.
En effet, j'ai par exemple :
10/15/2013
8/30/2015
10/6/2014
(mois/jour/année mais au format texte donc)
Ma formule =DATE(DROITE(A1;4);STXT(A1;4;2);GAUCHE(A1;2)) marche avec le premier exemple mais pas avec les 2 autres puisque le jour ou le mois n'ont plus qu'un chiffre.
Pourriez-vous m'aider s'il vous plaît avec une formule qui englobe les 3 cas de figures?
Un grand merci d'avance

Dranreb · 8 Mai 2019

Bonsoir.
Essayez =DATEVAL(A1)

mapomme · 8 Mai 2019

Bonjour,

J'ai considéré que c’était un copier/coller ou une importation de dates au format américain (mois/jour/année). Donc soit Excel a transformé la valeur copiée ou importée en texte (si la valeur ne peut pas représenter une date au format français), soit l'a transformé en date (mais avec jour et mois inversés).
Si l'importation a conservé le format texte pour toutes les dates, ça doit fonctionner aussi.
Voir le fichier joint et la formule en B1 à copier vers le bas.

Staple1600 · 8 Mai 2019

Bonjour le fil,

Sans formules, sans macros mais avec Données/Convertir ça devrait le faire aussi
(en formatant Date en MJA à l'étape 3)

Ci-dessous la traduction VBA de ce Données/Convertir

VB:

Sub Macro1()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
End Sub

PS: J'ai testé en copiant en Texte unicode les trois dates du message#1
=> test concluant.

mapomme · 8 Mai 2019

Salut @Staple1600

Moi j'aurais fait comme toi mais le quadrupède ruminant demandait une formule...

Staple1600 · 8 Mai 2019

Bonjour ma pomme

Peut-être que le sus-dit cervidé ignore cette fonctionnalité d'Excel.
Dorénavant il a le choix:
Formuler
Macroter
ou honorer sa souris de douces caresses pour dialoguer avec L'Assistant
(Cette troisième voie ayant l'avantage d'en plus d'améliorer sa dextérité digitale, qui n'est déjà pas bien grande pour un cervidé )

Staple1600 · 8 Mai 2019

Re,

Je me permets de digresser
(c'est un jour férié, on a du temps libre et la question est résolue)
Il y a ceux qui titillent leur souris et il y a les autres, ceux (les badass) qui ne jurent que par leurs claviers
Alors pour ne pas les oublier, et pour corner un peu plus leurs gros doigts


CTRL+FLECHE (prés de Verr NUM)
CTRL+A
ALT+é
ALT+O
ALT+S
ENTER
ENTER
ALT+D
TAB (choisir le format avec les flèche Haut/Bas)
ENTER
ENTER

PS: dextérité digitale (il y a mot de trop, non?)
C'est un pléonasme (ou un truc du genre)
On doit dire : améliorer sa dextérité
(qui pour le coup est forcément digitale)

Caribou · 8 Mai 2019

Dranreb à dit:
Bonsoir.
Essayez =DATEVAL(A1)

Merci Dranreb. J'avais essayé aussi mais ça ne fonctionne pas. Pourquoi ? Mystère (pour moi en tout cas )
Bonne journée !

Caribou · 8 Mai 2019

mapomme à dit:
Bonjour,

J'ai considéré que c’était un copier/coller ou une importation de dates au format américain (mois/jour/année). Donc soit Excel a transformé la valeur copiée ou importée en texte (si la valeur ne peut pas représenter une date au format français), soit l'a transformé en date (mais avec jour et mois inversés).
Si l'importation a conservé le format texte pour toutes les dates, ça doit fonctionner aussi.
Voir le fichier joint et la formule en B1 à copier vers le bas.

Allo mapomme.
Importation en effet Ça marche super bien. Merci beaucoup pour l'aide.
Bonne journée !

Caribou · 8 Mai 2019

Staple1600 à dit:
Bonjour le fil,

Sans formules, sans macros mais avec Données/Convertir ça devrait le faire aussi
(en formatant Date en MJA à l'étape 3)

Ci-dessous la traduction VBA de ce Données/Convertir

VB:

Sub Macro1() Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 3), TrailingMinusNumbers:=True End Sub

PS: J'ai testé en copiant en Texte unicode les trois dates du message#1
=> test concluant.

Allo Staple1600,
J'avais essayé avec Données/Convertir mais je n'avais pas fait attention au format de la date (honte), fait que ça ne marchait pas. Oui ça fonctionne bien comme ça. Merci pour l'aide. C'est très apprécié.
Bonne journée !

Staple1600 · 8 Mai 2019

Bonjour Caribou

Merci d'avoir pris le temps de répondre à chacun des intervenants du fil.
(C'est relativement rare donc je le relève )

Au final, ton choix s'est porté sur quelle solution?

Caribou · 8 Mai 2019

Staple1600 à dit:
Bonjour Caribou

Merci d'avoir pris le temps de répondre à chacun des intervenants du fil.
(C'est relativement rare donc je le relève )

Au final, ton choix s'est porté sur quelle solution?

Fait plaisir.
J'ai opté pour Données/Convertir mais je trouve ça cool d'avoir les formules pareil car ça me permet aussi de progresser, et progresser, c'est bien

Convertir textes avec longueurs différentes au format date

Caribou

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Caribou

XLDnaute Nouveau

Caribou

XLDnaute Nouveau

Caribou

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Caribou

XLDnaute Nouveau

Discussions similaires