Index equiv matriciel en vba

Bonjour à tous,

Je bute sur un problème basic ... écrire une formule Index/equiv en VBA.
C'est une addition de 3 recherches en fonction de deux critères

La voici :

=INDEX(N2:N10;EQUIV(1;SI(F2:F10=A2;SI(G2:G10="VA1";1));0))+INDEX(C2:C10;EQUIV(1;SI(F2:F10=A2;SI(G2:G10="VA2";1));0))+INDEX(C2:C10;EQUIV(1;SI(F2:F10=A2;SI(G2:G10="VA3";1));0))

j'ai tenté qq chose comme : "INDEX(Range([N2], [N65000].End(xlUp),MATCH(1,(Range([F2], [F65000].End(xlUp)=Cells(i,6))*(Range([G2], [G65000].End(xlUp)=VA1),0)) + + sans grand succès ...

Merci

Jo

Bonjour,

peux-tu nous montrer le code qui manipule ces formules ?

Formule matricielle en VBA = plusieurs contraintes, et notamment (non exhaustif) :

- utilisation de la propriété FormulaArray de l'objet Range
- implicitement : rédaction des formules en anglais (séparateurs et ponctuation comprise)
- capacité maximal de 255 caractères dans la cellule d'arrivée
- (de préférence) travailler en références R1C1

un exemple issu d'une de mes procédures : un INDEX/EQUIV matriciel basé sur 4 critères

Code:

---

Cell.FormulaArray = "=INDEX(" & RefTableau & "[ID],MATCH(CONCATENATE(RC[13],RC[11],RC[14],RC[15]),CONCATENATE(" & RefTableau & "[MEDIA]," & RefTableau & "[ITEM]," & RefTableau & "[MASTER_ITEM]," & RefTableau & "[POLE]),0))"

---

RefTableau correspond au nom d'un tableau structuré (et son classeur hôte) .... raison pour laquelle je manipule des champs [XXX] au lieu de références de cellules .... mais ce n'est qu'un détail

Bonjour,

Merci pour cette réponse.

Citation:

---

- utilisation de la propriété FormulaArray de l'objet Range

---

je ne suis pas contre

Citation:

---

- implicitement : rédaction des formules en anglais (séparateurs et ponctuation comprise)

---

Citation:

---

- capacité maximal de 255 caractères dans la cellule d'arrivée

---

ça c'est OK,

Citation:

---

- (de préférence) travailler en références R1C1

---

c'est toujours moins lisible à mon sens (formater par l’utilisation des formules) mais si il y a pas le choix ...

Voici le contexte : je récupère sur un SharePoint des fichiers Excel provenant de tiers pour faire une petite base de données.
Mon prédécesseur a omis d'intégrer les formules de calcul dans la maquette. (1 ligne = addition des deux précédentes). Je n'ai pas la main pour intégrer ces formules manquantes dans les fichiers sur le SharePoint.
Je pensais donc, en fonction de certains critères, ajouter une somme de valeurs des cellules pour rattraper cet oublis.

je pensais faire qq chose comme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim i As Integer   With Sheets("Data")   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 13).value = "Calculé" Then If Cells(i, 7).value = "VA7" Then if IsEmpty(Range(Cells(i,14)) Then Cells(i, 14).value = Evaluate("INDEX(Range([N2], [N65000].End(xlUp),MATCH(1,(Range([F2], [F65000].End(xlUp)=Cells(i,6))*(Range([G2], [G65000].End(xlUp)=VA1),0))") + Evaluate("INDEX(Range([N2], [N65000].End(xlUp),MATCH(1,(Range([F2], [F65000].End(xlUp)=Cells(i,6))*(Range([G2], [G65000].End(xlUp)=VA2),0))") + Evaluate("INDEX(Range([N2], [N65000].End(xlUp),MATCH(1,(Range([F2], [F65000].End(xlUp)=Cells(i,6))*(Range([G2], [G65000].End(xlUp)=VA3),0))") End If End If End If   Next   End With

---

S'il y a une façon différente de réaliser cela, je prend :D

Merci