Aide sur macro

Bonjour,

je cherche de l'aide pour améliorer ma macro suivante :

Sub TRI()

Dim i&, j&

t = Array(24, 31, 38, 45, 52, 59, 66, 73, 80, 87, 94, 101, 108, 115, 122)

For i = Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1

j = Application.Match(Cells(i, Columns.Count).End(xlToLeft).Column, t, 0)

If j = 1 Then Exit Sub

Cells(i, 1).Offset(1).Resize(j - 1).EntireRow.Insert

Cells(i, 1).Resize(j, 17).FillDown

Next

End Sub

j'ai mis un fichier en PJ avec les onglest suivants :

• fichier brut : qui ne doit pas être touché mais est l'origine des données que je souhaite traiter
• FT pour macro2 : le résultat de ma macro
• feuille de travail pour macro : fait le lien avec mon fichier brut
• résultat attendu : ce que j'aimerai obtenir

pouvez vous m'aider à compléter ma macro pour arriver au résultat attendu sachant qu'il ne faut pas que je touche le fichier brut mais je dois travailler à partir de ce fichier et qu'idéalement je souhaiterai avoir un bouton permettant de lancer l'opération de tri. je dois le faire une fois par semaine sur un fichier de 1000 lignes donc j'ai besoin d'automatiser tout cela

merci d'avance

cordialement,

Bonjour,

une proposition, la feuille "résultat" doit exister. Je te laisse créer un bouton et lui associer le lancement de la macro ci-dessous.

Sub aargh()
    Set wsi = Sheets("fichier brut")
    Set wso = Sheets("résultat")
    dli = wsi.Cells(Rows.Count, 1).End(xlUp).Row
    dlo = wso.Cells(Rows.Count, 1).End(xlUp).Row
    wso.Range("A3:X" & dlo).ClearContents
    k = 2
    For i = 3 To dli
        For j = 18 To 116 Step 7
            If wsi.Cells(i, j) <> "" Then
                k = k + 1
                wso.Cells(k, 1).Resize(, 17).Value = wsi.Cells(i, 1).Resize(, 17).Value
                wso.Cells(k, 18).Resize(, 7).Value = wsi.Cells(i, j).Resize(, 7).Value
            End If
        Next j
    Next i
    wso.Range("A3:X" & k).Sort key1:=wso.Range("A3"), order1:=xlAscending, key2:=wso.Range("B3"), order2:=xlAscending, Header:=xlYes

End Sub

super !!

merci beaucoup

je ne sais pas si j'ai bien compris, mais je te propose ce résultat

le bouton est sur la feuille départ

super et avec le bouton : nickel

merci

cdt