format date et tri

13GIBE59

XLDnaute Accro

• 23 Novembre 2008

• #2

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

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 23 Novembre 2008

• #3

Re : format date et tri

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 23 Novembre 2008

• #4

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

 

Vote positif 0 Vote négatif

C

cloclo57

Guest

• 23 Novembre 2008

• #5

Re : format date et tri

Rebonjour , votre solution ne fonctionne pas chez moi

je cherche a modifier le format en vba

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Novembre 2008

• #6

Re : format date et tri

Bonjour à tous,

A adapter :

Code:

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

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Novembre 2008

• #7

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,😀

 

Vote positif 0 Vote négatif

C

cloclo57

Guest

• 23 Novembre 2008

• #8

Re : format date et tri

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

 

Pièces jointes

• essai.xls

  14.7 KB · Affichages: 53
• essai.xls

  14.7 KB · Affichages: 55
• essai.xls

  14.7 KB · Affichages: 53

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Novembre 2008

• #9

Re : format date et tri

Bonjour à tous,

N'apporte rien au fil arf

Et moi, je sens le fromage...

A++ Hasco
a+ à Tous

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 23 Novembre 2008

• #10

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Novembre 2008

• #11

Re : format date et tri

Bonjour à tous,

Essaye :

Code:

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++

 

Dernière édition: 23 Novembre 2008

Vote positif 0 Vote négatif

C

cloclo57

Guest

• 23 Novembre 2008

• #12

Re : format date et tri

Merci JCGL et tous les autres
Ta solution et bonne

Merci encore A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Novembre 2008

• #13

Re : format date et tri

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 23 Novembre 2008

• #14

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Novembre 2008

• #15

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.

Code:

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+

 

Vote positif 0 Vote négatif