Convertion format date cellule

Bonjour, je rencontre un problème dans excel. on m' transmis un fichier avec des cellules au format :2019-01-16 00:00:00.0

comment peux ton faire pour convertir au format : 16/01/2019?

Merci d'avance

Bonjour,

Si tes données sont en A1 et qu'elles sont vraiment considérées comme du texte (ce qu'on ne peut savoir avec certitude sans le fichier) :

tu rentres en B1:

=gauche(A1;10)*1

Tu passes au format date et c'est bon.

Rebonjour, la fonction marche très bien.cependant j aurai souhaité une macro qui permette de convertir ma selection au bon format.

merci d'avance

Re,

Quelque chose comme cela devrait faire l'affaire ?

Sub transformation()
For Each cell In Range("A1:A" & Range("A10000").End(xlUp).Row)
    cell.Value = CDate(Left(cell.Value, 10))
Next
End Sub

re, j'ai tester ta macro. Mais je n'arrive pas à la faire fonctionner. voici le fichier. Merci d'avance

Ca marche bien chez moi, même si c'est long. Comment est-ce que tu la lances ?

Bonjour,

Une autre proposition.

Cdlt.

Sub ConvertStringToDate()
Dim rng As Range, lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(2, 1).Resize(lastRow - 1)
        rng.TextToColumns Destination:=.Cells(2, 1), _
                          DataType:=xlFixedWidth, _
                          FieldInfo:=Array(Array(0, 4), Array(10, 9)), _
                          TrailingMinusNumbers:=True
    End With
End Sub

Jean-Eric a écrit :

Bonjour,

Une autre proposition.

Cdlt.

7test-macro.xlsm (93.52 Ko)

Sub ConvertStringToDate()
Dim rng As Range, lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(2, 1).Resize(lastRow - 1)
        rng.TextToColumns Destination:=.Cells(2, 1), _
                          DataType:=xlFixedWidth, _
                          FieldInfo:=Array(Array(0, 4), Array(10, 9)), _
                          TrailingMinusNumbers:=True
    End With
End Sub

Bon sang, mais ça existe vraiment ce genre de choses ? 4 indications que je ne connais pas en 4 lignes, ça fait beaucoup 😁

Pourrais-tu avoir l'amabilité d'expliquer un peu tout ceci à partir de texttocolumns ? Par avance un énorme merci !

Bonjour,

@JoyeuxNoêl,

Quelques explications tirées de l'aide VBA (la touche miracle F1). Cela permet aussi de se remémorer la méthode !...

Je pars du principe, que tu connais la fonctionnalité dans une feuille de calcul avec le ruban.

Data type - XlTextParsingType
xlDelimited  1    Valeur par défaut. Indique que le fichier est délimité par des caractères séparateurs.
xlFixedWidth 2    Indique que les données contenues dans le fichier sont organisées en colonnes dont la largeur est fixe.
        Dans notre cas la largeur de la colonne est de 10 caractères (yyyy-mm-dd)

FieldInfo - XLColumnDataType
xlDMYFormat        4    Format de date JMA.
xlDYMFormat        7    Format de date JAM.
xlEMDFormat        10    Format de date AMJ.
xlGeneralFormat            1    Général.
xlMDYFormat        3    Format de date MJA.
xlMYDFormat        6    Format de date MAJ.
xlSkipColumn             9    La colonne n'est pas analysée.
xlTextFormat             2    Texte.
xlYDMFormat        8    Format de date AJM.
xlYMDFormat        5    Format de date AMD

FieldInfo:=Array(Array(0, 4), Array(10, 9))
Tableau des infos. à restituer pour les colonnes individuelles. Dépend de la valeur de DataType.
    a)    Array(0,4) = 1ère. colonne, format date JMA. (caractères de 0 à 9)
    b)    Array(10,9) = 2e. colonne  à patir du 10e. caractère, colonne non restituée.

TrailingMinusNumbers:=True
Peut-être supprimé, car valeur par défaut (je crois !...)

A te relire, pour un complément d'infortmations.

Cdlt.

Rebonjour,

Cela fonctionne mais que sur la colonne A.

J'aurais aime que seul ma sélection soit uniquement convertie.Merci d'avance

Bonjour,

on m' transmis un fichier avec des cellules au format :2019-01-16 00:00:00.0

As-tu bien précisé ce que tu souhaitais ?

Cdlt.

Bon sang de bonsoir,
J'aurais dû me douter qu'il s'agissait de convertir (que pour le coup oui, je connais via le ruban, merci ). Ne l'utilisant jamais pour les dates, je n'ai pas fait le lien avec les mots clés en VBA.

Par contre j'ai bien eu l'aide, mais tu fais F1 sur quel mot pour avoir ça ?

FieldInfo - XLColumnDataType

xlDMYFormat 4 Format de date JMA.

xlDYMFormat 7 Format de date JAM.

xlEMDFormat 10 Format de date AMJ.

xlGeneralFormat 1 Général.

xlMDYFormat 3 Format de date MJA.

xlMYDFormat 6 Format de date MAJ.

xlSkipColumn 9 La colonne n'est pas analysée.

xlTextFormat 2 Texte.

xlYDMFormat 8 Format de date AJM.

xlYMDFormat 5 Format de date AMD

Je n'ai pas réussi à l'avoir de mon côté. Sur fieldinfo il me met mot clé introuvable et sur Datatype il tourne en rond sans jamais charger la moindre page.

En tout cas, merci beaucoup pour les précisions ! C'est décidé, quand je serai grand je bosserai en mémoire !

Re,

Tu effectues un double-clic sur TextColumns et tu fais F1.

Cela ouvre normalement l'aide VBA sur la méthode Range.TextColumns.

Méthode Range.TextColumns

Pour moi et depuis quelques temps, j'ai une erreur 404 (depuis quand ?)

Si 78chris passe par là, je souhaiterai qu'il vérifie la chose avec Excel 365.

J'ai bien tenté une réparation rapide, mais je dois attendre mon retour en Île de France, pour une réparation en ligne.

On est à l'âge de pierre pour les connexions mobiie & internet, dans l'île de Ré.

Cdlt.

Re,

c'est ce que j'avais fait et j'étais bien arrivé à la page dont tu as donné le lien. Mais il n'y a pas les infos concernant les chiffres attitrés à chaque format. C'est cette partie seulement que je ne suis pas arrivé à avoir.

Oui, mais l'île de Ré c'est quand même tellement moins la folie que l'Île de France pour tout le reste :D Profite bien !

Re,

Dans la page, dans paramètres, tu as des liens en bleu (XlTexteParsingType, XlTextQualifier et XlColumnDateType).

Ces liens donnent les noms, valeurs et descriptions des types de données !...

Cdlt.

Bonjour,

JoyeuxNoel s'est perdu dans mes explications ?

Bonjour, mince, je n'avais pas répondu !

Non effectivement, j'ai fini par trouver le lien, merci bien !

Je ne l'attendais pas dans cette partie-là et j'étais passé à côté