Bonjour,
Mon code sert à copier les données d'un tableau d'une feuille vers le tableau d'une autre avec une condition.
Tout fonctionne correctement sauf qu'il me recopie systématiquement la ligne 2 de mon tableau que la condition soit remplie ou non.
Pouvez-vous jeter un coup d’œil sur mon code?
Merci par avance
Voici le code
Sub TreatData()
Dim z As Range, cel As Range
Set z = [Database].Columns(19).Find("*", LookIn:=xlValues)
If z Is Nothing Then Exit Sub
For Each cel In [Database].Columns(19).Cells
If cel.Value > 0 Then Set z = Union(cel, z)
Next
Intersect([Database[[Year]:[Jun]]], z.EntireRow).Select
Selection.Copy
Sheets("CustomerFreight").Activate
Cells(3, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mon code sert à copier les données d'un tableau d'une feuille vers le tableau d'une autre avec une condition.
Tout fonctionne correctement sauf qu'il me recopie systématiquement la ligne 2 de mon tableau que la condition soit remplie ou non.
Pouvez-vous jeter un coup d’œil sur mon code?
Merci par avance
Voici le code
Sub TreatData()
Dim z As Range, cel As Range
Set z = [Database].Columns(19).Find("*", LookIn:=xlValues)
If z Is Nothing Then Exit Sub
For Each cel In [Database].Columns(19).Cells
If cel.Value > 0 Then Set z = Union(cel, z)
Next
Intersect([Database[[Year]:[Jun]]], z.EntireRow).Select
Selection.Copy
Sheets("CustomerFreight").Activate
Cells(3, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub