problème copier/coller après filtre

llambry · 28 Novembre 2011

Bonjour

J'ai un problème avec copier coller après filtre lorsque qu'il n'y pas de données... il copie quand même toutes les valeurs ...
voilà un extrait de mon code vba
Selection.AutoFilter Field:=7, Criteria1:="=*emul*", Operator:=xlAnd
Selection.AutoFilter Field:=4, Criteria1:="=*300*", Operator:=xlAnd
' Sheets("F300").Select

On Error Resume Next
If ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible).Value(1, 1) = Empty Then '.value(1, 1)
MsgBox (Error)
Selection.AutoFilter
Exit Sub
End If

Range("B5:B550,F5:F550,J5:J550,L5:L550,P5550,Q5:Q550").Select
Range("P5").Activate
Application.CutCopyMode = False
Selection.Copy

Pierrot93 · 29 Novembre 2011

Re : problème copier/coller après filtre

Bonjour,

pour copier les éléments filtrés si au moins un est présent, ne copie pas la ligne de titre, à adapter à ton projet...

Code:

Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) > 0 Then
    p.Offset(1).Resize(p.Rows.Count - 1).Copy Sheets("Feuil2").Range("A1")
End If

bonne journée
@+

llambry · 29 Novembre 2011

Re : problème copier/coller après filtre

Ok merci je vais essayer...

problème copier/coller après filtre

llambry

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

llambry

XLDnaute Junior

Discussions similaires