Bonjour,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub TEST()
 
Set MyRange = Feuil3.Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
Set MyRangeB = Feuil3.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 
     MaVar = Application.WorksheetFunction.Match(Cells(1, 9), MyRangeB, 0)
 
     Cells(1, 10) = Application.WorksheetFunction.Index(MyRange, MaVar, 2)
 
End Sub
En analysant ce code, il parait correct.
Seulement il génère une "Erreur d'exécution 1004". --> "Impossible de lire la proprièté Match de la classe worksheetfunction."

La ligne qui génère l'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MaVar = Application.WorksheetFunction.Match(Cells(1, 9), MyRangeB, 0)
A vrai dire, l'erreur est générée lorsque la plage de recherche de la valeur cherchée n'est pas dans la même feuille que cette valeur cherchée.

Dans le cas inverse tout marche à merveille.

Comment celà peut-il s'expliquer ?

Merci