Discussion :

[Nemesis7285]

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

[mercatog]

Bonsoir,
essaie ceci

Code :

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

Evaluate("INDEX(C2:C13,match(1,(A2:A13=""" & Cells(3, 2 + i ) &""")...

[Nemesis7285]

Merci, mais cela donne toujours la même erreur.

Code :

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

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("Feuil1").Range("& Cells(4, 2 + i) &"))

J'ai testé en variant les cellules aussi avec des cellules qui marchent normalement, le rajout de " & cells() & " entraîne la même erreur.

Il faut certainement, changer tous les Cells(7,2+i) ?
Je débute sous vba donc, je ne comprends pas forcement tout le code.

Code :

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

Sheets("Feuil1").Range("B7") = (Evaluate("INDEX(C2:C13,match(1,(A2:A13=""" & Cells(3, 2 + i) & """)*(B2:B13=""AAATT5""),0))")) * (Sheets("Feuil1").Range("B4"))

Ici seulement un changement par rapport à la ligne de code qui marche mais quand même une erreur.

[mercatog]

J'avais corrigé simplement l'écriture (si je ne me trompe pas)
Cells(3, 2 + i) donne la cellule de la ligne 3 et la colonne 2+i

à la fin, corrige

Code :

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

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("Feuil1").Cells(4, 2 + i))

sinon,
si tu essayes simplement:

Code :

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

Sheets("Feuil1").Cells(7, 2 + i) = (Evaluate("INDEX(C2:C13,match(1,(A2:A13=" & Cells(3, 2 + i) & ")*...

(sans les triple guillemets)

[Nemesis7285]

Me revoilà, merci pour ton aide, après pas mal de temps, j'ai trouvé l'expression exacte pour ma formule ! Pas évidente quand même au premier abord, et sans ton aide.

Code :

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

Sheets("Feuil5").Cells(u, m) = (Evaluate("INDEX(C2:C13,match(1,(B2:B300=""" & Sheets("Feuil1").Cells(u, 1) & """)*(A2:A300=""" & Sheets("Feuil1").Cells(3, m) & """),0))"))

Je déconseille de mettre un 1+u ou un truc similaire dedans, car cela fait des soucis d'incrémentation (ou bien, je ne suis pas assez doué)
Plage C: endroit de la recherche
Plage B: première recherche dans cette plage de Cellule(u,i)
Plage A: seconde recherche dans cette plage de Cellule(3,m)

Fonction très pratique pour trouver une valeur à partir de deux critères de recherche !

Par contre, je ne connais pas l'équivalent pour une recherche d'un seul critère et si cette fonction est adaptable pour un cas.


Merci pour ton aide !
Résolu mais je ne sais pas le mettre.