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

Usine à gaz · 5 Mars 2022

Bon sang, j'ai l'impression que ton code ne veut pas que je le modifie
Fonctionne :
ActiveSheet.Range("A5:M"
For MaCol = 1 To 13
Ne fonctionne plus :
ActiveSheet.Range("A5:Z"
For MaCol = 1 To 26

Il ne garderait pas quelque part la mémoire du M et du 13 ?

TooFatBoy · 5 Mars 2022

Non, il n'y a pas de mémoire.

S'il y a des cellules vides de N à Y, il faut peut-être bien faire un filtrage spécifique pour la colonne Z.

Usine à gaz · 5 Mars 2022

Merci Marcel, je vais tenter mais dans ce cas, il me faudra certainement un second "Contrôle" ?
Est-il possible de le faire avec le même "Contrôle" ?

TooFatBoy · 5 Mars 2022

Pourquoi un deuxième contrôle ???
Tu peux bien lancer le filtrage que tu veux une fois que tu as sélectionné ton item dans liste déroulante.

Usine à gaz · 5 Mars 2022

Rien à faire, je n'y arrive pas Bon sang.

C'est peut-être mieux d'attendre que tu puisses prendre le fichier et voir si tu veux bien ?
Je le remets en pièce jointe dans ce #post,

Staple1600 · 5 Mars 2022

Bonjour

C'est normal qu'on trouve ceci en Z5
=NB.SI(Z6:Z10000;"n/c")

D'habitue, les entêtes de filtre ne contiennent pas de formule mais du texte.

Usine à gaz · 5 Mars 2022

Merci JM de t'intéresser à ce fil très important pour moi
"C'est normal qu'on trouve ceci en Z5 =NB.SI(Z6:Z10000;"n/c"

C'est pour répondre à la question de Marcel :
Marcel a dit : "Je veux dire : il n'y a pas une cellule vide sur la ligne 5 entre M et Z ?"
J'ai voulu faire un test mais "normalement les cellules N à Z sont vides.

Le test n'a rien donné "toujours le même beug Grrrrrrrrrrrrr !!!
lionel

Staple1600 · 5 Mars 2022

Re

Moi je me suis basé sur le problème

Ne fonctionne plus :
ActiveSheet.Range("A5:Z"
For MaCol = 1 To 26

Et donc j'ai ouvert le fichier
Et je trouve bizarre qu'il y ait une formule en Z5

(La ligne 5 étant la ligne sur lequel le code applique le filtre)

Usine à gaz · 5 Mars 2022

Staple1600 à dit:
Re

Moi je me suis basé sur le problème

Et donc j'ai ouvert le fichier
Et je trouve bizarre qu'il y ait une formule en Z5

(La ligne 5 étant la ligne sur lequel le code applique le filtre)

Je le remets ici sans la formule car normalement les cellules N à Z sont vides.

TooFatBoy · 5 Mars 2022

Je pense que ça ne change rien, qu'il y ait ou pas quelque chose en Z5.

Je regarde ça en fin d'après-midi.

Staple1600 · 5 Mars 2022

Re

Ceci aussi me perturbe

Enrichi (BBcode):

  On Error Resume Next
            With Sheets("Feuil9")
                With .Range("A6")
                .AutoFilter Field:=2, Criteria1:=">" & Replace(Sheets("Feuil1").Range("A1"), ",", "."), Operator:=xlAnd, _
                  Criteria2:="<" & Replace(Sheets("Feuil1").Range("B1"), ",", ".")

                .AutoFilter Field:=3, Criteria1:=">" & Replace(Sheets("Feuil1").Range("A2"), ",", "."), Operator:=xlAnd, _
                  Criteria2:="<" & Replace(Sheets("Feuil1").Range("B2"), ",", ".")
                End With
            End With
'           Exit Sub
'           ErrorExe:
'           Cells.Find(1, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate
            
            Rows("5:5").Select
            Selection.AutoFilter Field:=10, Criteria1:=">0"
            'Selection.AutoFilter Field:=11, Criteria1:="=0"

Logiquement le filtre, c'est sur la ligne 5, non?

Staple1600 · 5 Mars 2022

Re

Marcel32
Tu m'accorderas que normalement on ne trouve de formules dans les entêtes d'un filtre, non ?

Usine à gaz · 5 Mars 2022

Re-JM,
C'était juste un test et c'est inactif d'ailleurs le code est désactivé dans le code de la feuille

Staple1600 · 5 Mars 2022

Re

Il n'est pas désactivé puisque pas de guillemets devant...
Et ce code est dans l'userform!

Usine à gaz · 5 Mars 2022

si, si

Microsoft 365 filtrages que je ne parviens pas à coder

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires