Microsoft 365 Filtrage spécial et compliqué pour moi

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche

Je bute, comme souvent lol, sur un code que je n'arrive pas à faire malgré mes tentatives
Mon besoin :
Actuellement, nous gérons en prospection environ + de 4600 communes
Quand un nouveau client fait appel à notre service, je vérifie si les communes qu'il souhaite que nous prospections, sont déjà prospectées pour 1 ou plusieurs Clients
Je saisi Feuille "vérifie secteur", pour l'exemple, de la cellule Y3 à la cellule Z20, les codes postaux et les communes demandées (il peut y en avoir beaucoup plus)

J'ai besoin de filtrer dans la feuille "Clients" les lignes qui ont (pour toutes les communes de la Feuille "vérifie secteur" : cellule Y3 à la cellule Z20) :
- le code postal correspondant "Col B" et la commune correspondante "Col C" (sur la même ligne) (il peut y en avoir plusieurs (c'est souvent le cas).

Pourriez-vous m'apporter votre aide qui, comme d'habitude, est précieuse
En cas, je joins un fichier test.
Avec mes remerciements,
lionel,

 

[sylvanu]

Bonjour,
Vous voulez savoir si une commune est déjà prospéctée ?
Dans ce cas, faites en Vérifie Secteur AB3 :

=NB.SI.ENS(Clients!B:B;'vérifie secteur'!Y3;VillesProspects;'vérifie secteur'!Z3)

Ou voulez vous que la feuille clients soit filtrée que sur les communes demandées ? Dans ce cas acceptez vous qu'on rajoute une colonne ?

 

[Hasco]

Bonjour,

Comme vous avez excel 365, je vous l'ai fait par PowerQuery dans dans un nouveau tableau sous la zone des communes à chercher.

Comme PQ travaille sur des tableaux structurés, vos tableaux ont étés transformé en tableau structurés. C'est aujourd'hui un standard que vous devriez utiliser.

Changez les noms de communes dans vérif secteur puis Données/Actualiser

cordialement

 

[Usine à gaz]

Bjr sylvanu, Merci d'être là
"Ou voulez vous que la feuille clients soit filtrée que sur les communes demandées ? Dans ce cas acceptez vous qu'on rajoute une colonne ?"

Oui il faudrait que ce soit filtré pour toutes les communes demandées et pas de souci pour un ajout de colonne ou ajout de feuille
lionel,

 

[Hasco]

Euh!!! Suis-je invisible ?

 

[Usine à gaz]

Bjr Roblochon,
Merci d'être là, même un dimanche
Je regarde car je ne connais pas encore PowerQuery et je reviendrai voous dire.
lionel,

 

[Usine à gaz]

Re-Bjr Roblochon,

Merci pour ce fichier qui fonctionne très bien
Mais comme je le dis plus haut, je ne connais pas PowerQuery et que je n'ai pas le temps d'étudier le fonctionnement pour l'instant, je le garde pour étude quand ce sera possible pour moi mais je préférerais dans l'immédiat une filtrage.
Mais super merci car cela va me donner l'occasion d'étudier cette fonctionnalité
lionel,

 

[sylvanu]

Re tout le monde,

N'ayant pas PowerQuery car HasBeen avec mon 2007, en PJ un ex en VBA.
Les instructions sont dans le fichier.
Un clic sur la cellule A1 on filtre, un second clic on défiltre.
Simple, mais long, car en VBA il faut boucler sur pas mal de données.

 

[Usine à gaz]

Re-Bjr sylvanu,
ça me semble super bien et pas de souci pour le temps du traitement
Mais je ne vois pas où tu aurais ajouté une colonne ?
Je testerai plus avant en fin de journée et je te dirai
Merci à toi,
lionel,

 

[sylvanu]

Dans la feuille Clients, je n'ai pas "rajouté" une colonne, j'exploite la colonne A qui était libre.
J'ai juste posé la question car il arrive que dans le fichier "réel" et non de test on n'ai pas la possibilité d'exploiter une colonne supplémentaire ( comme le cas où la feuille est importée d'une autre outil )
That's all.

 

[Usine à gaz]

C'est bien comme ça
Encore merci
"Je testerai plus avant en fin de journée et je te dirai"
Mais ça me semble super bien,
lionel,

 

[JHA]

Bonjour à tous,

Pas certain d'avoir saisi ta demande, ci joint un essai avec un filtre élaboré.
Attention sur l'image copiée dans le fichier il faut sélectionner:
Copier vers un autre emplacement et non Filtrer la liste sur place.

JHA

 

[Usine à gaz]

Bonjour JHA,
Merci d'être là toi aussi
Je regarde et je te dis ...
lionel,

 

[Usine à gaz]

Re-JHA,
Je te remercie pour ce filtre avancé, Il va me permettre d'étudier également cette fonctionnalité que je ne connais pas encore
Dans l'immédiat, je préfère toutefois la solution de Sylvanu qui ne modifie pas mon tableau. car ce fichier exemple fait partie d'un fichier de suivi de communes bien plus compliqué et j'ai besoin de filtrer sans rien changer à mes feuilles.
Encore merci à toi
lionel,

 

[Usine à gaz]

Re-Bjr sylvanu,

lol, j'ai un souci quand j'intègre ton code dans mon fichier, j'ai un souci :
ça beug là :

Sub Filtrage()
Sheets("Clients").Activate
ActiveSheet.Unprotect Password:=""
If Range("A1").Interior.Color = RGB(255, 0, 0) Then
    ActiveSheet.Range("$A$1:$A$50000").AutoFilter Field:=1
    Range("A1").Interior.Color = RGB(0, 255, 0)
    Exit Sub
End If
Range("A1").Interior.Color = RGB(255, 0, 0)
DLClients = Sheets("Clients").Range("B50000").End(xlUp).Row
DL = Sheets("vérifie secteur").Range("a1000").End(xlUp).Row
Sheets("Clients").Range("A2:A50000").ClearContents
For L = 2 To DLClients
    For i = 2 To DL
        If Sheets("Clients").Range("B" & L) = Sheets("vérifie secteur").Range("a" & i) Then
            If Sheets("Clients").Range("C" & L) = Sheets("vérifie secteur").Range("b" & i) Then
                Range("A" & L) = "X"
                Exit For
            End If
        End If
    Next i
Next L
ActiveSheet.Range("$A$1:$A$50000").AutoFilter Field:=1, Criteria1:="<>"
End Sub

sur cette ligne : "DL = Sheets("vérifie secteur").Range("a1000").End(xlUp).Row"

Je ne trouve pas comment rectifier