Aide macro

Bonjour j'ai une macro(que j'ai obtenu grâce à l'aide de ce forum) qui me permet de copier coller les données dans une autre feuille en fonction de personne.

Mais ce que je souhaiterais c'est que pour chaque feuille de personne créé, 3 tableaux s'affiche : le 1er deja fait celui dans la macro,

le 2e trier en mettant ceux inferieur a 30 et le 3 eme ceux superier a 50 et qu'il y est une separation entre les 3 tableaux

Sachant que chaque tableau n'aura pas le meme nombre de ligne du coup

Merci de votre aide

Bonjour

paris7501 a écrit :

le 2e trier en mettant ceux inferieur a 30 et le 3 eme ceux superier a 50

Bye !

ah oui pardon c'est la colonne a prendre

personne peut m'aider

Bonjour,

salut gmb

voici le complément à ta macro

Sub dupliquer(ok As Boolean)
Dim ici As Range, tbl As ListObject

    With ActiveSheet.ListObjects(1)

        If .ShowAutoFilter Then .AutoFilter.ShowAllData
        Set ici = Cells(Rows.Count, 1).End(xlUp).Offset(3, 0)

        .Range.AutoFilter Field:=11, Criteria1:="<30"
        .Range.Select
        Selection.Copy
        ici.Select
        With ActiveSheet
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Set tbl = .ListObjects.Add(xlSrcRange, ici.CurrentRegion, , xlYes)
            tbl.TableStyle = "TableStyleMedium3"
        End With

        .AutoFilter.ShowAllData
        Set ici = Cells(Rows.Count, 1).End(xlUp).Offset(3, 0)

        .Range.AutoFilter Field:=11, Criteria1:=">50"
        .Range.Select
        Selection.Copy
        ici.Select
        With ActiveSheet
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Set tbl = .ListObjects.Add(xlSrcRange, ici.CurrentRegion, , xlYes)
            tbl.TableStyle = "TableStyleMedium7"
        End With

        .AutoFilter.ShowAllData

    End With

End Sub

merci enorment j'ai juste une question je voudrais pour chaque tableau créée mettre un titre pour cela j'ai fait cette macro

Sub Macro13()
'
' Macro13 Macro
'

'
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1:P2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
     Range("A1:P2").Select
    ActiveCell.FormulaR1C1 = "Cible Ebiz taux ALL"

End Sub

que j'appele dans la macromais cela marche que pour le 1er tableau . comment je pourrai faire pour les autres tableau

Et c'est quoi les 3 titres ? va dans la macro et change bla bla 1, bla bla 2, bla bla 3