XL 2016 Index/Equiv

Marjo2

XLDnaute Occasionnel
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.
 

Pièces jointes

  • TEST1.xlsm
    71 KB · Affichages: 5

Marjo2

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG