format date et tri

[cloclo57]

Bonjour le forum
J'ai un petit soucis de tri de date.
En telechargeant du net mes releves bancaires , je vient de
m'apercevoir que les date sont afficher sous le format suivant

"15/11/2008" il y a toujours des guillemets avant et apres la date , ce qui m'enpeche de faire un tri par date

Aves vous des idées a ce sujet

Merci d'avance de vos reponses A+

 

[13GIBE59]

Re : format date et tri

Bonjour, Cloclo

As-tu essayé "Edition -> remplacer" ?

Dans la boîte de dialogue, tu rentres : " et du remplaces par (rien).

JB

 

[TheLio]

Re : format date et tri

Hello,
Pour enlever des guillemets,
=SUBSTITUE(A1;"""";"")
A++
Lio

 

[CB60]

Re : format date et tri

Bonjour
Je pense qu'avec cela ça doit aller?
=SUBSTITUE(a1;""""*1

En A1 la date et en B1 mettre cette formule B1 avec un format date

 

[cloclo57]

Re : format date et tri

Rebonjour , votre solution ne fonctionne pas chez moi

je cherche a modifier le format en vba

 

[JCGL]

Re : format date et tri

Bonjour à tous,

A adapter :

Columns("A:A").Replace What:="""", Replacement:="", LookAt:=xlPart

A+

 

[Guest]

Re : format date et tri

Cloclo57, CB, 13GIBE,Lio,

Solution rapide
Tu sélectionnes ta colonne de dates puis menu donnée/convertir, à l'étape 3 de l'assistant tu choisis Date Dans format des données en colonne.

A+

[Edition] Hello JC,

 

[cloclo57]

Re : format date et tri

J'ai toujours mes soucis de date et de tri je joint mon fichier exemple

 

[JCGL]

Re : format date et tri

Bonjour à tous,

N'apporte rien au fil arf

Et moi, je sens le fromage...

A++ Hasco
a+ à Tous

 

[TheLio]

Re : format date et tri

Hello,
N'apporte rien au fil...
Ya un Edit JC
et du fromage à cet heure bof, plutôt café et petit gâteau
A++
Lio

 

[JCGL]

Re : format date et tri

Bonjour à tous,

Essaye :

Columns("A:A").Replace What:="=", Replacement:="", LookAt:=xlPart
Columns("A:A").Replace What:="""", Replacement:="", LookAt:=xlPart

A+

Edition : Ce n'est qu'une expression mon cher Lio... Et tes Cuisses et autres Volailles... A++

 

[cloclo57]

Re : format date et tri

Merci JCGL et tous les autres
Ta solution et bonne

Merci encore A+

 

[Guest]

Re : format date et tri

Re,

Une autre proposition qui fait le tri en même temps:

Sub triDates()
    Dim plage As Range
    Dim c As Range
    With Feuil1
        Set plage = .Range(.Range("A4"), .Range("A" & .Rows.Count).End(xlUp))
    End With
    plage.Copy
    plage.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Set plage = plage.Resize(, 5)
    plage.Sort Key1:=plage.Cells(1, 1), order1:=xlAscending
End Sub

A+

 

[CB60]

Re : format date et tri

Re
Hasco petit probléme sur ta macro, la colonne A reste en texte , donc le tris ne se fais pas correctement

 

[Guest]

Re : format date et tri

Hello CB,

T'as raison,

Alors avec un mélange de solution de JC,

J'ai rajouté la boucle for parce que même avec le .Replace, certaines dates conservaient leur format texte.

Sub triDates()
    Dim plage As Range
    Dim c As Range
    With Feuil1
        Set plage = .Range(.Range("A4"), .Range("A" & .Rows.Count).End(xlUp))
    End With
    plage.Replace What:="=", Replacement:="", LookAt:=xlPart
    plage.Replace What:="""", Replacement:="", LookAt:=xlPart
    For Each c In plage
       If IsDate(c.Text) Then c = DateValue(c.Text)
    Next c
    Set plage = plage.Resize(, 5)
    Debug.Print plage.Address
    plage.Sort Key1:=plage.Range("A1"), Order1:=xlAscending
End Sub

A+