Resultat d'un autofiltre

[ratou34]

Bonjour, le forum,
J'ai une petite question.
Je fais un filtre (grace à une userform)sur une feuille de données et une fois le tri effectué, je voudrais savoir si le resultat de mon tri m'a donné des lignes ou non (savoir s'il y à des données pour la recherche ou non).
Dans le cas ou je n'ai pas de ligne selectionne pour le critere, on sort du sub sinon, j'effectue un autre filtre sur une autre collone.
Merci d'avance

 

[Hervé]

Re : Resultat d'un autofiltre

bonjour

pour connaitre le nombre de lignes issues d'un filtre :

Application.Subtotal(3, Range("a2:a100"))

formule sous.total :

3=le type de fonction que l'on veut, ici le nombre de ligne
Range("a2:a100")=la plage à controler, attention aux entetes de colonnes

ensuite il te suffit de verifier que cette fonction ne renvoi pas 0 :

If Application.Subtotal(3, Range("a2:a100")) = 0 Then Exit Sub

salut

 

[ratou34]

Re : Resultat d'un autofiltre

Re
J'ai essayé ta formule et je n'ai pas 0 en retour (j'ai 27 je crois).
En fait, j'ai une feuille sur laquelle j'ai des données.
Ma premiere useform est un autofiltre sur une colonne particuliere.
Le resultat de ce tri est 30 lignes (correspondant à la recherche) sur les 3000 du depart
Puis on est dirigé sur une deuxieme useform qui fait un filtre sur les 30 lignes restantes.
Apres la deuxieme userform:
Si le resultat est qu'il n'y a plus de lignes visibles, je sort du sub
sinon il reste plusieurs lignes de données et l'execution de mon code ce poursuit.

Merci d'avance.

 

[ratou34]

Re : Resultat d'un autofiltre

Atteds je crois que je delire,
ca a l'air de bien marché
Je te tiens au courant

 

[ratou34]

Re : Resultat d'un autofiltre

re
Non en fait ca ne marche pas tout à fait
En fait, je fais un Range("A1").currentregion pour selectionner toutes les données.
Si ca peut t'aider
Merci d'avance

 

[ratou34]

Re : Resultat d'un autofiltre

Re
Je voulais te remercier car en changeant 2 ou 3 truques, ça a l'air de fonctionner.
Merci