Bonjour,
je souhaiterais copier des cellules dans une feuille ("Traitement", ceux qui sont coloriés en jaune) puis les coller dans une autre feuille ("Restitution") mais les unes sous les autres, je ne vois pas comment faire
Voici mon code :
For i = 2 To Range("A65635").End(xlUp).Row
If Range("A" & i).Interior.ColorIndex = 6 Then
Range("A" & i).Select
Selection.Copy
Sheets("Restitution").Select
ActiveSheet.Paste
Sheets("Traitement").Select
End If
Next
End Sub
Merci de votre aide
je souhaiterais copier des cellules dans une feuille ("Traitement", ceux qui sont coloriés en jaune) puis les coller dans une autre feuille ("Restitution") mais les unes sous les autres, je ne vois pas comment faire
Voici mon code :
For i = 2 To Range("A65635").End(xlUp).Row
If Range("A" & i).Interior.ColorIndex = 6 Then
Range("A" & i).Select
Selection.Copy
Sheets("Restitution").Select
ActiveSheet.Paste
Sheets("Traitement").Select
End If
Next
End Sub
Merci de votre aide