Salut
j'ai ce code qui me permet de copier les données qui respectent une certaine condition dans un autre endroit de ma feuille. ça marche.
Par contre si j'essaie de faire la même chose pour copier les données sélectionnées dans une autre feuille (donc j'ajoute la ligne: Worksheets("Feuil2").Select ), alors ça ne marche plus.
Quelqu'un peut m'aider?
Merci
Private Sub copiercoller()
Application.ScreenUpdating = False
Dim CEL As Object
Set zona = Range(Range("A2"), Range("A65500").End(xlUp))
zona.Select
For Each CEL In zona
If CEL.Offset(0, 2) <> "" Then
Range(CEL, CEL.Offset(0, 1)).Select
Selection.Copy
'Worksheets("Feuil2").Select
Dim iRow As Integer
iRow = 10
While Cells(iRow, 6).Value <> ""
iRow = iRow + 1
Wend
Cells(iRow, 6).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next
j'ai ce code qui me permet de copier les données qui respectent une certaine condition dans un autre endroit de ma feuille. ça marche.
Par contre si j'essaie de faire la même chose pour copier les données sélectionnées dans une autre feuille (donc j'ajoute la ligne: Worksheets("Feuil2").Select ), alors ça ne marche plus.
Quelqu'un peut m'aider?
Merci
Private Sub copiercoller()
Application.ScreenUpdating = False
Dim CEL As Object
Set zona = Range(Range("A2"), Range("A65500").End(xlUp))
zona.Select
For Each CEL In zona
If CEL.Offset(0, 2) <> "" Then
Range(CEL, CEL.Offset(0, 1)).Select
Selection.Copy
'Worksheets("Feuil2").Select
Dim iRow As Integer
iRow = 10
While Cells(iRow, 6).Value <> ""
iRow = iRow + 1
Wend
Cells(iRow, 6).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next