Discussion :

[guismoman60]

Bonjour,

Lors d'une extraction de notre ERP j'aimerais pouvoir mettre une cellule en format date. Problème c'est que mon code marche très bien, sauf que quand le jour est inférieur à 12, il inverse mon jour et mon mois.

C'est un problème que je n'arrive pas à résoudre.

Je vous envoie mon fichier EXCEL.

Vous trouverez un bouton "FORMATAGE" dans les complément (menu du haut).

J'attends vos réponses.

Cordialement

VIncent

[pgz]

Bonjour.

Ton pb c'est que tes valeurs sont de type texte et en forçant le formatage en date, le résultat est ... peu satisfaisant.
Je te propose de remplacer ta procédure par :

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
19
20
21
22
23
24
25
26
27
28
29
Sub Macro1()
 
Dim oSh As Excel.Worksheet
Dim s As String
Dim j As Integer
 
Set oSh = ThisWorkbook.Worksheets("Besoin")
 
oSh.Columns("A:A").Delete
oSh.Columns("D:D").Delete
 
j = 7
 
Do While Sheets("Besoin").Cells(1, j) <> ""
 
    s = oSh.Cells(1, j).Value
    s = Replace$(s, "MO", "")
    s = Trim$(s)
    s = Replace$(s, ".", "/")
    oSh.Cells(1, j).Value = DateValue(s)
    oSh.Cells(1, j).NumberFormat = "dd/mm/yyyy"
 
    j = j + 1
 
Loop
 
Set oSh = Nothing
 
End Sub

Cordialement,

PGZ

[Invité]

Bonjour,
regarde ça: http://www.developpez.net/forums/d14...e/#post7919409