Transformation date --> Problème de format

Version imprimable

29/02/2016, 09h56
pierrot14

1 pièce(s) jointe(s)

Transformation date --> Problème de format

Bonjour,

j'aurai besoin d'aide pour formater des dates pour obtenir des dates du type "dd/mm/yyyy" sachant que les données de base (colonnes J & K) peuvent se présenter sous différentes formes:

- "dd-mm-yy A" (Ex: 26-Jan-16 A) avec le mois en caractères alpha anglo saxons (Jan, Feb...). Les caractères " A" sont à supprimer avant la conversion de la date
- "dd-mm-yy*" (Ex: 30-Aug-16*) avec le mois en caractères alpha anglo saxons (Jan, Feb...). Le caractère "*" est à supprimer avant la conversion de la date
- "dd-mm-yy" (Ex: 22-Feb-16) avec le mois en caractères alpha anglo saxons (Jan, Feb...).
- "xxxxx" (Ex: 42458).

le code ecrit permet le formatage partiel des données mais certains résultats obtenus (en jaune) sont curieux et je n'arrive pas à remédier à ces problèmes.
Merci de votre aide.
29/02/2016, 14h01
Menhir

Si tu commences par faire un =Left( ,9), tous les cas devraient être identiques, non ?

Bonjour pierrot14,

Pour ma part, j'ai fait un petit truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Sub ModifDate()
Dim oRng As Range
Dim i As Long
 
With Worksheets("Extract PMV_Transf")
    Set oRng = .Range("J2")
 
    For i = 0 To Application.WorksheetFunction.Max(.Cells(.Rows.Count, "J").End(xlUp).Row, .Cells(.Rows.Count, "K").End(xlUp).Row) - oRng.Row
        If oRng.Offset(i, 0) <> "" Then
            oRng.Offset(i, 3) = oTransform(oRng.Offset(i, 0))
        End If
 
        If oRng.Offset(i, 1) <> "" Then
            oRng.Offset(i, 4) = oTransform(oRng.Offset(i, 1))
        End If
    Next i
 
End With
 
End Sub
 
Function oTransform(oDate As String)
Dim oMonth As Integer
Dim oTest As String
Dim EngMonth As Variant
 
EngMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
 
If InStr(oDate, "-") Then
    oTest = Mid(oDate, InStr(oDate, "-") + 1, 3)
    oMonth = Application.Match(oTest, EngMonth, False)
 
    If IsDate(CDate(Left(oDate, 2) & "/" & oMonth & "/" & Mid(oDate, 8, 2))) Then
        oTransform = Format(CDate(Left(oDate, 2) & "/" & oMonth & "/" & Mid(oDate, 8, 2)), "dd/mm/yyyy")
    Else
        oTransform = "ERREUR"
    End If
ElseIf IsNumeric(oDate) Then
    oTransform = CDate(oDate)
End If
 
End Function

Je crois que ça fonctionne comme tu veux ! :aie:

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

29/02/2016, 15h45
pierrot14

bonjour Kimy, merci totu d'abord de ton aide.

bon j'ai essayé ton code, ca améliore énormément les choses mais il y a toujours un loup...
par exemple, une date iniale "07-Mar-14 A" se transforme en 03/07/2014 (ligne 6). j'ai déjà rencontré ce problème entre le format francais et us.

Merci encore.

je pense avoir trouvé la solution à mon problème en modifiant faisant le résultat d'un cas de test dans la fonction [oTransform = DateSerial(Mid(oDate, 8, 2), oMonth, Left(oDate, 2)]
Merci encore de votre coup de pouce!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Option Explicit
 
Sub ModifDate()
Dim oRng As Range
Dim i As Long
 
With Worksheets("Extract PMV_Transf")
    Set oRng = .Range("J2")
 
    For i = 0 To Application.WorksheetFunction.Max(.Cells(.Rows.Count, "J").End(xlUp).Row, .Cells(.Rows.Count, "K").End(xlUp).Row) - oRng.Row
        If oRng.Offset(i, 0) <> "" Then
            oRng.Offset(i, 3) = oTransform(oRng.Offset(i, 0))
        End If
 
        If oRng.Offset(i, 1) <> "" Then
            oRng.Offset(i, 4) = oTransform(oRng.Offset(i, 1))
        End If
    Next i
 
End With
 
End Sub
 
Function oTransform(oDate As String)
Dim oMonth As Integer
Dim oTest As String
Dim EngMonth As Variant
 
EngMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
 
If InStr(oDate, "-") Then
    oTest = Mid(oDate, InStr(oDate, "-") + 1, 3)
    oMonth = Application.Match(oTest, EngMonth, False)
 
    If IsDate(CDate(Left(oDate, 2) & "/" & oMonth & "/" & Mid(oDate, 8, 2))) Then
        oTransform = DateSerial(Mid(oDate, 8, 2), oMonth, Left(oDate, 2))
    Else
        oTransform = "ERREUR"
    End If
ElseIf IsNumeric(oDate) Then
    oTransform = Format(CDate(oDate), "dd/mm/yyyy")
End If
 
End Function

29/02/2016, 17h47
Kimy_Ire

:ccool:

Plus qu'à lire ma signature afin de passer en :resolu: ton post ! ;)