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