VBA copier couleurs uniquement

[Kouik Kouik jr]

Bonsoir,

j'essaie actuellement de copier d'une feuille excel a une autre les cellules coloriée uniquement de la première feuille excel.

Je bloque a ce niveau depuis quelques temps

De plus, le but est de transposer les couleurs copiées du 1er fichier excel tel quelles sur le 2ème fichier excel qui contient lui aussi des données sans modifier les données présentes.



Quelqu'un aurait il une petite idée, suggestion ou information ?


Un gros merci d'avance 😀😀

Sub Copier()

Sheets("Feuille_finale").Select

Worksheets("Feuille_finale").Cells.Interior.ColorIndex = Worksheets("HSBC").Cells.Interior.ColorIndex

End Sub

 

[Catrice]

Re : VBA copier couleurs uniquement

Bonsoir,

Tu peux essayer ceci :

Sub Copier()
With Worksheets("HSBC")
For Each X In .Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell))
Worksheets("Feuille_finale").Cells(X.Row, X.Column).Interior.ColorIndex = X.Interior.ColorIndex
Next
End With
End Sub



Voir le fichier joint

 

[Kouik Kouik jr]

Re : VBA copier couleurs uniquement

Impeccable ca marche.....du vrai travail de pro en un temps record

c'est ou que je dois payer ? ....hihihihi...... merci bcp 🙂