Problème avec utilisation d'une fonction dans les formules

Bonjour,

Voici ma fonction destinée à être utilisée dans une cellule comme formule :

Explications :
- 2 feuilles
- l'objectif est de chercher la Valeur_cherchée d'une 1ère feuille
- dans une colonne d'une autre feuille
- la fonction renvoie le n° de la couleur de la cellule trouvée

Code:

---

1 2 3 4 5 6 7

Function QUELLE_COULEUR(Valeur_cherchée As Range, Colonne As Range) As Integer   QUELLE_COULEUR = Sheets(Colonne.Worksheet.Name).Columns(Colonne.Column) _ .Find(Valeur_cherchée.Value, LookAt:=xlWhole) _ .Cells.Interior.ColorIndex   End Function

---

Mon problème :

La fonction marche.
Par contre, j'ai un souci lorsque je l'utilise en tant que formule, lors de la saisie de la formule avec les boîtes de dialogues.
En fait, si je commence à écrire la formule sur la feuille1 et je sélectionne dans la 2ème case (colonne) une feuille n°2... finalement la formule sera écrite sur la feuille n° 2 :aie:

Le problème provient de la fonction find qui va cherchée sur l'autre feuille... mais comment faire !!??

merci d'avance

a+

damsmut

Salut damsmut et le forum
Peut-être une solution (mais comme je ne comprends pas le sujet...)

Code:

---

1 2 3 4 5

Function QUELLE_COULEUR(Feuil_Val_cherchée as worksheet, Feuil_Recherche as worksheet, Valeur_cherchée As Range, Colonne As Range) As Integer QUELLE_COULEUR = Sheets(Feuil_Recherche).Columns(Colonne.Column) _ .Find(sheets(Feuil_Val_cherchée).Valeur_cherchée.Value, LookAt:=xlWhole) _ .Cells.Interior.ColorIndex End Function

---

A+

marche pas :-(

c'est bizarre, lorsqu'on met pour une variable "as worksheet" dans la déclaration de la fonction... plus rien ne se déclenche lorsque l'on utilise la fonction en formule !!

fais le test en mettant un point d'arrêt !!