Détection filtre

C'est marrant j'y est pas déjà eu droit à celle là ?

Je peux pas filer l'excel sinon ça serait déjà fait et on en parlerai plus.

1) Tu as écris : « Ça marche super bien pour chauffage mais seulement lui. » ;
si ça retourne bien Criteria1 "=CHAUFFAGE", il n'y a pas de raison pour que
ça ne retourne pas "=SANITAIRE" ou "=ELECTRICITÉ".

Mais peut-être ta 1ère question n'était pas pour la même colonne, mais pour
les autres ? Dans ce cas, il suffit de mettre le bon n° de filtre, c'est-à-dire
le n° de la colonne correspondante. Donc :

a) Pour la colonne 1 "Adhérent", c'est le filtre 1
b) Pour la colonne 2 "Activité", c'est le filtre 2
c) Pour la colonne 3 "Fournisseur", c'est le filtre 3
d) Pour la colonne 4 "Prix de vente", c'est le filtre 4
e) Pour la colonne 5 "Prix de revient", c'est le filtre 5

Donc il te suffit de mettre le bon n° n pour :
Worksheets("Feuil1").AutoFilter.Filters(n).Criteria1

Mais laisse Criteria1 ! Criteria2 est pour un test qui comprend 2 valeurs.

Exemple : est supérieur ou égal à 20 Et est inférieur ou égal à 100.
Dans ce cas, Criteria1 : ">=20" et Criteria2 : "<=100".

-------------------------------------------------------

2) Regarde cette ligne de code :

MsgBox Worksheets("Feuil1").AutoFilter.Filters(n).On
n est le n° de colonne du tableau = n° du filtre
On est celui de On / Off : actif ou non

S'il n'y a pas de critère de filtre pour la colonne en question,
ça retourne FAUX ; dans le cas contraire, ça retourne VRAI,
et seulement à ce moment-là, interroge les critères de filtre.

Pour ce que tu demandes, je crois bien qu'il n'y a pas d'autre moyen
que de comparer, pour chaque filtre, les valeurs « avant » et « après »
d'abord de On, puis éventuellement de Criteria1 et Criteria2.

Car si On était avant FAUX puis est devenu après VRAI (ou inversement),
ça suffit pour déterminer que le filtre de la colonne en question a été
modifié : inutile alors de tester Criteria1 (et encore moins Criteria2).

Je veux dire par là qu'il faudra tester Criteria2 seulement si, pour avant
et après : On = VRAI et Criteria1 est le même.

Et il faut voir aussi .Operator : 1 pour Et ; 2 pour Ou

-------------------------------------------------------

3) Quand on utilise un filtre automatique, heureusement que les lignes qui
ne correspondent pas au(x) critère(s) sont seulement masquées et pas
supprimées ! C'est tout à fait normal, et c'est ce qui permet aussi de :

a) Changer de critère, et voir de nouveau les lignes auparavant masquées
qui correspondent au(x) nouveau(x) critère(s).

b) Désactiver le filtre automatique, et voir de nouveau toutes les lignes
du tableau.

Mais si ta ligne de code :

LastLineFeuil1 =Worksheets(1).Range("C"&Rows.Count).End(xlUp).Row

ne te renvoie pas le n° de la dernière ligne, la seule explication que
je vois est que tu as une ou plusieurs autre(s) donnée(s) sous ton
tableau, et donc le .End(xlUp).Row bute dessus, avant de pouvoir
« rencontrer » la dernière ligne de ton tableau située plus haut.

À te lire.  😊
 

Merci beaucoup ça me fait bien avancer.
Du coup pour compter les lignes non masqués j'ai fais ceci :

LastLineFeuil1 = Worksheets(1).Range("D" & Rows.Count).End(xlUp).Row
For l = 4 To LastLineFeuil1
    If Not Rows(l).Hidden Then R = R + 1
Next l

Probablement pas la meilleurs solution mais ça fais ce qu'on lui demande.

Ensuite j'ai un problème assez hasardeux :

If (Worksheets(1).AutoFilter.Filters(4).On = True) Then
    MsgBox Worksheets(1).AutoFilter.Filters(4).Criteria1
    MsgBox (R)
Else
    MsgBox ("Filtre fournisseur non utilisé")
End If

J'ai juste décaler la colonne de test mais j'ai une erreur qui arrive parfois, je n'arrive pas à identifier la source. Erreur '91' Variable objet ou variable de bloc non définie.

Si je comprend ce qu'il veut dire ne devrait-il pas rentrer dans le else de ma boucle ?
Ensuite je n'est pas bien compris comment tester le changement de filtre.
Je stock dans un string la valeur du filtre actuel et ensuite je compare celui-ci avec le prochain ?

L'utilisateur devra forcément utiliser un bouton pour lancer le test non ?

A plus.

Bonjour Shadorb,

1) Pour compter les lignes non masquées, essaye plutôt ceci :

LastLineFeuil1 = Worksheets(1).Range("D" & Rows.Count).End(xlUp).Row
R = WorksheetFunction.Subtotal(103, Range("D4:D" & LastLineFeuil1))

- plus besoin de boucle For l.. Next l (L minuscule, pas i majuscule)
- plus besoin de test If Not Rows(l).Hidden Then R = R + 1

Mais attention à toujours laisser 103 : c'est le code de NBVAL
pour que la fonction Subtotal retourne le nombre de valeurs
de la plage indiquée, tout en ignorant les lignes masquées.

---------------------------------------------------------

J'ai mis la même ligne de départ que toi : 4 ; en supposant que ta ligne
d'en-têtes est en ligne 3, et que la 1ère ligne de donnée est la 4, juste
en dessous.

J'ai aussi gardé ta même colonne D, mais tu peux en choisir une autre
si tu préfères. De toute façon le résultat sera identique, puisque pour
toutes les colonnes de ton tableau, les lignes masquées sont bien sûr
les mêmes.

---------------------------------------------------------

Pour plus de renseignements sur la fonction utilisée, tape dans une cellule vierge
de ta feuille Excel : =sous.total( ; clique sur fx qui est devant la barre de formule,
et regarde l'aide en ligne. N'oublie pas le point ( . ) entre « sous » et « total » !

=================================

2) Dans ton Else, il y a : "Filtre fournisseur non utilisé", ce qui indique donc que
tu testes le filtre de la colonne « Fournisseur ». Or sur la copie d'écran de ton
tableau initial, c'est la colonne n° 3 ; donc ton filtre est le n° 3, pas le 4 !

À moins, bien sûr, que tu aies ajouté une autre colonne avant, mais je ne crois
pas ; mais si tu as changé la structure de ton tableau, envoies-moi une autre
copie d'écran (avec les numéros de lignes et lettres de colonnes) !

---------------------------------------------------------

Tu as mis des parenthèses inutiles, ce qui me donne à penser que tu as déjà
programmé en Turbo-Pascal auparavant, non ?  😉

Le test « = True » est inutile aussi ; les 2 MsgBox successifs peuvent être réunis
en un seul (avantage : 1 seule box au lieu de 2) ; et en « factorisant » le filtre 3,
cela donne :

With Worksheets(1).AutoFilter.Filters(3)
  If .On Then
    MsgBox .Criteria1 & vbLf & R
  Else
    MsgBox "Filtre fournisseur non utilisé"
  End If
End With

D'autre part, remarque bien que tes 2 lignes précédentes pour calculer R
sont utiles seulement si on affiche ce R ; donc comme c'est utile pour
la 1ère partie du If seulement, et pas pour le Else, on déplace les
2 lignes en question dans le If, avant utilisation du R :

With Worksheets(1).AutoFilter.Filters(3)
  If .On Then
    LastLineFeuil1 = Worksheets(1).Range("D" & Rows.Count).End(xlUp).Row
    R = WorksheetFunction.Subtotal(103, Range("D4:D" & LastLineFeuil1))
    MsgBox "Critère : " & .Criteria1 & vbLf & "Nombre de lignes : " & R
  Else
    MsgBox "Filtre fournisseur non utilisé"
  End If
End With

---------------------------------------------------------
Attention !

Ne déplace pas ta 1ère ligne si la suite de ton code doit utiliser LastLineFeuil1 ;
ne déplace pas ta 2ème ligne si la suite de ton code doit utiliser R.
---------------------------------------------------------

Tu remarqueras aussi que j'ai ajouté un petit texte devant l'affichage du critère
et devant R ; si tu aimes moins, mets un autre texte, ou enlève « "..." & ».

=================================

3) L'erreur 91 ne concerne pas le fait de rentrer dans le Else ou non ; si c'est
« Variable objet non définie », ça signifie que VBA ne trouve pas un objet
dont dépend quelque chose (expression, méthode, propriété ou autre) ;
si c'est « Variable de bloc non définie », le bloc n'est pas forcément un bloc
If .. Then .. Else, ça peut être aussi un bloc With .. End ou autre...

Je ne pense donc pas que ton erreur 91 était due à ton erreur de n° de filtre,
mais regarde déjà si elle se reproduit alors que tu as mis le filtre n° 3 (avec
mon code ci-dessus). Car si ça s'est arrangé, inutile de voir plus loin !

Par contre, si ça se reproduit, il faudrait que tu me montres la partie de code
où ça se produit, et aussi, dis-moi sur quelle ligne ça s'arrête et met du jaune
quand tu cliques sur le bouton débogage.

=================================

4) Le fait de mettre en place un bouton pour que l'utilisateur lance lui-même
la macro qui teste s'il y a eu ou non un changement de filtre dépend de ce
que tu veux faire ; et dans quel but voudrais-tu que l'utilisateur sache que
le filtre a été modifié ?

Ce n'est donc pas obligé que ce soit l'utilisateur qui lance lui-même ce test :
si tu en as vraiment besoin, tu peux le faire automatiquement via VBA,
sans aucune intervention de l'utilisateur ; et en sachant à quel moment
tu veux que ça fasse ce test : par exemple, seulement en lançant la macro
correspondante, ou selon un événement du genre « sur activation de
la feuille Worksheets(1) » ou autre...

=================================

Ce présent message est déjà super long, aussi, pour la façon de tester
le changement de filtre on verra ça une autre fois, quand tu auras réglé
tous les problèmes ci-dessus.

Cordialement.  😊
 

Quand t'explique tu le fais pas à moitié, c'est cool !

En effet le tableau à légèrement changé, et avec le filtre ci-dessous activé ça plante.
http://hpics.li/59c9dff

Comme je sais pas mettre en jaune sur le site jte remet une image de débogage.
http://hpics.li/dbc6d44

Franchement je comprends pas cette erreur. J'ai bien activer le filtre numéro 4. je dois pas comprendre quelque chose avec le fonctionnement des filtres.