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,

 

[TooFatBoy]

J'ai trouvé comment faire fonctionner "Case 4 "J = date et K = date"

Effectivement, si tu n'as que des fausses dates, et rien d'autre (pas de texte, pas de nombre, etc.), en colonne K alors ta solution est parfaite !
Chapeau !!!

 

[Usine à gaz]

Re-Marcel
Hé ben NON bon sang : je ne l'avais pas vu celui-là.
Merci à toi

 

[Usine à gaz]

Effectivement, si tu n'as que des fausses dates, et rien d'autre (pas de texte, pas de nombre, etc.), en colonne K alors ta solution est parfaite !
Chapeau !!!

lol, c'est quand même ton code et je n'y suis pour pas grand chose.
Génial : me voilou avec 2 solutions géniales,
Merci à vous deux,
lionel

 

[Usine à gaz]

Re à toutes et à tous
Je "bat ma coulpe" lol

Il est vrai que je suis souvent compliqué, pas toujours clair et que je fais des demandes "fantaisistes" pour certains et trop souvent je titille vos p'tits nerffffsss (si, si, je le sens lol)

Mais avouez que je maintiens vos neurones en "grosse" activité lol

Et souvent des solutions comme celles de ce fil doivent être utiles à beaucoup d'autres d'où :
"J'suis nul .. mais je fais avancer mes alter-égo !"

Merci pour tout ce que vous faites, votre patience et le temps que vous passez à me supporter
Très reconnaissant,
lionel

 

[Usine à gaz]

Bonjour Phill, Bonjour Marcel, le Forum

Vraiment MERCI à vous deux pour vos codes qui fonctionnement parfaitement
Je suis actuellement à l'étude d'intégration de vos codes dans mes fichiers de travail.
Vos 2 solutions vont m'être très utiles pour 2 utilisations différentes.

@ Marcel32 ... En ce qui concerne ton code :
J'ai besoin d'ajouter un filtrage qui concerne une info en col Z
Mais ça beug lol
J'ai pourtant l'impression d'avoir modifié et ajouté ce qu'il faut mais certainement que j'ai zappé un truc

Bon sang ... j'ai zappé koi ???
Veux-tu m'aider encore ?
Je joins le fichier
Merci Marcel
lionel,

 

[TooFatBoy]

Ce que tu as encadré en rouge ne sert qu'à masquer les flèches de filtrage.

Ce que tu montres au-dessus ne sert qu'à allonger la liste déroulante, pour ajouter un choix dans la liste.

 

[Usine à gaz]

Merci marcel d'être encore là.
Tu veux dire que normalement ça devrait fonctionner ?
As-tu testé le fichier ?

 

[TooFatBoy]

Non, je ne veux pas dire que ça devrait fonctionner. J'explique à quoi servent ces deux choses.
Et j'ajoute que tu as modifié ces deux choses correctement.

Je ne peux pas tester pour l'instant.
Mais si tu as aussi modifié le reste correctement, ça devrait marcher.

 

[Usine à gaz]

Je crois avoir tout bien fait mais ... Grrrr !!!
Je continue à chercher,
lionel

 

[TooFatBoy]

Tu as bien ajouté le "Case 9" avec le filtre qui va bien ?

 

[Usine à gaz]

Voici ce que j'ai fait :
- le code modifié

Sub Activer_Filtrage()
    Set MaZone = ActiveSheet.Range("A5:M" & Cells(Rows.Count, 1).End(xlUp).Row)
    Application.ScreenUpdating = False

    For MaCol = 1 To 13
        MaZone.AutoFilter Field:=MaCol, Visibledropdown:=False
    Next MaCol

    Select Case Sheets("Feuil1").Range("Q5").Value
    Case 2  ' Rappels
        MaZone.AutoFilter Field:=10, Criteria1:=">=1", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
    Case 3  ' Répondeurs
        MaZone.AutoFilter Field:=10, Criteria1:="=", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
        MaZone.AutoFilter Field:=12, Criteria1:="<>"
    Case 4  'RdVs annulés
        MaZone.AutoFilter Field:=10, Criteria1:=">=1", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="<>"
    Case 5  'NON traités
        MaZone.AutoFilter Field:=10, Criteria1:="=", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
        MaZone.AutoFilter Field:=12, Criteria1:="="
    Case 6  'NPR
        MaZone.AutoFilter Field:=10, Criteria1:="NPR"
    Case 7  'RdV Fait
        MaZone.AutoFilter Field:=10, Criteria1:="RdV Fait"
    Case 8  ' RdV Facturé
        MaZone.AutoFilter Field:=10, Criteria1:="RdV Fait Facturé"
'    Case 9  ' n/c
'        MaZone.AutoFilter Field:=26, Criteria1:="n/c"
    End Select

    [a2].Select
    Application.ScreenUpdating = True

End Sub

le format de contrôle

En feuil1

Je ne vois pas ce que j'aurais pu zapper

 

[TooFatBoy]

Je ne vois pas ce que j'aurais pu zapper

Peut-être le M
Sinon, vu d'ici, je ne vois pas.

 

[Usine à gaz]

Pourtant, j'ai bien modifié :
ActiveSheet.Range("A5:M" en ActiveSheet.Range("A5:Z"
et
For MaCol = 1 To 13 en For MaCol = 1 To 26
------------------------------------------------------------------------------------------
Sub Activer_Filtrage()
Set MaZone = ActiveSheet.Range("A5:Z" & Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False

For MaCol = 1 To 26
MaZone.AutoFilter Field:=MaCol, Visibledropdown:=False 'beug ICI
Next MaCol

Bon sang de Bon sang et B....l

 

[TooFatBoy]

Je regarde tantôt.


Au fait, il ne te manque pas une case ???
Je veux dire : il n'y a pas une cellule vide sur la ligne 5 entre M et Z ?

 

[Usine à gaz]

Il ne me manque pas de case : j'ai bien ajouté la nouvelle case

OUI les cellules N5 à Z5 sont vides.
Je viens de tester en mettant des "1" dans toutes les cellules.
Mais j'ai le même beug