Changer format Date

Bonjour,

Je rencontre un problème pour changer le format de la colonne G (cf. fichier excel en pj).

En effet, la date s'affiche sous le format "16 DEC 15" pour 16/12/2015.

Existe-t-il une formule pour appliquer le format Date classique ?

Merci par avance de votre aide.

Romain

sabellico, le forum,

Sélectionne la plage désirée, bouton de droite de la souris, Format de cellule, sélectionne Date à gauche et le format désiré dans Type, bouton OK

Saisis de nouveau tes dates.

LaCéline

Bonsoir,

Ton fichier mis à jour comme les conseils de laceline

amicalement

Pierrot

Bonjour,

Merci pour vos conseils.

Par contre je ne peux pas me permettre de resaisir les dates à chaque fois.

Le fichier en pièce jointe est un exemple. Sur le fichier source, j'ai plus de 2.500 lignes à traiter.

Comment faire pour automatiser la chose ?

sabellico, Cappe Pierre, le forum,

Ton exemple n'a que 4 lignes. À tester sur une COPIE du fichier de travail.

LaCéline

Bonjour,

Merci pour vos réponses.

Donc voici en pièce jointe le fichier initial avec les 4930 lignes.

Les colonnes A, B et C mentionnent des Dates mais certaines cellules sont sous la forme "18 DEC 15" pour 18/12/2015 avec un format texte.

Comment faire, de manière automatique, pour transposer toutes ces cellules sous un format Date adéquate ?

Merci par avance de votre aide.

Romain

sabellico, le forum,

Il y a beaucoup de présentations différentes des dates.

Je cherchais trop compliqué. La simplicité a eu raison de ces différents formats.

La colonne B est une copie de la colonne A afin de comparer le résultat avec la source.

Voir si ça convient.

LaCéline

Bonjour LaCéline,

Ma version d'Excel ne peut ouvrir ton fichier qu'en lecture seule.

Ma version d'Excel : Microsoft Excel pour Mac - version 15.21.1

Si tu as une autre alternative à me soumettre, je suis preneur.

Romain

Bonjour,

Une proposition :

Sub Test()
    Dim Td, d, mm, m, n&, i&, j%
    m = Split("JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC")
    mm = Split("janv févr mars avr mai juin juil août sept oct nov déc")
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        Td = .Range("A2:A" & n).Value
    End With
    For i = 1 To UBound(Td)
        If IsDate(Td(i, 1)) Then
            Td(i, 1) = CDate(Td(i, 1))
        Else
            If Td(i, 1) <> "" Then
                d = Split(Trim(Td(i, 1)))
                For j = 0 To 11
                    If d(1) = m(j) Then d(1) = mm(j): Exit For
                Next j
                Td(i, 1) = CDate(Trim(Join(d)))
            End If
        End If
    Next i
    With ActiveSheet.Range("E2:E" & n)
        .Value = Td
        .NumberFormat = "dd-mmm-yy"
    End With
End Sub

Cordialement.

Bonjour MFerrand,

ça a l'air de fonctionner.

La seule solution est passer par une macro si je comprends bien ?

Bonsoir,

Je pense que tu n'as pas trop le choix pour un truc comme ça.

En formules, ce sera beaucoup plus compliqué, et en matière de date, je conseillerais plutôt toujours de passer par VBA, car il y a des différences entre Excel et VBA en la matière !

Dans ton cas, les dates qui étaient déjà reconnues comme date par Excel et spontanément converties, pas de problème, VBA les reconnait aussi. Mais d'autres qui ne l'étaient pas par Excel, l'étaient par VBA (notamment celles à un chiffre pour le quantième de jour précédé d'une espace, pour plusieurs mois).

D'où tu noteras dans mon code que si la réponse au test IsDate est vrai, on convertit en date, conversion qui entraînera la reconnaissance par Excel. On ne fait une substitution de mois que dans les cas où ni Excel ni VBA n'ont reconnu. On convertit en date aussi ensuite... (la conversion à pour but d'obliger VBA à recourir aux paramètres régionaux FR, on l'utilise habituellement pour empêcher les inversions mois/jours lorsque la date est en chiffres, pas ce risque avec un mois littéral, mais sans conversion VBA aurait renvoyé l'abréviation anglaise... qu'Excel FR aurait continué à rejeter).

Cordialement.