Microsoft 365 Filtrage spécial et compliqué pour moi

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :mad:
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,
 

Pièces jointes

  • liste_Secteurs_test.xlsm
    665.7 KB · Affichages: 10
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Vous voulez savoir si une commune est déjà prospéctée ?
Dans ce cas, faites en Vérifie Secteur AB3 :
VB:
=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

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • liste_Secteurs_test.xlsm
    692.7 KB · Affichages: 5

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • liste_Secteurs_test (V2).xlsm
    723.1 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

JHA

XLDnaute Barbatruc
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
 

Pièces jointes

  • liste_Secteurs_test.xlsm
    889 KB · Affichages: 5
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
Supporter XLD
Re-Bjr sylvanu,

lol, j'ai un souci quand j'intègre ton code dans mon fichier, j'ai un souci :
ça beug là :
VB:
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"
Sans titre.jpg

Je ne trouve pas comment rectifier :mad:
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll