Macro copier/coller ligne dans nouvelle feuille

[good57]

Bonjour,

Dans mon fichier joint, je voudrais créer une macro qui me permettrait de copier/coller vers la feuille 2 les lignes "TOTAL" de chacun de mes tableaux qui se trouvent sur la feuille 1.

Attention : sur la feuille 1, le nombre de lignes par tableau peut varier ainsi que le nombre de tableaux.

 

[DoubleZero]

Re : Macro copier/coller ligne dans nouvelle feuille

Bonjour, good57, le Forum,

Peut-être ainsi ?

Option Explicit
Sub Totox_transférer()
    Dim i As Long
    Application.ScreenUpdating = False
    Sheets("Feuil2").Cells.Clear
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 3 Step -1
        If Range("a" & i).Value = "TOTAL" Then Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 5).Value = Range("a" & i).Resize(, 5).Value
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[good57]

Re : Macro copier/coller ligne dans nouvelle feuille

Merci DoubleZero !
Pil poil ce qu'il me fallait !