Bonjour à toutes et à tous,
comme j'en avais assez des Index Equiv pour rechercher dans des tableaux à 2 entrées, je me suis créé ma petite fonction sans prétention qui fait son office (je ne comprends pas pourquoi les développeurs Excel n'ont pas fait cette fonction en "base").
Je suppose qu'il y a moyen de faire mieux ou plus sioux mais ça fonctionne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function RechTab2D(varPlage As Range, varX, varY)
 
    Application.Volatile
 
    Feuille = varPlage.Worksheet.Name
 
    If IsMissing(varX) Or IsMissing(varY) Then RechTab2D = CVErr(xlErrNA): Exit Function
 
    PosX = varPlage.Column
    Posy = varPlage.Row
 
    NbCol = varPlage.Columns.Count
    NbLig = varPlage.Rows.Count
 
    For x = 0 To NbCol - 1
        If Worksheets(Feuille).Cells(Posy, PosX + x) = varX Then xTrouve = True: Exit For
    Next
 
    For y = 0 To NbLig - 1
        If Worksheets(Feuille).Cells(Posy + y, PosX) = varY Then yTrouve = True: Exit For
    Next
 
    If xTrouve And yTrouve Then
        RechTab2D = Worksheets(Feuille).Cells(y + Posy, x + PosX).Value
    Else
        RechTab2D = CVErr(xlErrNA)
    End If
 
End Function
sauf que cela ne fonctionne pas si la table est dans un autre Workbook...

Je suis preneur de toutes vos idées,,liens etc..
Bonne journée à vous,
SB