Filtres de recherche élaborés
Bonjour à tous,
Dans le filtre ci-après est-il possible de rajouter plusieurs mots de recherche derrière "ANNECY-ROMAINS".
Dans la positive qu'elle doit être la syntaxe?
Bien merci,
Philippe
Sub FiltreVilles()
Dim Nblg As Long
With Sheets("effectifactif")
Nblg = .Range("X" & Rows.Count).End(xlUp).Row
.Range("AW2").Formula = "=X5=""ANNECY-ROMAINS"""
.Range("A4:AU" & Nblg).AdvancedFilter Action:=xlFilterCopy, criteriarange:=.Range("AW1:AW2"), copytorange:=Sheets("Annecy").Range("A3:AU3")
.Range("AW1:AW2").ClearContents
End With
End Sub
Bonjour,
Pour un ET
.Range("AW2").Formula = "=X5=""ANNECY-ROMAINS*xxxx*"""
Exemple pour un OU:
http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreEnsemble.xls
Sub Filtre2()
Range("I2").Formula = "=SUMPRODUCT(--(({""Bordeaux"";""Paris"";""Versailles""}=B2)))"
Range("A1:B10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[I1:I2]
[I2].ClearContents
End Sub
Ceuzin
Bonsoir,
C'est parfait et mon choix c'est reporté plutôt pour l'exemple pour un OU.
Un grand merci,
Philippe