Discussion :

[Tiviia]

Bonjour à tous

J'ai essayé de réutiliser le code de loacast.
Malheureusement sur excel 2010 et donc vba 2010, l'ensemble du code est incorrect(mis en rouge:problème de syntaxe).

Mon objectif étant de convertir les dates française(dd/mm/yyyy) d'une colonne (colonne AF) en format date anglais(mm/dd/yyyy),pour ensuite les trier (inférieur au premier du mois courant:exemple 01/12/12).

J'ai essayé d'enregistrer une macro en faisant la conversion manuellement, mais après quand je teste la macro en question elle convertit en interchangeant le mois et le jour. De plus elle arrête sa conversion au 13eme jour, car il n'y a pas de 13 mois mais 12, d'où une conversion au préalable en format date anglais.

NB: les dates sont dans un premier temps en format texte
d'ou conversion en date et ensuite en date format anglais


Voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1
' conversion JMA
'conversion texte en date
Selection.TextToColumns Destination:=Range("AF1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
4), TrailingMinusNumbers:=True
End Sub

Je vous remercie d'avance de l'aide que vous m'apporterez.

Cordialement
Tiviia

[Jean-Philippe André]

Salut,

tu parles du code de loacost, mais tu n'indiques pas son code d'origine

pourquoi chercher à transformer la date si tu la tries ensuite ? Excel sait très bien trier les dates normalement

Dans quelle langue est ta version Excel ?

[Tiviia]

MsgBox Format(#1/1/2005#, "Date, abrégé")

Avant de chercher comment inverser les jours et les mois, j'ai tenté d'utiliser cette fonction pour une utilisation normale, et ça ne marche pas. Donc je fais encore appel à ton aide et merci.

EDIT :

Finalement j'ai trouvé comment utiliser Format dans mon cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim MyTime
    Dim MyStr
    MyTime = #10/12/2004#
 
    MyStr = Format(MyTime, "mm/dd/yyyy")
    MsgBox MyStr
    MyStr = Format(MyTime, "dd/mm/yyyy")
    MsgBox MyStr

Je veux convertir les date en format anglais, parce que j'ai l'impression que quand je fais un filtre "automatiquement" via macro sur la colonne AF, avec comme critère "<01/12/12":
Selection.AutoFilter Field:=32, Criteria1:="<01/12/12", Operator:= _
xlFilterValues

J'obtiens rien comme ligne correspondant au critère. Je me suis demandé si c'étais pas du au format de la cellule.
D'ou la conversion en format anglais..pour modifier le code et mettre comme critère "<12/01/2012".

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:= "<" & Format(LaDate, "mm/dd/yyyy")

Cordialement.

[Tiviia]

Merci pour ce code mais il ne fonctionne pas ..
Ma macro marche que si je convertis manuellement ma colonne AF en JMA(jour mois année). Visuellement, il n'y a pas de changement!

Ainsi on a:
Selection.AutoFilter Field:=32, Criteria1:="<12/01/12"
'12/01/12 premier du mois courant en format anglais

Donc Il y a permutation entre le jour et le mois, d'ou une conversion inachevée.

NB:A l'origine le contenu de cellule est en mode Texte

HELP ME PLEASE

[gFZT82]

As-tu fait l'essai en faisant la conversion de ta colonne texte en date JMA puis en appliquant le code que je t'ai donné ?
De mon coté, ça marche.

Cordialement.