Re : Filtre élaboré 3 critères
bonjour
j'ai trouver ce code, mais je ne le comprend pas bien
ou dois-je mettre les 3 valeurs que je veux filtrer?
Dans mon cas j'aurais besoin de masquer ce qui est différend de : "345", "365", "385"
contenu dans la colonne "D" :
Sub FiltrerLignes(Critère1 As String, Critère2 As String, Critère3 As String)
Dim nLignes As Integer
Dim c As Object
Dim DerLigne As Object
Set DerLigne = Columns(1).Cells.Find("*", , , , , xlPrevious)
nLignes = DerLigne.Row
Range("'Phrase de Risque'!K6:K" & nLignes).EntireRow.Hidden = True
For Each c In Range("'Phrase de Risque'!K6:K" & nLignes)
If InStr(UCase(c), UCase(Critère1)) > 0 Then c.EntireRow.Hidden = False
If InStr(UCase(c), UCase(Critère2)) > 0 Then c.EntireRow.Hidden = False
If InStr(UCase(c), UCase(Critère3)) > 0 Then c.EntireRow.Hidden = False
Next
End Sub
merci pour votre aide
dominique