Bonsoir,
j'ai un soucis tout bête je pense, mais je n'y arrive vraiment pas.
J'ai donc la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Feuil1").Range("B7") = (Evaluate("INDEX(C2:C13,match(1,(A2:A13=""AAA2552"")*(B2:B13=""AHTTA25""),0))")) * (Sheets("Feuil2").Range("B4"))
Qui marche
et je cherche juste à l'automatiser avec un balayage qui vas aller lire les cellules adjacentes Pour le premier critère et les cellules inférieures pour le second.

J'ai donc fait cela

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For j = 0 To 10
For i = 0 To 20
 
Sheets("Feuil1").Cells(7, 2 + i) = (Evaluate("INDEX(C2:C13,match(1,(A2:A13=""Cells(3, 2 + i )"")*(B2:B13=""Cells(7+j,1)""),0))")) * (Sheets("Feuil2").Range(Cells(4, 2 + i)))
 
Next
Next
1ère cellule de recherche caractère du genre :AAA2552...2553...AAB2556...
2ème cellule de recherche caractère du genre : AHTTA25..28...BFTTO35...
Cellule recherchée du genre integer :0 5 10 20

Mais il bloque sur les ""Cells(3, 2 + i )"" et je ne vois pas comment faire...
Si vous avez une idée de la façon dont je peux identifier ces cellules dont je veux rechercher la valeur d'une 3 ème case...
Merci, bonne soirée