Discussion :

[stujava]

Bonjour,

J'ai une feuille dans laquelle se trouve des informations

col1	col2 	col3	col4
aaa	2008	test	123
aaa	2009	machin	234
aaa	2008	machin	456
bbb	2010	truc	123
bbb	2008	test	246

J'aimerai savoir comment faire en vba pour récupérer la valeur de la colonne col4 en utilisant comme critère de recherche les colonnes col1, col2 et col3 ?

Si vous avez un exemple merci bcp pour votre aide.
stujava

[jfontaine]

Bonjour,

Ci dessous une méthode en utilisant l'instruction Evaluate et la formule Sommeprod (SumProduct en Anglais)

Code :

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

1
2
3
4
5
6
7
8
9
Dim Critere1 As String
Dim Critere2 As String
Dim Critere3 As String
 
Critere1 = "aaa"
Critere2 = "2008"
Critere3 = "TEST"
 
MsgBox Evaluate("=SumProduct((feuil2!A1:A10=""" & Critere1 & """)*(feuil2!B1:B10=" & Critere2 & " )*(feuil2!C1:C10=""" & Critere3 & """),feuil2!D1:D10)")

[stujava]

Merci beaucoup JFontaine,

J'ai beau essayé la formule mais j'ai une erreur 2015 et je ne sais pas trop où chercher, quelqu'un aurait-il une idée ?

[jfontaine]

sur quelle ligne l'erreur?
quel est le descriptif de cette erreur ?

[stujava]

Voici le code adapté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Sheets("sheet1")
        Dim Critere1 As String
        Dim Critere2 As String
        Dim Critere3 As String
 
        Critere1 = "National total for the entire territory"
        Critere2 = "NATIONAL TOTAL"
        Critere3 = "NMVOC"
        Debug.Print (Evaluate("=SumProduct((F1:F10='" & Critere1 & "')*(E1:E10='" & Critere2 & "')*(B1:B10='" & Critere3 & "'),H1:H10)"))
 
 
    End With

l'erreur se produit sur le Debug.Print et je n'ai pas de description.

J'ai modifier la ligne du Debug.Print avec ceci :

Code :

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

1
2
 
Debug.Print (Evaluate("=SumProduct((F1:F10=""" & Critere1 & """)*(E1:E10=""" & Critere2 & """)*(B1:B10=""" & Critere3 & """),H1:H10)"))

mais la valeur retournée est 0 alors que je devrai avoir 0.72957749000000005
Serait-ce un souci de format de retour ?

[jfontaine]

Dans ma proposition le critere2 ne comporte pas de guillemets car numérique. Tu as modifier en alphanumérique. est ce bien du format texte dans ta colonne?

EDIT : désolé, pas vu que critere 2 est maintenant alpha

mais la valeur retournée est 0 alors que je devrai avoir 0.72957749000000005
Serait-ce un souci de format de retour ?

Je ne pense pas, mais essais en mettant le résultat dans une cellule