Remplacement de date, replace en vba

[roulax]

Bonjour à tous,

Petite question sur la fonction replace en vba.
J'ai une selection de date au format 15/07/2009, que je voudrais transformer en 01/07/2009.
Pour ce faire, j'ai créé le code suivant :

    Range("A1:A12").Select
    Selection.Replace What:="15", Replacement:="01", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

Seulement, je ne sais pas trop ce que "LookAt", "SearchOrder","MatchCase" signifie. Pouvez-vous m'éclairer ces éléments ?

En plus, j'ai un problème avec ce code, il met mes dates au format 07/01/2009 au lieu de 01/07/2009.

Une idée ?

 

[Pierrot93]

Re : Remplacement de date, replace en vba

Bonjour,

essaye peut être la conversion de données, après avoir sélectionné la colonne en question, barre de menu Excel => Données => convertir => Etape 1 "largeur fixe" => Etape 3, tu coches "date" et choisis MJA (format source)...

Enfin etonnant qu'il transforme le 15 juillet en 1er juillet....

bonne fin d'après midi
@+

 

[roulax]

Re : Remplacement de date, replace en vba

Re Pierrot93,

Merci pour ta réponse,
Je vais tester mais mon objectif, c'est de l'automatiser en macro.

A voir.

 

[Pierrot93]

Re : Remplacement de date, replace en vba

Re,

en vba, pour des données colonne A :

    Columns("A:AH").TextToColumns Destination:=Range("A1"), _
        DataType:=xlFixedWidth, FieldInfo:=Array(0, 3)

@+

 

[roulax]

Re : Remplacement de date, replace en vba

Re Pierrot93,

Je viens de tester ta ligne, malheureusement, ça ne fonctionne pas.

A voir.

 

[Pierrot93]

Re : Remplacement de date, replace en vba

Bonjour,

modifie ainsi :

Columns("A:A").TextToColumns Destination:=Range("A1"), _
        DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)

bonne journée
@+