format date

[ragus77]

Bonjour,

J'ai un fichier avec des dates sous différents format :
13/12/2011
Vendredi 16/12/2011
Ect...
Lorsque je les colle dans ma colonne, les dates restent comme ceci, alors que je les veut comme ça : 13/12/2011

J'ai essayé : concatener(gauche(B5;2);"/";stxt(B5;4;2);"/":droite(B5;2)) : change rien
J'ai essayé : Donnée/Convertir : Change rien
J'ai essayé : par collage spécial/valeurs : Change rien

Ma colonne B (là ou je colle) est en format jj/mm/aaaa. Le seul moyen est de retaper par dessus 16/12 et là ça se transforme en 16/12/2011 mais je veut le faire en formules ou macro.
SVP ?

 

[hoerwind]

Re : format date

Bonjour et bienvenue sur le forum,

Tu oublies de préciser le format des cellules sources, d'après ce que je crois comprendre cela doit être du texte.
Si tu avais mis un petit extrait de ton fichier en pièce jointe, tel que recommandé par la charte de ce forum, je n'aurais pas eu à te poser cette question.

Si c'est du texte, essaie la formule suivante : =DATEVAL(DROITE(A1;10))

 

[ragus77]

Re : format date

Bonjour,

Ah désolé, voici le fichier, le format est le même (après collage), les données en colonne B.
Merci de votre réponse mais ce n'est pas du format texte.

 

[JCGL]

Re : format date

Bonjour à tous,
Bienvenue à Ragus sur XLD,

Pas de fichier... Pas de proposition...

Je pense aussi à un format Texte donc voir la formule d'HoerWind

A+ à tous

 

[JCGL]

Re : format date

Bonjour à tous,

Peux-tu essayer:

=SI(NBCAR(B5)>9;DATEVAL(DROITE(B5,8));B5*1)

ou

=SI(NBCAR(B5)>8;DROITE(B5,8)*1;B5*1)

A+ à tous

 

[homepyrof53]

Re : format date

bonjour,

voici une macro (fonction) qui permet de le faire

Function pf(txt)
Application.Volatile
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[0-9/]+"
  pf = CDate(obj.Execute(txt)(0))
End Function

 

[hoerwind]

Re : format date

Re, salut JCGL, salut les autres que je n'avais vu avant de répondre,

A la lecture du fichier :
- le format est du texte, ce n'est pas en lui appliquant un format date que les données se transforment automatiquement en dates !
- les exemples sous le message initial ne représentent pas tous les cas de figure, puisqu'il y a des années avec deux caractères.
D'où l'importance d'un fichier joint demandé sous la charte, c'est pour que ceux qui veulent bien t'aider ne perdent pas leur temps !

Essaie cette formule en C5, à copier vers le bas en format date et un alignement à droite :
=SI(NBCAR(B5)<10;B5;DATEVAL(DROITE(B5;8)))

 

[Efgé]

Re : format date

Bonjour ragus77, Bonjour hoerwind 🙂, Bonjour JC 🙂 🙂,
EDIT : Mauvaise idée
EDIT2 :
Cette foi ci c'est trop tard, mais cela donne le résultat attendu 😀

Sub Test()
Dim C As Range, Plg As Range, Tmp, TmpDt
With Sheets("Result")
    Set Plg = .Range(.Cells(5, 2), .Cells(Rows.Count, 2).End(xlUp))
End With
For Each C In Plg
    If C.Value Like "##/##/##" Or C.Value Like "##/##/####" Then
        Tmp = C.Value
    Else
        Tmp = Split(C.Value, " ")(1)
    End If
    TmpDt = Split(Tmp, "/")
    If Len(TmpDt(2)) = 2 Then TmpDt(2) = 20 & TmpDt(2)
    C.Value = DateSerial(TmpDt(2), TmpDt(1), TmpDt(0))
Next C
End Sub

Cordialement

 

[ragus77]

Re : format date

Bonjour a tous,

Merci pour votre temps et vos réponses.
J'ai essayé la formule de hoerwind, cela fonctionne nickel !
Merci