Sub Macro1()
'Filtre automatique personnalisé
Dim CRITVILLE As String
Dim CRITERE1 As String
Dim CRITERE2 As String
Dim CRITERE3 As String
CRITVILLE = Sheets("Recherche").[A2] 'ici ce sont les cellules remplies par l'utilisateur
CRITERE1 = Sheets("Recherche").[D2]
CRITERE2 = Sheets("Recherche").[E2]
CRITERE3 = Sheets("Recherche").[F2]
'Rappel des critères
' j'utilise une MsgBox pour plus de détails voir l'aide de VBA
TRIX = MsgBox("Ville choisie:" & vbTab & CRITVILLE & Chr(13) & _
"Nombre d'étoiles:" & vbTab & CRITERE1 & Chr(13) & _
"Type de chambre:" & vbTab & CRITERE2 & Chr(13) & _
"Prix inférieur à:" & vbTab & CRITERE3, vbInformation, "Rappel de vos critères de choix")
If TRIX = vbOK Then
'quand on clique sur oK
'la macro se poursuit
Sheets("Paramètres").Activate ' activation de la feuille Paramètres
'Mise en place du filtre automatique
Selection.AutoFilter Field:=1, Criteria1:=CRITVILLE
Selection.AutoFilter Field:=3, Criteria1:=CRITERE1
Selection.AutoFilter Field:=4, Criteria1:=CRITERE2
Selection.AutoFilter Field:=5, Criteria1:="<" & CRITERE3, Operator:=xlAnd
End If
End Sub