Tri et copie avec sauts de lignes

Bonjour,

Je souhaiterais une solution à mon souci dans le fichier joint

Merci

Bonjour,

Sub Filtre()
Dim Lg&, i&
    Application.ScreenUpdating = False

    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Range("k10:r" & Lg).Clear   'efface
    '--- filtre ---
    Range("b2") = "=i10<>"""""  'critère
    Range("b9:i" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("b1:b2"), CopyToRange:=Range("k9:r9"), Unique:=False
    Range("b2").ClearContents
    '--- insère espaces ---
    Lg = Range("k" & Rows.Count).End(xlUp).Row
    For i = Lg To 11 Step -1
        Range(Cells(i, "k"), Cells(i, "r").Resize(4, 8)).Insert Shift:=xlDown
    Next i
End Sub

édit: Attention, les en-têtes doivent être identiques

Amicalement

Claude

Bonjour Claude ce sujet m'intéresse mais je ne voit pas comment intégrer votre formule ou même votre boutond'action "GO",

pouvez-vous détaillez?

merci

Bonjour Claude,

Merci pour ta réponse qui me convient parfaitement

Je souhaiterais ajouter un tableau entre les deux

Regardes le fichier joint

Merci

Bonsoir,

En cherchant un peu, tu aurais pu le faire toi-même, en partant du 1er fichier !

Sub Filtre()
Dim Lg&, Lg2&, i&
    Application.ScreenUpdating = False
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("m10:ac" & Lg).Clear   'efface

    '--- insère espaces tableau 2 ---
    Range("b9:i" & Lg).Copy Destination:=Range("m9")
    For i = Lg To 11 Step -1
        Range("m" & i).Resize(4, 8).Insert Shift:=xlDown
    Next i
    '--- filtre ---
    Range("b2") = "=i10<>"""""  'critère
    Range("b9:i" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("b1:b2"), CopyToRange:=Range("v9:ac9"), Unique:=False
    Range("b2").ClearContents
    '--- insère espaces tableau 3 ---
    Lg2 = Range("v" & Rows.Count).End(xlUp).Row
    For i = Lg2 To 11 Step -1
        Range("v" & i).Resize(4, 8).Insert Shift:=xlDown
    Next i
End Sub

Claude

Bonsoir Claude,

Mille merci pour ton aide. C'est parfait

J'aimerais connaitre ta réponse à la question de Sandrine27 au sujet du bouton "GO"

Merci

re,

Le bouton

1) Tu dessine une forme (ici un rectangle)

2) tu dimensionne, colore, écris comme tu veux

3) tu affecte la macro

c'est tout !

Claude

Merci claude ^^

Bonjour Claude,

Merci encore pour ton aide. C'est super

Je souhaiterais apprendre le langage BVA, ce serait un rêve pour moi.

Si tu peux m'orienter (lien pour les cours ou site) car je suis un nul dans le domaine

Je suis un passionné et très motivé

Merci