Index+Equiv en vba

Bonjour,

Je voudrais mettre la formule suivante en VBA

=INDEX(grades[#All];MATCH(B2;grades_FullDen!M:M);5)
grades[#All] = Table reprenant tous les enregistrements de la sheet grades_FullDen
Comme cela ne fonctionnait pas j'ai décortiqué la formule en commençant par :

=MATCH(B2;grades_FullDen!M:M)

Là il me donne une erreur Mismatch

Code:

---

"= Application.Match(Sh1, Sh2)"

---

Quelqu'un poorrait-il m'aider ?

Un grand merci d'avance

Habiler

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) Set SH1 = Sheets("GrdVsFct").Range("B2") 'Set SH2 = Sheets("Grades_FullDen").Range("full_grade_f") Set SH2 = Sheets("Grades_FullDen").Range("M1:M300")   If Target.Address = "$B$2" Then '[B5:s9].ClearContents Debug.Print SH1 Debug.Print SH2 Sheets("Grades_FullDen").[M1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[B1:B2], CopyToRange:=[B4:J4] Menu Target Sheets("GrdVsFct").Range("A2").Formula = "= Application.Match(Sh1, Sh2)" End If End Sub

---

Bonjour,

déjà deux remarques de principe :
1. ajoute en tête de module un option explicit et déclare toutes tes variables
2. appeler sh1, sh2 des variables qui sont des range (et pas des sheets) c'est pas top

Ensuite ce qui hurle c'est la ligne

Code:

---

Debug.Print SH2

---

Sh2 étant une plage, et le debug.print atteendant une chaine, il essaye de faire

Code:

---

Debug.Print SH2.value

---

mais comme sh2 contient plusieurs cellule ça coince.

Après il y a par là un mélange effectivement entre le VBA et la formule.

Code:

---

Sheets("GrdVsFct").Range("A2").Formula = "= Application.Match(Sh1, Sh2)"

---

et ça va planter parce simplement la formule est incrrecte

Si tu veux faire quelque chose dans la feuille, déjà la formule tu peux la mettre "à la main"
Pièce jointe 637507
Puis en laissant la sélection dessus tu tapes dans la fenêtre d'exécution

Code:

---

?selection.formula

---

et entrée. Ça va te répondre :

Code:

---

=MATCH(B2,Grades_FullDen!M1:M300,0)

---

et du coup ce que tu dois faire est simplement :

Code:

---

Sheets("GrdVsFct").Range("A2").Formula = "=MATCH(B2,Grades_FullDen!M1:M300,0)"

---

Si tu veux juste récupérer le résultat en VBA la bonne syntaxe est par exemple :

Code:

---

1 2	i = Application.Match(Sh1, Sh2, 0) MsgBox i

---

Nb : je me suis permis de rejouter le 0 dans le equiv, ça peut avoir son important si le vecteur de recherche n'est pas trié...