Discussion :

[mayayu]

Bonjour,

Je voudrais faire une recherche verticale selon 2 critères dans 2 colonnes en VBA.
Les formules INDEX et EQUIV semblent être prometteuses, à l'image de ce qui est fait dans cette image (issue du cours https://silkyroad.developpez.com/excel/indexequiv/) :

Cela se complique quand j'essaie de passer au VBA, que ce soit :

• avec les fonctions "Application.WorksheetFunction.Index" et "Application.WorksheetFunction.Match", car je ne vois pas comment faire les tests logiques dans l'exemple
• avec la fonction Application.Evaluate (et les formules INDEX/EQUIV), car je pense que je dois passer à côté de quelque chose concernant le fait que ce soit une formule matricielle
• avec les fonctions SumIfs ou ProductIfs, ça ne marche pas car mon résultat est du texte pas des chiffres comme dans l'exemple...

Quoique je fasse, j'obtiens une erreur d'incompatibilité de type 13 (Erreur2015 dans l'espion)...
Je voudrais éviter de faire des boucles et utiliser les fonctions existantes.
J'ai parcouru de nombreux forums sans trouver mon bonheur.

Est-ce que quelqu'un aurait une fonction déjà faite permettant de faire ce que je recherche?
Grand merci.

[ARTURO83]

Bonjour,

Il suffit d'utiliser l'enregistreur de macro (faut-il encore que la formule soit juste, dans votre cas, INDEX doit couvrir les 3 colonnes du tableau et pas uniquement la colonne C) et glisser le résultat dans une macro.

Code :

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

    Range("E10").FormulaArray = "=INDEX(R8C1:R20C3,MATCH(1,(R8C1:R20C1=R6C5)*(R8C2:R20C2=R7C5),0),3)"

ou bien une fonction personnalisée:
en E10: formule: =RecherchePrix(A9:A20;E6;E7)

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
14
15
Function RecherchePrix(PlageRef As Range, Ref As String, Nb As Range) As Long
    Range("E10").ClearContents
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    r = Application.Match(Ref, PlageRef, 0) + 8
    If r <> 0 Then
        i = r - 1
        Do
            i = i + 1
            If Cells(i, "A") = Ref And Cells(i, "B") = Nb Then
                RecherchePrix = Cells(i, "C")
                Exit Function
            End If
        Loop While i <= DerLig And Cells(i, "B") <> Nb
    End If
End Function

Cdlt

[mayayu]

Bonjour,
Il suffit d'utiliser l'enregistreur de macro (faut-il encore que la formule soit juste, dans votre cas, INDEX doit couvrir les 3 colonnes du tableau et pas uniquement la colonne C)

Code :

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

    Range("E10").FormulaArray = "=INDEX(R8C1:R20C3,MATCH(1,(R8C1:R20C1=R6C5)*(R8C2:R20C2=R7C5),0),3)"

Cdlt

Bonjour,

Merci pour votre réponse.

La formule (issue du site) fonctionne parfaitement dans une feuille de calcul Excel, mais peut-être que vous voulez dire que ce n'est pas suffisant pour que cela marche via du code VBA?

En tout cas, je me rend compte que je me suis mal exprimé, je ne cherche pas à mettre la formule dans une cellule, comme vous semblez le proposer, mais mettre le résultat de la formule dans une variable VBA.

P.S. : L'enregisteur de macro a bien entendu été mon premier réflexe

Encore merci.

[ARTURO83]

Alors ceci:

la variable PrixRetenu récupère la valeur

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
Sub V_RecherchePrix()
    Ref = Range("E6").Value
    Nb = Range("E7").Value
    Range("E10").ClearContents
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    r = Application.Match(Ref, Range("A9:A20"), 0) + 8
    If r <> 0 Then
        i = r - 1
        Do
            i = i + 1
            If Cells(i, "A") = Ref And Cells(i, "B") = Nb Then
                PrixRetenu = Cells(i, "C")
                Exit Sub
            End If
        Loop While i <= DerLig And Cells(i, "B") <> Nb
    End If
End Sub

[mayayu]

Intéressant, si je ne me trompe pas, cela permet d'aller à la première occurrence du 1er critère, et de parcourir les lignes suivantes pour vérifier le 2ème critère. Je voulais éviter les boucles, mais c'est déjà un compromis.
Cela suppose aussi que les données de la première colonne soient correctement triées pour être adjacentes, ce qui est le cas dans l'exemple, mais qui ne sera pas forcément le cas pour mon cas pratique.

Je mets de côté en attendant de voir si quelqu'un a mieux à proposer.
Merci.

[Philippe Tulliez]

Bonjour,
Je ne connais pas la finalité de votre projet mais à votre place, je mettrais dans une cellule la formule qui me renvoie le résultat avec critères que je lirais ensuite par VBA. c'est une ligne de code et si les critères changent, il suffit par VBA de modifier ceux-ci