XL 2016 Récupérer valeur après filtre

[Didou1]

Bonjour le forum,

J'utilise un filtre automatique à partir de la ligne 20. sur la Feuil2

Après le filtre je souhaite récupérer les valeurs

J'arrive à récupérer la première ligne
Mais impossible de récupérer la valeur suivante que je dois transféré sur la feuil1 en B12
Voici le code que j'utilise

Feuil1.Range("B11").Value = Feuil2.Range("B21:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value



Suis sur la bonne solution

Merci de votre aide

 

[dg62]

Bonjour Didou

Sub copie()
Feuil2.Range("B21:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Feuil1.Range("B11").PasteSpecial
End Sub

 

[Didou1]

Bonjour DG62

Je voulais éviter un copier coller
Car à partir de la ligne B 15 de la feuil1

il y a des informations

 

[Staple1600]

Bonjour le fil,

Si j'ai bien compris la problématique

Sub RecopieSansCopie()
Dim f As Worksheet, DerCol&, lig&, t
Set f = ActiveSheet
DerCol = f.Cells(19, f.Columns.Count).End(xlToLeft).Column ' à adapter selon besoin
   With f.AutoFilter.Range
       lig = .Offset(1, 0).SpecialCells(12).Row
      t = Range(f.Cells(lig, 2), f.Cells(lig, DerCol)).Value
    End With
Feuil2.Range("B12").Resize(UBound(t, 1), UBound(t, 2)).Value = t
End Sub