Discussion :

[damsmut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

merci d'avance

a+

damsmut

[Gorfael]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[damsmut]

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 !!