Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 filtrages que je ne parviens pas à coder

Usine à gaz

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

Pièces jointes

  • Test_For.xlsm
    139.7 KB · Affichages: 8
Dernière édition:

Usine à gaz

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

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

TooFatBoy

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

Usine à gaz

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

 

Usine à gaz

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

Pièces jointes

  • filtre_Phil.xlsm
    151.9 KB · Affichages: 1

Usine à gaz

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

XLDnaute Barbatruc
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".
@+,
 

Pièces jointes

  • filtre_Marcel.xlsm
    39.3 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…