Discussion :

[lps02]

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

[ZebreLoup]

A priori c'est qu'il ne trouve pas la valeur. Tu as essayé de voir si la formule marchait si tu la rentres directement dans une cellule ?

[lps02]

Bonjour

A priori , en effet, il y a un soucis. Sans doute avec des espaces inutiles???

Votre avis m'intéresse car je bloque sur ce problème depuis une semaine.

J'ai créé une nouvelle discussion à ce sujet sur le forum excel (tout).

A vous lire

Cordialement

lps02