copier-coller d'un tableau apres filtre

[timtof]

bonjour à tous,

j'ai déjà écrit mais je ne vois pas ma nouvelle discussion alors je réessaie.

j'essaye de copier un tableau filtré dans une autre feuille sans succès...

Je joins un petit fichier.

Merci pour votre aide.
Tim

 

[DoubleZero]

Re : copier-coller d'un tableau apres filtre

Bonjour, timtof, le Forum,

Peut-être ainsi :

Sub Résultat_du_filtre_copier()
    Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
      Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(".").Range("a2")
End Sub

A bientôt