copie automatique de couleur

[niki]

Bonjour à tous,

merci de regarder le fichier joint, le but est :

- reporter la couleur de B2 en AA2
- reporter la couleur de B3 en AA3
et
- reporter la couleur de Y2 en AC2
- reporter la couleur de Y3 en AC3

merci d'avance

 

[Gérard DEZAMIS]

Bonjour Niki

en plaçant ce code dans un bouton :
Sub Tranf()
Range("B2:B3").Select
Selection.Copy
Range("AA2:AA3").Select
Selection.PasteSpecial Paste:=xlFormats
Range("Y2:Y3").Select
Selection.Copy
Range("AC2:AC3").Select
Selection.PasteSpecial Paste:=xlFormats
End Sub

ou alors en l'éxécuatnt automatiquement à l'ouverure du classeur ou même d'un changement de feuille
@+
GD