formule matriciel en code vba

bonjour,
je veux transformer cette formule matriciel {=EQUIV(E1&G1;'MAI JUIN'!2:2&'MAI JUIN'!4:4;0)} en code vba

ci-joint le code que j'ai essayer

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim result As Variant Dim rangeToSearch As Range Set rangeToSearch = Sheets("MAI JUIN").Range("E2:BP2,E4:BP4") Dim matchResult As Variant matchResult = Application.Match(Range("E1").Value & Range("G1").Value, rangeToSearch, 0) If IsError(matchResult) Or matchResult = CVErr(xlErrNA) Then result = "Valeur non trouvée" Else result = Application.Index(rangeToSearch, matchResult) End If

---

Pièce jointe 638438

mais ne fonctionne pas erreur 2042
cordialement
Nicogef

Bonjour,
Sauf erreur de ma part, vous devez utiliser la propriété FormulaArray en passant comme valeur la chaîne "=MATCH(E1&G1,'MAI JUIN'!2:2&'MAI JUIN'!4:4,0)"

Hello,
D'après ta formule et le résultat attendu, il me semble qu'en fait tu cherches la colonne où se trouve le jour du mois qui sont en paramètres. Alors pourquoi ne pas essayer un code comme celui-ci par exemple ?

Code:

---

1 2 3 4 5 6 7 8 9

Sub ChercherColonne() Dim i As Integer For i = Range("E1").Column To Range("BO1").Column If Sheets("MAI JUIN").Cells(2, i) = Sheets("Feuil3").Range("E1").Value And _ Sheets("MAI JUIN").Cells(4, i) = Sheets("Feuil3").Range("G1").Value Then Debug.Print i End If Next End Sub

---

Ami calmant, J.P