Microsoft 365 Filtrage spécial et compliqué pour moi

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Juin 2020

• #2

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 ?

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Juin 2020

• #3

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

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #4

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: 28 Juin 2020

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Juin 2020

• #5

Euh!!! Suis-je invisible ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #6

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #7

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: 28 Juin 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Juin 2020

• #8

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

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #9

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,

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Juin 2020

• #10

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #11

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,

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 28 Juin 2020

• #12

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: 28 Juin 2020

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #13

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #14

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juin 2020

• #15

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"

Je ne trouve pas comment rectifier

 

Vote positif 0 Vote négatif