Reproduction d'un format de cellule

[Batemoun]

Bonjour à tout le forum,

Je reviens sur ce fil
http://www.excel-downloads.com/forum/90864-reproduire-une-mise-en-forme.html
J'ai compris tout ce qui se disait et cela fonctionne particulièrement bien.
J'ai cependant une exigence en plus...
Je voudrais coller uniquement la couleur du texte de la cellule (avec une sorte de xlPasteFont ou xlPasteColor...) mais je ne trouve pas le code exact...
Avez-vous une idée ?

Merci à vous

 

[Guest]

Re : Reproduction d'un format de cellule

Si j'ai bien compris le problème on peut contourner.

Dans un module :

Public MaCouleurFond As Integer

Sub CopierCouleurFond()
    MaCouleurFond = ActiveCell.Interior.ColorIndex
End Sub

Sub CollerCouleurFond()
    If MaCouleurFond > 0 Then ActiveCell.Interior.ColorIndex = MaCouleurFond
End Sub

 

[wilfried_42]

Re : Reproduction d'un format de cellule

bonjour

J'ai regardé le fil, pour une seule propriete d'une cellule, pas de copier coller

    Range("E1").Font.ColorIndex = Range("A1").Font.ColorIndex