Copié/collé de la dernière cellule filtrée

bonjour,

j'aimerai avoir une formule (ou un code VBA) qui puisse trouver, copier et coller la dernière cellule de la colonne F (backlog), après filtrage (choix des dates ; colonne A) ; limite du filtre : f8 à f274.

d'avance, merci pour votre aide !

Bonjour,

Coller: OU

Sinon le code en attendant de savoir ou coller le résultat:

Sub Valeur_Derlig()
    dim Lig as long, NbLig as long
    Application.ScreenUpdating = False
    NbLig = Range("A" & Rows.Count).End(xlUp).Row - 2
    Lig = NbLig
    Do While Rows(Lig).Height = 0
        Lig = Lig - 1
    Loop
    BackLog = Cells(Lig, "F")
End Sub

Cdlt

Bonjour Arturo83,

avant tout, merci pour ta réactivité et ton dévouement !

j'aimerai coller le résultat en f277.

cdt

Bonjour à toutes et tous,

Une autre proposition !?

Cdlt.

Public Sub CopyLastValue()
Dim lo As ListObject, rng As Range, x
    Set lo = Range("Tableau11").ListObject
    On Error Resume Next
    Set rng = lo.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not rng Is Nothing Then
        x = VBA.Split(rng.Address, ":")
        Range("F277").Value = Range(x(UBound(x))).Offset(, 5).Value
    End If
End Sub

Bonjour Jean Eric (parce qu'ici il est 09h55 ; Nouvelle Calédonie)

Super !

C'est exactement ce que je voulais ; merci à toi !

Par contre, pour ma culture VBA, est-il possible d'avoir une "traduction" du code ?

D'avance, merci et bonne nuit ! :)