Copier Coller Couleur Police et remplissage Plage Cellule

Bonjour,

J'aimerai copier coller la couleur de police et le remplissage d'une plage de cellule à une autre.

Ma ligne de code ne marche pas...

Workbooks("DOUBLECHECK.XLSM").Sheets("AMY").Range("C7:O150").Interior.Color = Workbooks("Résultats Amy.XLSX").Sheets("Feuil1").Range("G2:S145").Interior.Color

Des idées...?

Merci!

Bonjour,

si les cellules n'ont pas tous la même couleur tu doit le faire un par un (boucle)

si ils ont tous la même couleur

Workbooks("DOUBLECHECK.XLSM").Sheets("AMY").Range("C7:O150").Interior.Color = Workbooks("Résultats Amy.XLSX").Sheets("Feuil1").Range("G2").Interior.Color
Workbooks("DOUBLECHECK.XLSM").Sheets("AMY").Range("C7:O150").Font.Color = Workbooks("Résultats Amy.XLSX").Sheets("Feuil1").Range("G2").Font.Color

Merci! Je comprend mieux!

Peux tu me faire la boucle?

re,

à tester,

note/ les 2 fichiers doivent être ouvert

Sub test()
Set wk1 = Workbooks("DOUBLECHECK.XLSM")
Set sh1 = wk1.Sheets("AMY")
Set wk2 = Workbooks("Résultats Amy.XLSX")
Set sh2 = wk2.Sheets("Feuil1")

For Each c In Range("C7:O150")
  x = c.Address
  r = Cells(c.Row - 5, c.Column + 4).Address
  sh1.Range(r).Interior.Color = sh2.Range(x).Interior.Color
Next c
End Sub

Salut,

C'est bon, merci!

Rechercher des sujets similaires à "copier coller couleur police remplissage plage"