Discussion :

[antgrandj]

Bonjour à tous,

J'ai un problème avec mes dates. J'aimerais qu'elles soient importées au format dd/mm/yyyy mais certain d'entres elles sont inversées (mm/dd/yyyy).

Vous comprendrez plus facilement avec un exemple.

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
30
31
32
33
34
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim rng_feuil1 As Range
Dim rng_project As Range
 
 
Set rng_feuil1 = Worksheets("Feuil1").Range("C10")
 
With Worksheets("project")
    .Range("A8:G" & .Columns(7).Find("*", , , , , xlPrevious).Row).ClearContents
    .Range("I8:L" & .Columns(12).Find("*", , , , , xlPrevious).Row).ClearContents
 
    Set rng_project = .Range("A8")
 
    For i = 0 To Worksheets("Feuil1").Columns(3).Find("*", , , , , xlPrevious).Row - 10
        If rng_feuil1.Offset(i, 0) = "P" Then
 
            rng_project.Offset(0, 0) = Format(rng_feuil1.Offset(i, 0), "dd/mm/yyyy") 'C10 de Feuil1 to A8 de project
            rng_project.Offset(0, 1) = Format(rng_feuil1.Offset(i, 1), "dd/mm/yyyy") 'D10 de Feuil1 to B8 de project
            rng_project.Offset(0, 2) = Format(rng_feuil1.Offset(i, 4), "dd/mm/yyyy") 'G10 de Feuil1 to C8 de project
            rng_project.Offset(0, 3) = Format(rng_feuil1.Offset(i, 5), "dd/mm/yyyy") 'H10 de Feuil1 to D8 de project
            rng_project.Offset(0, 4) = Format(rng_feuil1.Offset(i, 10), "dd/mm/yyyy") 'M10 de Feuil1 to E8 de project
            rng_project.Offset(0, 5) = Format(rng_feuil1.Offset(i, 11), "dd/mm/yyyy") 'N10 de Feuil1 to F8 de project
            rng_project.Offset(0, 6) = Format(rng_feuil1.Offset(i, 19), "dd/mm/yyyy") 'V10 de Feuil1 to G8 de project
            rng_project.Offset(0, 11) = Format(rng_feuil1.Offset(i, 21), "dd/mm/yyyy") 'X10 de Feuil1 to L8 de project
 
            Set rng_project = rng_project.Offset(1, 0)
        End If
    Next i
 
End With
 
End Sub

Merci d'avance pour votre aide,

Antoine