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

Didou1 · 20 Novembre 2019

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 · 20 Novembre 2019

Bonjour Didou

VB:

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

Didou1 · 20 Novembre 2019

Bonjour DG62

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

il y a des informations

Staple1600 · 23 Novembre 2019

Bonjour le fil,

Si j'ai bien compris la problématique

VB:

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

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

Didou1

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

Didou1

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires