Bonjour à tous,

j'ai besoin de votre aide pour l'élaboration d'un filtre avancé que j'utilise pour la première fois, mais j'ai eu un problème par rapport au filtre des données, en effet le fonction ne fait que copie et coller les données dans la feuille P12 sans prendre en considération le critère de choisir que les données qui se trouve dans la colonne E de la feuille "ent".

Je vous remercie par avance pour votre aide.

Orda



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
21
22
23
24
25
26
27
28
29
Sub Macro1()
 
 
Dim ent, P1, P2, P12 As Worksheet
 
'Dim i, j As Integer
 
 
Set P12 = Worksheets(5)
Set P1 = Worksheets(3)
Set P2 = Worksheets(4)
Set ent = Worksheets(1)
 
P12.Range("A1").CurrentRegion.Offset(1, 0).Rows.Delete 'supprime toutes lignes éditées de l'onglet P12
 
    P1.Range("A1:J" & Rows.Count).AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=ent.Range("E1:E" & Rows.Count), _
         CopyToRange:=P12.Range("A1:J1"), _
         Unique:=False
 
    P2.Range("A1:J" & Rows.Count).AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=ent.Range("F1:F" & Rows.Count), _
         CopyToRange:=P12.Range("A" & Rows.Count).End(xlUp)(2), _
         Unique:=False
 
 
End Sub