Microsoft 365 filtrages que je ne parviens pas à coder

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #61

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 ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Mars 2022

• #62

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #63

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" ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Mars 2022

• #64

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #65

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,
🙂

 

Pièces jointes

• filtre_Marcel16L.xlsm

  46.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #66

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #67

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 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #68

Re

Moi je me suis basé sur le problème

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

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #69

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)

Cliquez pour agrandir...

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

 

Pièces jointes

• filtre_Marcel16L.xlsm

  45.9 KB · Affichages: 0

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 5 Mars 2022

• #70

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #71

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?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #72

Re

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #73

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #74

Re

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #75

si, si 🙂

 

Vote positif 0 Vote négatif