Bonjour le forum

Ayant des soucis avec recherchev, je voudrais canger la fonction par index+match

J'ai écrit la fonction mais elle me met une erreur1004 : Impossible de lire la propriété Match de la classe worksheetfonction

Pouvez vous m'aider?

Cordialement

Mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub codification()
Dim i As Long
i = 2
While Sheets("BD").Cells(i, 1) <> ""
Sheets("BD").Cells(i, 2) = Application.WorksheetFunction.Index(Sheets("qualite").Range("$D$2:$D$28"), Application.WorksheetFunction.Match(Sheets("BD").Cells(i, 3).Value, Sheets("qualite").Range("$E$2:$E$28"), 0))
i = i + 1
Wend
 
 
End Sub