Discussion :

[Igloobel]

Bonjour à toutes et tous et bonne année et quelle soit fructueuse en solutions


Voilà mon soucis

lorsque par macro j'ai transferer des dates d'une feuille à l'autre (même classeur) certaines date se mettent au format anglais.
Exemple 12/03/2013 devient 03/12/2013 orc'est une date d'echéance angoisse !!!!
Histoire que se soit plus drole c'est pas toutes les dates avant le 12 qui sont concernées ...)

J'ai palier à mon pbl en mettant des espaces avant et après les slashs car je fais pas de calcul avec les dates mais c'est pas propre si quelqu'un à une autre idéee

Maintenant je suis en 2010
j'ai un fichier qui m'arrive avec des points comme séparateur de date
exemple 12.03.2013

Code :

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

1
2
3
4
5
6
Sub ppoint()
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

et là toutes les dates se mettent au format anglais et en format texte.
enfin toutes celles qui sont avant le 13.

j'espère avoir été clair

si quequ'un à une idée

merci d'avance

[Kimy_Ire]

Je te propose de conjuger la méthode DateSerial (http://www.techonthenet.com/excel/fo...dateserial.php) et la méthode Format (http://www.techonthenet.com/excel/fo...ormat_date.php).

Code :

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

1
2
3
4
5
For i = 0 To Columns(1).Find("*", , , , xlByColumns, xlPrevious).row
    str = Range("A1").Offset(i, 0).Value
    dte = DateSerial(Right(str, 4), Mid(str, 4, 2), Left(str, 2))
    Range("A1").Offset(i, 0) = Format(dte, "dd/mm/yyyy")
Next i

Tiens moi au courant !

[Didier Gonard]

... certaines date se mettent au format anglais.
Exemple 12/03/2013 devient 03/12/2013 orc'est une date d'echéance angoisse !!!!
Histoire que se soit plus drole c'est pas toutes les dates avant le 12 qui sont concernées ...)

ça répond à une certaine logique

voir : Comprendre et gérer les dates sous Excel et en VBA


cordialement,

Didier

[Kimy_Ire]

Non en fait ça ne marche pas...

Par contre le code suivant fonctionne :

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
16
Sub test()
Dim Str As String
Dim myday As String
Dim mymonth As String
Dim myyear As String
 
With Worksheets("...")
For i = 0 To Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
    Str = Range("A1").Offset(i, 0).Value
    myday = Left(Str, 2)
    mymonth = Mid(Str, 4, 2)
    myyear = Right(Str, 4)
 
    Range("A1").Offset(i, 0) = DateValue(myday & "/" & mymonth & "/" & myyear)
Next i
End With

En m'excusant des bétises que je peux écrire...
Tiens nous au courant !

[Igloobel]

Merci a tous deux

je teste

pour Ormonth

Super article qui m'a fait comprendre bien des choses

Dès que j'ai finalisé mo code je le mets

merci

[Igloobel]

n'ayant pas compris ta ligne :

Code :

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

1
2
3
4
 
...
For i = 0 To Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
...

J'ai comme ça:

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
16
17
18
Sub Maacro()
    Dim Extr_J, Extr_M, Extr_A As String
    Dim Lign, Nbligne As Long
'    Columns("B:B").Select
'    Selection.NumberFormat = "0"
    Range("A1").Select
    Cells(1, 1).Select
    Set Plage = Range("A1", [A1].End(xlDown))
    Nbligne = Plage.Count
 
    For Lign = 2 To Nbligne
        Extr_J = Left(Cells(Lign, 1).Value, 2)
        Extr_M = Mid(Cells(Lign, 1).Value, 4, 2)
        Extr_A = Right(Cells(Lign, 1).Value, 4)
        Cells(Lign, 1).Value = DateValue(Extr_J & "/" & Extr_M & "/" & Extr_A)
    Next Lign
 
End Sub

et bien sur ça marche

mais une question

Plage je le déclare comme quoi type Range ou autre chose?

[Kimy_Ire]

Code :

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

For i = 0 To Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1

Boucle de i = 0 à i = n° de la dernière ligne non vide de la colonne 1 -1.

Et "Plage" doit bien sûr être déclaré en tant que "Range".

Bonne continuation à toi !