Convertir une date non reconnue comme date type 01.01.2019 en date ?
Bonjour
J'utilise Excel principalement pour les comptes de mon commerce et j'ai converti les PDF de mes relevés de compte en fichier Excel.
Le problème c'est que dans la colonne date, la date apparait sous un format 01.01.2019 et non 01/01/2019 et elle n'est pas reconnue comme une date par Excel, même en modifiant le format de cellule.
J'ai environ 2500 lignes à modifier à la main si personne ne voit une solution ...
Help.
Merci !
Bonjour,
Fais un =substitute(_____la_date______ ; "." ; "/" )
avec éventuellement un =CNUM(substitute(_____la_date______ ; "." ; "/" )) si nécessaire.
Regarde aussi le format final (à mettre en jj/mm/aaaa)
Steelson merci beaucoup pour ta réponse rapide.
J'ai collé dans une cellule vide la formule :
=substitute(A110 ; "."; "/" )
et dans une autre :
=CNUM(substitute(A110 ; "." ; "/" ))
Dans les deux j'ai : NOM? qui apparait mais pas la date modifiée..
Bonjour,
Tu as une autre possibilité.
Sélectionne la colonne à convertir.
Ruban, Onglet Données, Groupe Outils de données, Convertir.
Aller à l'étape 3, cocher Date et opter pour le format JMA.
Terminer.
Cdlt.
Désolé pour l'orthographe, c'estSteelson merci beaucoup pour ta réponse rapide.
J'ai collé dans une cellule vide la formule :
=substitute(A110 ; "."; "/" )
et dans une autre :
=CNUM(substitute(A110 ; "." ; "/" ))
Dans les deux j'ai : NOM? qui apparait mais pas la date modifiée..
SUBSTITUEJean-Eric merci beaucoup !!!
Ca a marché !!!!!
Vous avez sauvé mon weekend merci !
Le seul problème c'est que toutes les années se sont mise en 1900 y a t'il un moyen de mettre la meme année sur toutes les lignes ?
Re,
Les résultats chez moi, avec le process évoqué précédemment.
Cdlt.
Bonjour
Si tu veux en VBA, Prends ce code...
Cordialement.
Sub CorrigeDate()
Dim Plage As Range, i As Long, Cell As Range
Sheets("Feuil1").Select
i = Range("A1").End(xlDown).Row 'Estimant que tes dates sont dans la colonne A
Set Plage = Range("A1:A" & i)
For Each Cell In Plage.Cells
On Error GoTo CellSuivante
Cell = CDate(Application.WorksheetFunction.Substitute(Cell.Value, ".", "/"))
CellSuivante:
Next Cell
MsgBox "Opération terminée"
End Sub@ Tombapik ... joins un extrait du fichier !
@ Jean-Eric, je ne connaissais pas bien cette astuce (et pourtant ce n'est pas la première fois que tu dégaines cette solution !). Merci