FONCTION RECHERCHEV avec 2 critères avec retour de la couleur de la cellule

[masson]

Bonjour à tous
Je cherche à créer une fonction type RECHERCHE V sur 2 critères. Le résultat doit être la couleur de la cellule
Sachant que le 1er critère est la ligne et le 2eme la colonne.
J'ai regardé sur le forum, j'ai presque trouver la solution. mais rien n'y fait. J'ai commencé à créer la fonction.

Je vous joins le fichier idéal.
encore MERCI POUR VOTRE AIDE

 

[Compte Supprimé 979]

J'ai regardé sur le forum, j'ai presque trouver la solution. mais rien n'y fait. J'ai commencé à créer la fonction.

C'est ça que tu appelles commencé à créer... effectivement, c'est vraiment le balbutiement

Function RECHERCHEV_DOUBLE_CRITERES(Table_Matrice As Range, Valeur_Ligne_Recherche As Range, Valeur_colonne_Recherche As Range)

End Function

 

[Compte Supprimé 979]

Bon sinon, voici la fonction

' Fonction de recherche de couleur, appelée comme suit
' =RechercheCouleur(PlageRechercheLigne, CritèreRechercheDansLignes, PlageRechercheColonne, CritèreRechercheDansColonne)

Function RechercheCouleur(RngLigSearch As Range, CelLigCrit As Range, RngColSearch As Range, CelColCrit As Range)
  Dim Col As Long, Lig As Long
  ' Chercher la valeur dans les ligne de la plage
  Lig = RngLigSearch.Find(What:=CelLigCrit.Value, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
  ' Chercher la valeur dans les colonne
  Col = RngColSearch.Find(What:=CelColCrit.Value, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False).Column
  ' Récupérer la couleur de la cellule au croisement de la ligne/colonne
  RechercheCouleur = Cells(Lig, Col).Interior.Color
End Function

Que tu appelles de cette façon

=RechercheCouleur(A2:A12;E20;C1:H1;E21)

 

[masson]

Bonjour Bruno,
Je comprends ta remarque (c'est le balbutiement ), je ne suis pas développeur. Mais je m'inspire du site ou je trouve bcp de réponses.

Encore merci pour ton aide précieuse. Je vais gagner bcp de temps dans mon quotidien.
Au plaisir d'échange avec toi et le forum.