Discussion :

[HABILER]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"= Application.Match(Sh1, Sh2)"

Quelqu'un poorrait-il m'aider ?

Un grand merci d'avance

Habiler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tête de chat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Debug.Print SH2

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   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"

Puis en laissant la sélection dessus tu tapes dans la fenêtre d'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?selection.formula

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et du coup ce que tu dois faire est simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...