Tri et copie avec sauts de lignes

[Abdellatif]

Bonjour,

Je souhaiterais une solution à mon souci dans le fichier joint
Merci

[dubois]

Bonjour,

Code: Tout sélectionner

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

[sandrine27]

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

[Abdellatif]

Bonjour Claude,
Merci pour ta réponse qui me convient parfaitement
Je souhaiterais ajouter un tableau entre les deux
Regardes le fichier joint
Merci

[dubois]

Bonsoir,

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

Code: Tout sélectionner

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

[Abdellatif]

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

[dubois]

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

[sandrine27]

Merci claude ^^

[Abdellatif]

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