Discussion :

[Autair]

Bonjour à tous,
Je souhaite faire remonter plusieurs ligne d'une base de donnée (filtrer) en fonction d'une liste de critère présente dans une autre feuille
Pouvez-vous m'aider pour 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
21
22
23
24
25
26
27
28
29
Sub Macro3()
'
' Macro3 Macro
'

Dim A As String
Dim B As String
Dim C As String
Dim E As String
Dim DerLig As Long
Dim DerLig2 As Long
Dim I As Long

DerLig = Sheets("Allumage PM").Range("A" & Rows.Count).End(xlUp).Row
DerLig2 = Sheets("Suivi des PM publiés").Range("A" & Rows.Count).End(xlUp).Row
E = Sheets("Allumage PM").Cells(2, 1).Value

  With Sheets("Allumage PM")
  For I = 3 To DerLig
     A = Cells(I, 1).Value
     B = B & """, """ & A
  Next I
    C = """" & E & B & """"
  
  End With

  Sheets("Suivi des PM publiés").Range("$A$2:$A" & DerLig2).AutoFilter Field:=1, Criteria1:=Array(C), Operator:=xlFilterValues

End Sub

Je bloque à la fin pour appliquer le filtre Array. normalement j'ai regarder avec un MsgBox C, la valeur qui remonte est de bonne syntaxe..
Peut-on seulement procéder comme cela ?
Merci d'avance pour votre aider
Guillaume

Résultat MsgBox C en pj

[halaster08]

Bonjour,

Je te conseille la lecture de ce tuto sur les filtres avancés: https://philippetulliez.developpez.c...dvancedfilter/

[Autair]

Bonjour,

Je te conseille la lecture de ce tuto sur les filtres avancés: https://philippetulliez.developpez.c...dvancedfilter/

Merci ! pourquoi faire compliqué quand on peut faire simple ^^
Blague à part merci, je ne connaissais pas la fonction filtre avancé.
Bonne journée

[Pierre Fauconnier]

Salut.

Tu ne tagues pas ta version d'Excel, mais depuis 2010, tu as Power Query qui automatise ce genre de traitement. Les filtres avancés sont pour moi un outil devenu obsolète.