Aplliquer une couleur sur une cellule

[Dom]

Bonjour à tous

Pourriez-vous m'aider SVP !!!

Voici une partie de mon prog où réside un problème :

Set Rech2 = Worksheets("TCouleur").Range("NomsRech2").Find(CodeUtil, LookIn:=xlValues, LookAt:=xlWhole)
MsgBox (Rech2.Address)
MsgBox (Rech2.Offset(columnoffset:=-52).Address)
With Selection.Interior
.ColorIndex = Rech2.Offset(columnoffset:=-52)
End With

1) Rech2 me permet de chercher dans la colonne "Nomsrech2" le code saisi par un utilisateur
2) Une fois l'utilisateur trouvé, je désire appliquer à la cellule active la couleur se trouvant 52 colonnes à gauche.
3) C'est dans le With Selection.Interior que çà pèche
Si je mets .ColorIndex = 6 et 7 ou 8 j'obtients une couleur "of course"
4) Mais c'est la déclaration = "Rech2.offset(columnoffset:=-52)" qui est très mauvaise (comme moi d'alleurs) !!!

Merci d'avance au Forum

Bisous

 

[Robert]

Salut Dom, salut le forum,

sans m'être penché vraiment sur ton problème je te propose ceci :

.ColorIndex = Rech2.Offset(columnoffset:=-52).Interior.ColorIndex

à la place de

.ColorIndex = Rech2.Offset(columnoffset:=-52)


À plus,

Robert

 

[Dom]

Merci ça fonctionne correctement

@ +