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
|
Sub Filtre()
Dim PlageCriteres As Range
Dim PlageDonnees As Range
Dim CelDonnee As Range
Dim CelCritere As Range
Dim Trouve As Boolean
Set PlageCriteres = Range("critères")
Set PlageDonnees = Range("Données")
For Each CelDonnee In PlageDonnees
Trouve = False
For Each CelCritere In PlageCriteres
If InStr(1, CelDonnee.Value, CelCritere.Value) <> 0 Then
Trouve = True
Exit For
End If
Next CelCritere
If Not Trouve Then CelDonnee.EntireRow.Hidden = True
Next CelDonnee
Set PlageCriteres = Nothing
Set PlageDonnees = Nothing
Set CelCritere = Nothing
Set CelDonnee = Nothing
End Sub |
