Mise en forme d'un fichier journalier

Bonjour à tous,

J'ai essayé de trouver des astuces dans le forum avant de vous poser la question, mais je ne suis pas assez doué pour faire ce que je vais vous demandez.

Donc j'explique:

Chaque jour au boulot je reçois un fichier qui récapitule les arrivages du jour d'avant, quand ce fichier arrive il est encore "brute", donc je demande votre aide pour créer une macro qui serai capable de me faire gagner du temps chaque jour et aussi pour mon collègue qui n'ai pas trop habitué à Excel (encore moins que moi).

Je vous explique plus en détail dans le fichier.

En espérant avoir été assez claire, merci d'avance pour votre aide!

Sylvain

Bonsoir

A tester

Bonjour à tous, salut Banzai,

autre version, voir feuille "Résultat"

j'ai ajouté 3 lignes test

Sub Rapport()
Dim Lg&, x%, i%
Dim f As Worksheet
    Application.ScreenUpdating = False
    Set f = Sheets("Ce que je reçois")
    Lg = f.Range("e" & Rows.Count).End(xlUp).Row

    With Sheets("Résultat")
        x = Application.Match("Camions", .Range("d:d"), 0) - 5 'dernière ligne du rapport
        .Rows("2:" & x + 1).ClearContents
        If x > Lg Then .Rows(3).Resize(x - Lg).Delete
        If x < Lg Then .Rows(3).Resize(Lg - x).Insert

        For i = 2 To Lg
            .Cells(i, "a") = f.Cells(i, "e")
            .Cells(i, "b") = f.Cells(i, "h")
            .Cells(i, "c") = f.Cells(i, "j")
            .Cells(i, "d") = f.Cells(i, "m")
            .Cells(i, "e") = f.Cells(i, "p")
            .Cells(i, "f") = f.Cells(i, "r")
            .Cells(i, "g") = f.Cells(i, "s")
        Next i
        .Range("a1") = "Rapport d'arrivage du " & Date
    End With
End Sub

édit: j'avais oublié des "." dans le With

code et fichier modifiés

Bonne journée

Claude

Bonjour,

Merci pour votre aide!

Parcontre je ne sais pas comment reprendre cette macro sur le nouveau fichier journalier.

Je m'explique,

Chaque jour je reçois par mail ce fichier, est-il possible d'affécter cette macro sur un bouton par exemple CTRL+Q comme ça, chaque matin j'ai qu'a appuyer sur cette touche pour activer cette marco?

Merci d'aidé un touriste tel que moi, dans le monde excel!

Sylvain

Bonjour,

J'ai trouvais une autre solution bien plus simple, un tableau dynamique croisé!

Merci quand même d'avoir pris le temps!

Sylvain