XL 2016 Index/Equiv

[Marjo2]

Bonjour Forum,
Sur mon fichier, j'essaie de mettre le résultat de la recherche de 2 conditions mais impossible, pouvez-vous m'aider ?
Merci.

 

[JHA]

Bonjour à tous,

A essayer cette formule matricielle:

=INDEX(EXPORT!$M$2:$M$38;EQUIV(Result1!$A2&Result1!$B2&"Stock fin";EXPORT!$A$2:$A$38&EXPORT!$B$2:$B$38&EXPORT!$E$2:$E$38;0))

JHA

 

[Marjo2]

Merci, j'ai juste adapté mais j'ai compris et ça fonctionne plus qu'à le mettre en VBA 🙂

 

[Marjo2]

Pas évident à trouver une macro qui lance la formule matricielle, je pensais transformer FormulaR1C1 en FormulaArray mais c'est pas si facile. Je continue d'éplucher les forums pour trouver ce code qui permet de lancer le Ctrl+Maj+entrée sur chacune des lignes.

Sub AvecStock()
Dim DerLig As Long
Worksheets("Result1").Select
Columns("Q:Q").Select
Selection.ClearFormats
With Worksheets("Result1")
DerLig = .Range("A100000").End(xlUp).Row
.Range("Q1:Q" & DerLig).FormulaArray = "=INDEX(EXPORT!R1C7:R100000C7,MATCH(Result1!RC1&Result1!RC3&RC[-13]&""Stock fin"",EXPORT!R1C1:R100000C1&EXPORT!R1C3:R100000C3&EXPORT!R1C4:R100000C4&EXPORT!R1C5:R100000C5,0))"
End With
End Sub