Couleur de cellule

bonjour

Une question toute bete , mais dont j'ai pas la réponse .....

la cellule a1 de ma feuille de calcul contient des caractères écrit en couleur rouge , à présent si j'ecris

range("h7")= range("a1") , j'obtiens bien en h7 le contenu de la cellule a1 mais pas la couleur , comment

garder la couleur sans utiliser le copier coller mais juste l'egalité ?

Merci pour vos réponses

me suis lancé un peu vite à la reflexion :

range("h7")= range("a1")
range("h7").font.colorindex= range("a1").font.colorindex

merci quand meme

Bonjour,

Essaye comme ça :

If [H7] = [A1] Then [H7].Font.ColorIndex = [A1].Font.ColorIndex

Merci raja , ca m'a l'air effectivement plus simple