Discussion :

[Orda80]

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

[MarcelG]

Bonjour,

Remarque préliminaire.
En fin de procédure, il est opportun de libérer toutes les variables affectées à des objets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set P2 = Nothing

La zone de critères ne doit contenir qu'un nombre limités de lignes!

Le tutoriel de référence à ce sujet

Filtres avancé par Philippe Tulliez

[Orda80]

Je vous remercie Marcel pour votre réponse rapide.

le nombre de ligne de la zone de critère contient un tableau variable.

Avez-vous une idée comment procéder dans ce type de cas ?

Cordialement
Orda

[BENNASR]

bonjour ORDA, la forum
pour filtrer à plusieurs caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    Set feuille = Worksheets("feuil1")
    With feuille.Range("A2", feuille.Cells(Rows.Count, 1).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="=lot*", Operator:=xlOr, Criteria2:="=*table*"
        Set mescellules = .SpecialCells(xlVisible)
    End With
    MsgBox mescellules.Address
End Sub

et pour ton problème merci d'expliquer ce que tu cherches à faire et si nécessaire un exemple peut être on peut t'aider

[Orda80]

Je vous remercie pour vos réponses,

Marcel, oui j’ai appris a utilisé le filtre avancé grâce à ce tutoriel, je vais tester cet aprém de moduler l'argument critère d'aprés tes explications .

Bennacer, je suis désolée j’ai pensé que l’idée était claire, (je pense que c’était claire que pour moi ) je ferai plus d’effort pour l’explication la prochaine fois 😊

Mille Mercis

Orda

[MarcelG]

Bonjour Orda,

Dans ton code, tu considérais l'intégralité de la colonne E comme critères.

le nombre de ligne de la zone de critère contient un tableau variable.

As-tu consulté le tutoriel que je t'ai mentionné?

Si la zone de critères est variable (exemple de 2 à 3 lignes), alors tu peux moduler l'argument critère de la méthode de filtre avancé.
Par exemple, en affectant un nom à ta zone de critères.
Celui-ci, redéfini à chaque cas, serait utilisé dans l'argument critère.

Autre méthode : affecter une variable à la zone de critères. La redéfinir en fonction des cas.
Pour cette option.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim lignecrit as Byte
Dim plagecrit as Range
 
With Worksheets(1)
lignecrit = .cells(4, 2).End(xlUp).Row
Set   plagecrit = .Range('A1:D" & lignecrit)
......
 CriteriaRange:=plagecrit