Reproduction d'un format de cellule

Batemoun · 14 Mars 2008

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 · 14 Mars 2008

Re : Reproduction d'un format de cellule

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

Dans un module :

Code:

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 · 14 Mars 2008

Re : Reproduction d'un format de cellule

bonjour

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

Code:

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

Reproduction d'un format de cellule

Batemoun

XLDnaute Nouveau

Guest

Guest

wilfried_42

XLDnaute Barbatruc

Discussions similaires