Bonjour à tous,

En me lançant dans ce petit code, j'étais certain d'y arriver, pourtant je bute sur je ne sais quoi, cela ne fonctionne pas.

Dans un tableau, j'ai besoin de trouver une valeur à l'intérieur de la colonne d'en tête, une autre valeur sur la ligne d'en-tête et d'afficher dans ma cellule la donnée à l'intersection de la ligne et de la colonne.
Il m'a parut simple de créer pour cela une fonction, mais j'obtiens une erreur #valeur!...
Qu'est ce qui bug ? Merci pour votre aide.

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Intersection(Argument1, Argument2, plage1, plage2) As Variant
 
Dim Resultat As Range
Dim x As Range
Dim y As Range
 
Set x = Sheets("Débits").plage1.Cells.Find(Argument1)
Set y = Sheets("Débits").plage2.Cells.Find(Argument2)
 
Resultat = Intersect(Range("x"), Range("y"))
ActiveCell.Value = Resultat.Value
 
End Function