Réaménament de l'info d'une colonne

Bonjour à tous,

de façon quotidienne, je sauvegarde les données d'un flux RSS dans un fichier excel. Bien que les informations fournies soient dans un format rigide, elles demeurent pas nécessairement aisées à consulter alors que le nombre de lignes peut atteindre quelques milliers. Grâce à une macro, je désire mieux ordonner l'information.

Ainsi, il est question de conditions routières dont l'info propre à un tronçon se retrouve toujours sur 3 lignes et dont je voudrais retrouver sur une seule ligne. Ainsi les 3 lignes suivantes:

R-117 : Condition routière

‎12 ‎novembre ‎2013, ‏‎00:37:06Accéder à l’article complet

De Malartic à Lac-Joannès | Enneigée | Bonne

deviendraient dans 5 colonnes différentes:

2013-11-12 00:37 R117 De Malartic à Lac-Joannès Enneigée Bonne.

Voilà, j'ai fourni un fichier avec un petit échantillon de données.

Je vous remercie d'avance

Émil

Bonjour

Tu as des caractères parasites dans la colonne A (ligne contenant la date) difficiles à enlever

A tester

Bonjour,

Ctrl + w pour lancer le traitement.

Option Explicit
Public Sub test()
Dim f1 As Worksheet, f2 As Worksheet
Dim Dl As Long, i As Long, lig As Long
Dim tmp
    Application.ScreenUpdating = False
    Set f1 = Worksheets("route")
    Set f2 = Worksheets("route 1")
    With f2
        .Cells.Clear
        .Range("A1:E1") = Array("Route", "Date", "Tronçon", _
            "Chaussée", "Visibilité")
    End With
    With f1
        lig = 2
        Dl = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To Dl Step 3
            tmp = Split(.Cells(i, 1), ":")
            f2.Cells(lig, 1) = tmp(0)
            f2.Cells(lig, 2) = Replace(.Cells(i + 1, 1), _
                "Accéder à l’article complet", "")
            tmp = Split(.Cells(i + 2, 1), Chr(124))
            f2.Cells(lig, 3) = RTrim(tmp(0))
            f2.Cells(lig, 4) = LTrim(tmp(1))
            f2.Cells(lig, 5) = LTrim(tmp(2))
            lig = lig + 1
        Next i
    End With
    Set f1 = Nothing: Set f2 = Nothing
End Sub

Bonjour à vous deux,

grâce à vos réponses, j'ai été en mesure de solutionner mes problèmes.

Banzai64: tu as exactement saisi mon problème de date/heure. J'ai testé ta macro sur plusieurs gros fichiers et elle fonctionne bien.

Jean-Eric: je retiens ton idée d'envoyer les résultats de ta macro vers un autre feuillet avec le titre à la première ligne.

Je vous remercie tous les deux

Emil