Microsoft 365 filtrages que je ne parviens pas à coder

[Usine à gaz]

Bonsoir à toutes et à tous,

J'ai des filtrages à mettre en place et voilà une semaine que je tourne en rond sans parvenir à réussir les codes.
J'ai tenté en boucle mais je n'y arrive pas

Dans le fichier joint, j'ai créé les onglets pour montrer mes besoins selon les conditions :
1 - TOUTES LES LIGNES à filtrer selon les critères dans les onglets qui suivent,
Résultats attendus
2 - J=date - K = vide (si la col J contient des dates et la col K est vide),
3 - J=vide - K = vide (si les col J et K sont vides),
4 - J=date - K = date (si les col J et K contiennent des dates),
5 - J K L= vide (si les col J K L sont vides),
6 - si la col J contient "NPR",
7 - si la col J contient "RdV Fait",
8 - si la col J contient "RdV Fait Facturé",

J'ai les neurones en forme de chou fleur lol,
Pourriez-vous m'aider ?
Fichier test joint,

Je vous remercie par avance.
Je continue mes tests,
Amicalement,
lionel,

 

[Usine à gaz]

Re-Marcel

Après tests, tout fonctionne ... sauf :

Case 4 ' J = date et K = date
MaZone.AutoFilter Field:=10, Criteria1:=">=1", Operator:=xlAnd
MaZone.AutoFilter Field:=11, Criteria1:=">=1"
Qui devrait afficher :

Et qui n'affiche aucune ligne,
@+,
lionel

 

[TooFatBoy]

J'ai trouvé comment fonctionne ta liste mais je ne vois pas du tout comment tu la créé ???
Tu veux me dire ?

Il y a la liste en colonne masquée Q.

Quand tu modifies la sélection dans la "ComboBox", ça met l'indice de l'item sélectionné dans la cellule Q5.
La macro "Activer_Filtrage" est associée à la "ComboBox".

 

[Usine à gaz]

OUI : je l'ai vu

 

[TooFatBoy]

Case 4 ' J = date et K = date

C'est qu'est-ce que j'ai dit en #28.

Tu prends juste les fichiers qu'on te donne, ou tu lis aussi les messages postés ???

 

[Usine à gaz]

Mais je pense que c'est un souci de criteres.
J'ai tenté de modifier mais je n'y suis pas arrivé

 

[Usine à gaz]

C'est qu'est-ce que j'ai dit en #28.

Tu prends juste les fichiers qu'on te donne, ou tu lis aussi les messages postés ???

Mais j'ai juste pris ton fichier sans rien touché lol.

 

[TooFatBoy]

J'ai l'impression que j'ai mal compris la question sur la liste, et du coup j'ai répondu à côté en #32.
N'est-il pas ?

Tu veux savoir quoi exactement ?
La façon de créer la boîte qui contient la liste déroulante ?
C'est simple : Développeur \ Insérer \ Contrôle de formulaire \ Zone de liste déroulante.

 

[TooFatBoy]

Mais je pense que c'est un souci de criteres.
J'ai tenté de modifier mais je n'y suis pas arrivé

Non, c'est un souci de données.

Mais j'ai juste pris ton fichier sans rien touché lol.

Oui, et sans lire ce que j'ai écrit...
J'avais pourtant bien précisé que le filtrage fonctionnait, mais que tu risquais de ne pas voir le résultat que tu voulais.

Et j'avais même donné la raison :

Il n'y a aucune date en colonne K !​

 

[Phil69970]

Re

Lionel et pour revenir sur mon post # 24

Je t'expliquais qu'il faut déplacer cette ligne pour être sur que la variable prenne bien la totalité des lignes et sur toutes les macros ou elle n'est pas au bon endroit.

*Dans la version "plus simple" du post # 22 j'ai rectifié l'erreur.

@Phil69970

 

[Usine à gaz]

Ci-joint une possibilité avec une méthode différente : utilisation des filtres d'Excel.

Note : évidemment le filtre 3 fonctionne mais n'affiche sûrement pas ce tu veux vu qu'il n'y a en réalité aucune date en colonne K.

Re

Lionel et pour revenir sur mon post # 24

Je t'expliquais qu'il faut déplacer cette ligne pour être sur que la variable prenne bien la totalité des lignes et sur toutes les macros ou elle n'est pas au bon endroit.

Regarde la pièce jointe 1132650

*Dans la version "plus simple" du post # 22 j'ai rectifié l'erreur.

Bjr et merci Phil : je vais regarder

 

[Usine à gaz]

Re-Phil
Bizarre, vous avez dit bizarre ???
J'ai repris ton fichier du #post22 et copié la partir du code à modifier dans les macros...
Et ... ça ne fonctionne pas lol.
J'ai résolu en ajoutant " Range("1:1,3:3").RowHeight = 0" avant "end sub" des codes.

 

[Phil69970]

Re

Cela fonctionne très bien chez moi mais es tu sur la bonne feuille et est elle active ?

@Phil69970

 

[Usine à gaz]

Re-Phil
Exact car j'avais zappé :
" .Rows(1).Hidden = True - .Rows(3).Hidden = True"
Désolé

Tout est bon et c'est nickel.
Avec celle de Marcel, me voilou avec 2 solutions géniales
Encore un BEST MERCI,
lionel

 

[Usine à gaz]

Re-marcel,
J'ai trouvé comment faire fonctionner "Case 4 "J = date et K = date"
Mais je n'ai pas trouvé comment tu crée l'outil "menu déroulant".
@+,

 

[TooFatBoy]

Mais je n'ai pas trouvé comment tu crée l'outil "menu déroulant".

C'est pourtant expliqué en #37... mais pas sûr que tu l'ai lu celui-là non plus...