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
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