Discussion :

[amaury57]

Comment tester que la selection filtrée ne renvoit rien
je pensais utiliser un count
mais celui ci me renvoit toutes les lignes de la fin de la page ...
ci dessous mon code
si ma selection est vide alors je voudrai la copier dans une autre page
puis la supprimer de a page initale

merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    'filtering the data
        Scriteria = "<" & Srcpdate
        Selection.AutoFilter Field:=IvPv_Cash, Criteria1:="CASH", Operator:=xlAnd
        Selection.AutoFilter Field:=IvEff_dt, Criteria1:=Scriteria, Operator:=xlAnd
        Selection.AutoFilter Field:=IvVal_dt, Criteria1:=Scriteria, Operator:=xlAnd
    'counting filter data
        'filtered data and title counting always equal to one minimum
        Set Rfilterdata = Wadjust.AutoFilter.Range
        IfilterCount = Wadjust.AutoFilter.Range.Count

[amaury57]

application.subtototal ne compte que les cellules visible ...
le resize permet de ne pas compter la ligne des en-têtes
On peut utiliser ce subterfuge pour verifier si l'application de filtres renvoit
une selection.
En fonction de cela on peut faire ce quye l'on veut. dans mon cas copier la selection dans une autre feuille
puis supprimer les lignes copiées ce que je cherchais à faire

L'utilisation des filtres semblent une manière rapide de faire une selection si l'on a pas trop de critères.
La gestion des date peut poser des soucis, en mettant le critère de selection date au formatnumber "0" , tout marche ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'criteria on effective date
        Scriteria = "<" & Sropdate
 
        Selection.AutoFilter Field:=IvPv_Cash, Criteria1:="PV", Operator:=xlAnd
 
        Selection.AutoFilter Field:=IvEff_dt, Criteria1:=Scriteria, Operator:=xlAnd
 
        Selection.AutoFilter Field:=IvVal_dt, Criteria1:=Scriteria, Operator:=xlAnd
 
    'copying the data if the selection is not empty
        'the instruction below list only the data without title
 
        Set Rfilterdata = Wadjust.AutoFilter.Range
        Set Rfilterdata = Rfilterdata.Offset(1, 0).Resize(Rfilterdata.Rows.Count - 1)
 
    If Application.Subtotal(3, Rfilterdata.Columns(1)) > 0 Then
        Rfilterdata.Copy

mais 14 willy waller ...