Bonjour
J’ai un " tableau1" de "A : J" et la colonne N°05 "E"contient des comptes
Je souhaite faire une macro qui filtre chaque compte et déplacé le résultat vers un nouveau feuil nommer de la valeur filtré
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
Dim lignes_visibles  As Range
If Sheets("grand livre").Range("E2").Offset(1, 0).Value = 0 Then Exit Sub
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=Sheets("grand livre").Range("E2").Offset(1, 0).Value
 
With Sheets("GRAND LIVRE").ListObjects("Tableau1")
        Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
            Sheets.Add
            ActiveSheet.Name = Sheets("grand livre").Range("E2").Offset(1, 0).Value
 
            lignes_visibles.Copy
 
        ActiveSheet.Paste
        Cells.EntireColumn.AutoFit
        lignes_visibles.Delete
 
End With
Sheets("GRAND LIVRE").Select
End Sub
Svp est ce que j'ai bien rédiger ce code et comment le mettre dans une boucle
Désolé si j'ai mal exprimé et merci beaucoup