Discussion :

[alexandre42]

Bonjour,

J'ai réalisé une macro afin de traiter les données d'une feuille excel.

Je rencontre un soucis lors de la restitution des dates de la page initiale. Les mois et les jours sont inversés pour certaines dates... Je n'arrive pas à les restituer de façon correcte.

Si quelqu'un a une idée, je suis preneur pck je sèche un peu...

Je joins un jeu de donnée. Le code est le suivant :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Private Sub traitement()
    Dim Tableau() As String
 
    Dim Lig As Long
    Dim i As Integer
    Dim j As Integer
    Dim numero
    Dim nom
 
 
    Lig = 2 'première ligne à vérifier
    Do While Not IsEmpty(Range("A" & Lig))
        Lig = Lig + 1
 
    Loop
    ReDim Tableau(Lig, 6)
 
 
    For i = 1 To Lig
        If Range("A" & i) = "No. Poste :" Then
            numero = Cells(i, "B")
            nom = Cells(i - 1, "B")
 
        End If
        If IsDate(Range("A" & i)) Then
           For j = 1 To 4
                Tableau(i, j) = Cells(i, j)
            Next j
 
        End If
        Tableau(i, 5) = numero
        Tableau(i, 6) = nom
    Next i
 
    Sheets.Add
    ActiveSheet.Name = "feuilleTransformee"
    Sheets("feuilleTransformee").Cells(1, 1) = "date"
    Sheets("feuilleTransformee").Cells(1, 2) = "recepteur"
    Sheets("feuilleTransformee").Cells(1, 4) = "temps"
    Sheets("feuilleTransformee").Cells(1, 5) = "entrant"
    Sheets("feuilleTransformee").Cells(1, 6) = "nom entrant"
    For i = 1 To Lig
 
            For j = 2 To 6
               Sheets("feuilleTransformee").Cells(i + 1, j) = Tableau(i, j)
               Sheets("feuilleTransformee").Cells(i + 1, "A") = Format(Tableau(i, 1), "dd/mm/yyyy hh:mm")
            Next j
    Next i
    Range("a1:a" & Lig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
MsgBox ("finish")
 
End Sub