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
Partager