Macro VBA
Bonjour,
je cherche a faire une macro qui me copie toutes les lignes dont les cellules sont en jaunes et rose à partir de la colonne C4 dans une autre feuille.
il faut également qu'il me prenne le titre (cellule fusionnée C1) pour chaque partie, ainsi que les cellules A1, B1
je cherche a faire une macro qui me copie toutes les lignes dont les cellules sont en jaunes et rose à partir de la colonne C4 dans une autre feuille.
il faut également qu'il me prenne le titre (cellule fusionnée C1) pour chaque partie, ainsi que les cellules A1, B1
2 réponses
-
Bonjour,
Contrôler qu'elle est la plage sélectionnée par l'instruction :
Range(Selection, Cells(1)).Select
Car seul les cellules contenues dans cette plage peuvent-être copier et coller sur la feuille 2.
-
voici la macro que j'ai ecrit :
Dim Rw As Range
Dim Ligne As Long
Dim Cellule As Range
Sheets("Feuil1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 8).Interior.ColorIndex = 6 Then
Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 3).EntireRow
End If
Next Rw
End Sub
cette macro ne fonctionne pas très bien car elle ne prend pas en compte les autres cellules jaunes a partir de K4.
