test de protection sur filtre (résolu)

[Philippe63000]

Bonsoir,

Bonnes fêtes et merci d'avance pour votre aide.

J'utilise un filtrage du type ci-dessous. Et dans une routine(tableau_filtre()), je récupère les valeurs retenues par le filtrage pour les mettre dans un tableau.
J'aimerais incérer un test pour tenir compte du cas où le filtrage donne l'ensemble vide (pas de valeur qui répond à la consigne du filtrage).
Car sans ce test le programme me signale une erreur lors de l'appel de la routine tableau_filtre()

[A5].AutoFilter Field:=2, Criteria1:=">=" & valeur, Operator:=xlAnd

 

[youky(BJ)]

Re : test de protection sur filtre

Bonsoir Philippe,

[A5].AutoFilter Field:=2, Criteria1:=">=" & valeur, Operator:=xlAnd
If Application.Subtotal(3, [A:A]) = 1 Then MsgBox "rien à copier": Exit Sub

modifie le 1 (en rouge) qui est le nbre de lignes de A1 à A5
L'entête fait 1 ligne donc =1 mais si tu as d'autres données au dessus faut mettre plus.
Bruno

 

[Philippe63000]

Re : test de protection sur filtre

Bonsoir,

Merci pour vos compétences.
Meilleurs voeux.

 

[Philippe63000]

Re : test de protection sur filtre

Bonsoir,
Je croyais avoir compris et m'en sortir et ce n'est pas le cas. Pardon.
La base de données commence en ligne 6.
que dois-je écrire pour tenir compte du cas où le filtrage donne l'ensemble vide?
[A5].AutoFilter Field:=2, Criteria1:=">=" & seuil1, Operator:=xlAnd
If Application.Subtotal(3, [A:A]) = 6 Then

A quoi correspond le '3'.

Merci d'avance,

 

[youky(BJ)]

Re : test de protection sur filtre

Re,
Bonsoir le 3 dit le nbre de valeurs.
Comme j'ai mis [A:A] et que tu commences à la ligne 6 il faut mettre le nbre de valeurs de A1:A5
C'est pas sorcier
Bon réveillon
Bruno

 

[Philippe63000]

Re : test de protection sur filtre

Merci
Bonne année

 

[Philippe63000]

Re : test de protection sur filtre (résolu)

Re,
A priori pour que cela fonctionne il faut écrire:
[A6].AutoFilter Field:=2, Criteria1:=">=" & seuil1, Operator:=xlAnd
If Application.Subtotal(3, [A6:A65535]) = 1
J'aurais aimé avoir les petites flèches (symbôle du filtrage ) en ligne 5 mais je n'y arrive pas!!