Je veux réaliser un filtre en vba qui tourne grâce à deux textbox. Ces derniers transmet les valeurs critere1 et critere2 dans la procédure suivante :

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
 
Sub Filtrer(critere1 As String, critere2 As String)
ActiveSheet.Unprotect ("bla")
 
Selection.AutoFilter Field:=2, Criteria1:=critere1 & "*"
Selection.AutoFilter Field:=3, Criteria1:=critere2 & "*"
 
If critere1 = "" Then
Selection.AutoFilter Field:=2
End If
 
If critere2 = "" Then
Selection.AutoFilter Field:=3
End If
 
ActiveSheet.Protect ("bla")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Pour avoir un filtre "récursif" j'ai rajouté une * apres les variables critere1 et critere2 qui doit normalement me permettre ici de remplacer n'importe quoi.

Malheureusement ça marche pas, et je sèche...

Help me please