Discussion :

[draynaud]

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!

[78chris]

Bonjour

Je trouve plus simple de prévoir les deux données et la colonne associée plutôt qu'une string unique d'autant qu'on peut rechercher autre chose que des textes

Je ne sais comment tu imaginais indexcolumn : j'ai pris la colonne Excel mais on pourrait adapter pour garder la logique relative de RECHERCHEV.

Personnellement je préfèrerais faire une fonction assimilable à EQUIV plutôt qu'à RECHERCHEV...

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(lookupval1, columna1 As Range, lookupval2, columna2 As Range, indexcol As Long)
 
Dim x As Range, y As Long
 
Dim result
y = columna2.Column - columna1.Column
 
For Each x In columna1
        If x.Value = lookupval1 And x.Offset(0, y).Value = lookupval2 Then
            result = Cells(x.Row, indexcol).Value
            Exit For
        End If
Next x
If Not IsEmpty(result) Then CusVlookup = result Else CusVlookup = [na()]
End Function

[RyuAutodidacte]

Bonsoir,
As tu pensé as SOMMEPROD ?
Car cela permet de sélectionner plusieurs critères afin d'obtenir la ligne concernée.

Edit : Exemple tout simple en formule (il faudra l'imaginé ensuite transposé en vba afin de faire la fonction) :

Le résultat est 4, on récupère donc le n° de ligne que l'on peut ensuite appliquer à la Range voulu avec le décalage pour récupérer les valeurs

1	1
2	2
3	3
TITI	TOTO
5	5
6	6
7	7

La formule :

Code :

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

=SOMMEPROD((C1:C7="TITI")*(D1:D7="TOTO")*LIGNE(C1:C7))

[78chris]

BOnjour

Il existe des tas de possibilités par formule mais draynaud voulait une fonction personnalisée proche de RECHERCHEV...

De plus ta formule ne marche qu'en cas d'unicité du couple

[RyuAutodidacte]

Bonjour draynaud,

Chris : il y a peut être qq chose qui m'a échappé, mais je crois bien que ma formule fait (entre guillemet) la même chose (sans le if) que ton

Code :

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

If x.Value = lookupval1 And x.Offset(0, y).Value = lookupval2 Then

c-à-d quand on match sur les 2 données, cela permet d'obtenir la ligne, il suffit alors de lui rajouter l'index de colonne …

Exemples (toutes les données commence à partir de A1 en-tête compris) :
PS : les codes sont à adapter à ses besoins bien sur

Recherche via formule :

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
Sub RechParFormule()
    MsgBox RechV3("TOT0", "B", "TITI", "E", "G")
End Sub
 
 
Function RechV3(V1Look, Col1, V2Look, Col2, MyIndex)
    Ligne = Application.Evaluate("SUMPRODUCT(((" & Col1 & ":" & Col1 & "=" & """" & V1Look & """" & ")*(" & Col2 & ":" & Col2 & "=" & """" & V2Look & """" & "))*ROW(A:A))")
    'Sur la base de cette formule : =SOMMEPROD(((B:B="TOTO")*(E:E="TITI"))*LIGNE(A:A))
    If Ligne = 0 Then
        RechV3 = "Aucune donnée trouvée"
    Else
        indexcol = Columns(MyIndex).Column
        RechV3 = Cells(Ligne, indexcol)
    End If
End Function

le tableau de test (faire différents essais afin de voir si tout est ok)

Entete1	Entete2	Entete3	Entete4	Entete5	Entete6	Entete7	Entete8
Donnée1.1	Donnée2.1	Donnée3.1	Donnée4.1	Donnée5.1	Donnée6.1	Donnée7.1	Donnée8.1
Donnée1.2	Donnée2.2	Donnée3.2	Donnée4.2	Donnée5.2	Donnée6.2	Donnée7.2	Donnée8.2
Donnée1.3	TOTO	Donnée3.3	Donnée4.3	TITI	Donnée6.3	Donnée7.3	Donnée8.3
Donnée1.4	Donnée2.4	Donnée3.4	Donnée4.4	Donnée5.4	Donnée6.4	Donnée7.4	Donnée8.4
Donnée1.5	Donnée2.5	Donnée3.5	Donnée4.5	Donnée5.5	Donnée6.5	Donnée7.5	Donnée8.5
Donnée1.6	Donnée2.6	Donnée3.6	Donnée4.6	Donnée5.6	Donnée6.6	Donnée7.6	Donnée8.6

Par tableau avec les numéros des colonnes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RechParNumCol()
    MsgBox RechV("TOTOTITI", 2, 5, 8)
End Sub
 
Function RechV(VLook, Col1, Col2, MyIndex)
    VA = ActiveSheet.UsedRange.Value
        For i = 2 To UBound(VA)
            If VA(i, Col1) & VA(i, Col2) = VLook Then
                RechV = VA(i, MyIndex)
                Exit For
            End If
        Next
        If RechV = "" Then MsgBox VLook & " ne se trouve pas dans la base": RechV = "Aucune donnée trouvée"
End Function

Par tableau avec les lettres des colonnes :

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
Sub RechParLettre()
    MsgBox RechV2("TOTOTITI", "B", "E", "A")
End Sub
 
Function RechV2(VLook, Col1, Col2, MyIndex)
    VA = ActiveSheet.UsedRange.Value
    C1 = Columns(Col1).Column: C2 = Columns(Col2).Column: Ind = Columns(MyIndex).Column
        For i = 2 To UBound(VA)
            If VA(i, C1) & VA(i, C2) = VLook Then
                RechV2 = VA(i, Ind)
                Exit For
            End If
        Next
        If RechV2 = "" Then MsgBox VLook & " ne se trouve pas dans la base": RechV2 = "Aucune donnée trouvée"
End Function

[78chris]

Bonjour

Ce que je disais c'est, qu'en cas de non unicité du couple recherché, le SOMMEPROD renvoie la somme des numéros de lignes correspondants et donc une info erronée.