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