Bonjour,

Apres plusieurs essais infructueux avec evaluate(Indice(Match())), je cherche á dévellopper une fonction VBA qui permette de faire une recherche v á deux criteres.

Sans plus tarde, voici mon 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 CusVlookup(lookupval As String, columna1 As Range, columna2 As Range, indexcol As Long)
 
Dim x, y As Range
 
Dim result As Long
 
For Each x In columna1
    For Each y In columna2
        If x.Value & y.Value = lookupval Then
        result = Range(x.Row, indexcol).Value
        End If
    Next y
Next x
CusVlookup = result
End Function
Bien entendu, si je suis ici, c'est que ca ne marche !

Pensez vous que ce soit au niveau de la déclaration STRING de ce que je recherche?
De la comparaison? De la concaténation?

Pour vous donner un exmple, en columna1 j ai comme valeur CAM, Pacific, Carribbean, et en columna2 je veux matcher avec Total

Tout morceaux de codes, de réponses est le bienvenu!

merci á ceux qui me liront et plus encore á ceux qui maideront!