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

[Theze]

Bonjour,

Regarde avec la fonction "DateValue" :

Code :

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

1
2
 
rng_project.Offset(0, 0) = DateValue(Format(rng_feuil1.Offset(I, 0), "dd/mm/yyyy"))

Hervé.

[antgrandj]

Cela ne fonctionne pas. J'ai un message d'erreur: "incompatibilité de type".

Antoine

[Theze]

Comment sont tes dates ? Un petit fichier exemple alors.
chez moi ceci fonctionne très bien !

Hervé.

[antgrandj]

Voici un exemple.

Antoine

[Theze]

Re,

C'est normal que ça ne fonctionne pas, tu veux formater des valeurs qui ne sont absolument pas des dates "Nom client", "Code client", etc... Seules tes colonnes N, V et X sont des dates donc c'est seulement sur ces dernière qu'il faut appliquer le formatage et pas sur les autres :

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
35
36
37
 
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 = rng_feuil1.Offset(i, 0) 'C10 de Feuil1 to A8 de project
                rng_project.Offset(0, 1) = rng_feuil1.Offset(i, 1) 'D10 de Feuil1 to B8 de project
                rng_project.Offset(0, 2) = rng_feuil1.Offset(i, 4) 'G10 de Feuil1 to C8 de project
                rng_project.Offset(0, 3) = rng_feuil1.Offset(i, 5) 'H10 de Feuil1 to D8 de project
                rng_project.Offset(0, 4) = rng_feuil1.Offset(i, 10) 'M10 de Feuil1 to E8 de project
                rng_project.Offset(0, 5) = DateValue(Format(rng_feuil1.Offset(i, 11), "dd/mm/yyyy"))  'N10 de Feuil1 to F8 de project
                rng_project.Offset(0, 6) = DateValue(Format(rng_feuil1.Offset(i, 19), "dd/mm/yyyy")) 'V10 de Feuil1 to G8 de project
                rng_project.Offset(0, 11) = DateValue(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

Hervé.

[danixdb]

Bonjour Antgrandj, Theze, Le Forum

Je viens de tester et la fonction Datevalue fonctionne bien. J'ai aussi utiliser les fonctions Day,Month,Year pour reconstituer la date car malgré l'utilisation de la fonction Datevalue et l'application du format cela changeait le mois de positiond ans la date de la feuille Project

Code :

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

1
2
3
4
5
6
7
8
9
 
            rng_project.Offset(0, 0) = rng_feuil1.Offset(i, 0) 'C10 de Feuil1 to A8 de project
            rng_project.Offset(0, 1) = rng_feuil1.Offset(i, 1) 'D10 de Feuil1 to B8 de project
            rng_project.Offset(0, 2) = rng_feuil1.Offset(i, 4) 'G10 de Feuil1 to C8 de project
            rng_project.Offset(0, 3) = rng_feuil1.Offset(i, 5) 'H10 de Feuil1 to D8 de project
            rng_project.Offset(0, 4) = rng_feuil1.Offset(i, 10) 'M10 de Feuil1 to E8 de project
            rng_project.Offset(0, 5) = DateValue(Day(rng_feuil1.Offset(i, 11).Value) & "/" & Month(rng_feuil1.Offset(i, 11).Value) & "/" & Year(rng_feuil1.Offset(i, 11).Value)) 'N10 de Feuil1 to F8 de project
            rng_project.Offset(0, 6) = DateValue(Day(rng_feuil1.Offset(i, 19).Value) & "/" & Month(rng_feuil1.Offset(i, 19).Value) & "/" & Year(rng_feuil1.Offset(i, 19).Value)) 'V10 de Feuil1 to G8 de project
            rng_project.Offset(0, 11) = DateValue(Day(rng_feuil1.Offset(i, 21).Value) & "/" & Month(rng_feuil1.Offset(i, 21).Value) & "/" & Year(rng_feuil1.Offset(i, 21).Value)) 'X10 de Feuil1 to L8 de project

Bonne journée

[antgrandj]

Bonjour danixdb,

C'est super ! Ça fonctionne parfaitement. Ça règle tous mes problèmes. Mille mercis !

En plus de ça, en voyant ton code, je viens de comprendre ma boulette. J'avais oublié que toutes mes colonnes n'étaient pas des dates ;-)

Bonne journée à toi et à tout le forum,

Antoine