Copier cellule en fonction de la couleur de fond sous VBA

[bartelele]

Bonjour à tous !

Petite pb qui m'agace un peu, je suis sur que je suis pas loin mais bon....


Dans ma premiere feuille j'ai des cellules en verte, je veux faire une macro qui me copie toute les cellules verte présente en feuil1 vers la feuil2.

Si joint un petite fichier explicatif...

Merci de votre aide

 

[phlaurent55]

Re : Copier cellule en fonction de la couleur de fond sous VBA

Bonjour bartelele

ton code modifié:

Sub Macro1()
'
Dim cell As Range
For Each cell In Sheets("Feuil1").Range("A5:A1000")
    If cell.Interior.Color = 5296274 Then
        cell.Copy
    Sheets("Feuil2").Select
    Sheets("Feuil2").Cells(Range("H65535").End(xlUp).Row + 1, 8).Select

    ActiveSheet.Paste
    End If
    
Next cell
End Sub

à+
Philippe

 

[bartelele]

Re : Copier cellule en fonction de la couleur de fond sous VBA

Super merci Philippe pour ton aide !