Microsoft 365 filtrages que je ne parviens pas à coder

Usine à gaz · 2 Mars 2022

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,

Phil69970 · 3 Mars 2022

Re

Lionel

J'ai fait les 2 premiers

A toi de faire les autres

Si tu n'y arrives pas je ferais les autres

@Phil69970

TooFatBoy · 4 Mars 2022

Usine à gaz à dit:
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 · 4 Mars 2022

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

Usine à gaz · 4 Mars 2022

Marcel32 à dit:
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 · 4 Mars 2022

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 · 5 Mars 2022

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 · 5 Mars 2022

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 · 5 Mars 2022

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

TooFatBoy · 5 Mars 2022

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 · 5 Mars 2022

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

TooFatBoy · 5 Mars 2022

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

Usine à gaz · 5 Mars 2022

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

VB:

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 · 5 Mars 2022

Usine à gaz à dit:
Je ne vois pas ce que j'aurais pu zapper

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

Usine à gaz · 5 Mars 2022

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 · 5 Mars 2022

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 · 5 Mars 2022

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

Microsoft 365 filtrages que je ne parviens pas à coder

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires