Recuperer la valeur d'une cellule à l'issue d'un filtrage automatique

Hello la troupe,

Je souhaiterais récupérer la valeur d'une cellule après un filtrage automatique fait avec une date et un autre critère

Je vous joins le fichier qui sera plus parlant, j'ai mis un coloris sur la cellule que je veux recuperer

merci bien

lucy

Sub test()

Set wsVol = Sheets("Feuil1")

dateCalculation = "09/10/09"

With wsVol
    

        .AutoFilterMode = False

        .Range("A2").AutoFilter field:=1, Criteria1:="=" & dateCalculation, _
         Operator:=xlFilterValues

        .Range("A2").AutoFilter field:=2, Criteria1:="3M"

                    Set Rng = .AutoFilter.Range

End With
End Sub

Bonjour,

Peut-être ainsi ...

Sub test()

    Set wsVol = Sheets("Feuil1")
    dateCalculation = "09/10/2009"

    With wsVol
        .AutoFilterMode = False
        .Range("A2").AutoFilter Field:=1, Criteria2:=Array(2, CDate(dateCalculation)), Operator:=xlFilterValues
        .Range("A2").AutoFilter Field:=2, Criteria1:="3M"
        Set Rng = .AutoFilter.Range

        MsgBox Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    End With
End Sub

ric

Hello Ric,

Tu m'as donné la piste qui fallait pour exploiter la range, je vais adapter ça à mon code

Merci pour le retour et le code

Lucy