copie couleur de fond

[Guillaumega]

Bonjour,

Je cherche à faire une copie de la couleur de fond d'une cellule ainsi que de la couleur de police.

Pour copier l'intégralité du format, voici la formule. Pourriez vous s'il vous plait m'aider à l'adapter?

Merci!!
Guillaumega

c.PasteSpecial Paste:=xlPasteFormats

 

[merinos]

Re : copie couleur de fond

Range("A13").Interior.Color = Range("E13").Interior.Color
Range("a13").Font.Color = Range("E13").Font.Color

 

[Guillaumega]

Re : copie couleur de fond

Merci, comment dois-je faire pour l'intégrer dans la procédure suivante s'il vous plait?

Private Sub Worksheet_Activate()
  Application.ScreenUpdating = False
   For Each c In Cells.SpecialCells(xlCellTypeFormulas, 2)
    Set z = [Couleurs].Find(c.Value, LookAt:=xlWhole, LookIn:=xlValues)
    If Not z Is Nothing Then
      z.Copy
      c.PasteSpecial Paste:=xlPasteFormats
    End If
   Next c
End Sub

 

[Fred0o]

Re : copie couleur de fond

Bonsoir Guillaumega, Merinos.

Voici le code contenant la sub modifiée.

Private Sub Worksheet_Activate()
  Application.ScreenUpdating = False
   For Each c In Cells.SpecialCells(xlCellTypeFormulas, 2)
    Set Z = [Couleurs].Find(c.Value, LookAt:=xlWhole, LookIn:=xlValues)
    If Not Z Is Nothing Then
[B][COLOR=Red]      c.Font.Color = Z.Font.Color
      c.Interior.ColorIndex = Z.Interior.ColorIndex[/COLOR][/B]
    End If
   Next c
End Sub

A+

 

[Guillaumega]

Re : copie couleur de fond

C'est super merci beaucoup !
Bonne nuit
Guillaumega

 

[matt31]

Re : copie couleur de fond

Bonjour,
je reprends ce post car j'aurais voulu savoir si on pouvait adapter cette macro pour en faire un fonction personnalisée qui permettrait en l'insérant dans une cellule à aller chercher le format et le contenu d'une autre cellule.

Merci pour votre aide

 

[Fred0o]

Re : copie couleur de fond

Bonjour matt31, une fonction (personnalisée ou non) ne permet pas de modifier le format d'une cellule mais seulement son contenu. Pour faire ce que tu demandes, il faudrait passer par une procédure évènementielle.

A+

 

[matt31]

Re : copie couleur de fond

merci pour la réponse.

Je reprends donc mon problème d'un autre post.
J'ai un planning général qui est corrigé presque tous les jours par les agents sur différents sites.
Pour des raisons de gestion et de recherche, sur chaque site j'ai un planning site. Je voudrais que ce planning se remplisse automatiquement en fonction du planning général mais en conservant la couleur de fond et le contenu de chaque cellule.
Manuellement c'est impossible à faire car il y a une 30aine de sites et une 10aine d'agents par site, 12 feuilles par classeur...

Je suis complètement débutant en macro et j'ai vraiment besoin d'aide.