Discussion :

[Eva_75]

Bonjour,

Je suis en train de faire une macro, une des fonction est de changer le format date de SAP (sous la forme jj.mm.aaaa) vers le format date classique reconnu par excel (sous la forme jj/mm/aaaa)

J'ai donc composé ce code :

Code :

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

1
2
3
4
5
6
7
 
Sub remplacer_point()
    Sheets("extraction_yr12").Activate
    Columns("F:F").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
End Sub

Le problème est que cela me donne un format de date comme cela : mm/jj/aaaa...
Quelqun saurait comment y remédier ?

[zazaraignée]

Regarde dans l'aide du côté de la fonction Format ou encore du côté de la propriété NumberFormat de l'objet Range.

[jfontaine]

Peut être que la conversion marchera mieux que le replace

Code :

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

1
2
3
4
5
6
 
    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

[Eva_75]

Merci beaucoup; ça marche

[Eva_75]

Bonjour,

Rectification, cela ne fonctionne pas chez moi

J'ai tenté une macro qui a déja fonctionné (on m'a aidé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim Cel As Range
 
For Each Cel In Columns("D:D")
If Cel Like "##.##.####" Then
        Annee = Right(Cel, 4)
        Mois = Mid(Cel, 4, 2)
        Jour = Left(Cel, 2)
        Cel = DateSerial(Annee, Mois, Jour)
    End If
Next Cel
 
End Sub

Mais cela bloque à :
If Cell Like "##.##.####" Then


Comment pourrais-je la réparer ?

[jfontaine]

Si toutes tes cellules sont formaté en JJ.MM.AAAA alors supprime le test du format qui te pose problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim Cel As Range
 
For Each Cel In Columns("D:D")
        Annee = Right(Cel, 4)
        Mois = Mid(Cel, 4, 2)
        Jour = Left(Cel, 2)
        Cel = DateSerial(Annee, Mois, Jour)
Next Cel
 
End Sub

[Eva_75]

Bonjour,

Merci pour ton aide, j'ai fait un copier coller de ta macro mais elle plante à la ligne :
Annee = Right(Cel, 4)

Comment je peux l'adapter ?

D'avance merci

[jfontaine]

Je suis plutot adepte de ce genre de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim i As Long
 
i = 1
Do While Range("D" & i).Value <> ""
        Annee = Right(Range("D" & i).Value, 4)
        Mois = Mid(Range("D" & i).Value, 4, 2)
        Jour = Left(Range("D" & i).Value, 2)
        Range("D" & i).Value = DateSerial(Annee, Mois, Jour)
        i = i + 1
Loop