Excel Downloads Forums - Afficher un message

jeromegmc · 02/12/2005, 16h51

Salut,

Voici un code permetant de copier la valeur et la couleur de police de la cellule A1 vers la cellule A2:

Code:

With Range('A2')
    .Value = Range('A1').Value
    .Font.ColorIndex = Range('A1').Font.ColorIndex
End With

A+

02/12/2005, 16h51	#2 (permalink)
jeromegmc XLDnaute Occasionel Date d'inscription: juin 2005 Messages: 229	Re:copie de formats Salut, Voici un code permetant de copier la valeur et la couleur de police de la cellule A1 vers la cellule A2: Code: With Range('A2') .Value = Range('A1').Value .Font.ColorIndex = Range('A1').Font.ColorIndex End With A+