Discussion :

[SBranchu]

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

[Patrice740]

Bonjour,

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").

Il s'agit là d'une fonction qui correspond uniquement à ton besoin particulier : chercher une valeur sur la première ligne et une autre sur la première colonne pour fournir ce qui se trouve à l'intersection (ça fait très bataille navale).
Je ne vois pas pourquoi les développeurs l'auraient intégré à Excel.

[SBranchu]

Il s'agit là d'une fonction qui correspond uniquement à ton besoin particulier : chercher une valeur sur la première ligne et une autre sur la première colonne pour fournir ce qui se trouve à l'intersection (ça fait très bataille navale).
Je ne vois pas pourquoi les développeurs l'auraient intégré à Excel.

Certes, mais n'ont-ils pas créé un RechercheH et un RechercheV, pourquoi pas un RechercheHV, mais j'ai bien compris l'idée...
Ma demande était plus sur le fait d'aller chercher la donnée sur une table dans un autre fichier...
Merci de votre aide,
Bien à vous,
SB

[halaster08]

Sauf erreur de ma part, ça vient de sortir officiellement:
https://www.developpez.net/forums/d2...ion-recherche/

edit: Merci Jacques pour la précision, étant bloqué dans une vielle version j'avais lu la news en diagonale j'ai cru comprendre que c'était ça.

[boisgontierjacques]

Bonjour,

>Sauf erreur de ma part, ça vient de sortir officiellement:

La fonction Recherchex() remplace Equiv/Index mais n'est pas une recherche dans un tableau 2D.


Boisgontier

[Patrice740]

Bonjour,

Ma demande était plus sur le fait d'aller chercher la donnée sur une table dans un autre fichier...

Pour que ça fonctionne avec un autre classeur, il ne faut pas chercher dans le fichier actif avec Worksheets(Feuille), mais dans la feuille qui contient le Range :

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
Function RechTab2D(varPlage As Range, varX, varY)
Dim Feuille As Worksheet
    Application.Volatile
    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
    Set Feuille = varPlage.Parent
    For x = 0 To NbCol - 1
        If Feuille.Cells(Posy, PosX + x) = varX Then xTrouve = True: Exit For
    Next
    For y = 0 To NbLig - 1
        If Feuille.Cells(Posy + y, PosX) = varY Then yTrouve = True: Exit For
    Next
    If xTrouve And yTrouve Then
        RechTab2D = Feuille.Cells(y + Posy, x + PosX).Value
    Else
        RechTab2D = CVErr(xlErrNA)
    End If
End Function

[SBranchu]

Tout simplement Tip Top !

Merci

SB