Bonjour à tous

Je ne connais rien à VBA...

Je souhaite créer une fonction dans laquelle j'inclue une boucle à la fonction rechercheV

Je m'explique:

J'ai 2 colonnes A et B
Je fais une rechercheV des elements de la colonne A (a) dans la colonne B (=vlookup(a,$B:$B;1,false)

Pour chaque valeur (a), si le résultat de la rechercheV est #N/A je veux enlever le dernier digit et relancer la recherche, etc.
Ainsi de suite jusqu'à obtenir un résultat autre que #N/A
Si il n'y a plus de digit à enlever, je veux que le résultat soit "NO MATCH"

Pour le moment j'ai fait ça :
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
16
17
18
19
Function check(a, B)
 
Dim i As Integer
i = 0
 
check = WorksheetFunction.VLookup(Left(a, (Len(a) - i)), B, 1, False)
 
    If IsError(check) = True Then
        For i = 0 To i = Len(a)
            check = WorksheetFunction.VLookup(Left(a, Len(a) - i), B, 1, False)
        Next
        i = i + 1
            If i = Len(a) Then
                check = "NO MATCH"
            End If
 
    End If
 
End Function

Le probleme c'est que la boucle ne marche pas...
La rechercheV fonctionne normalement si le résultat existe, mais si on a besoin de la boucle le résultat est : "#VALEUR!"

Quelqu'un veut bien m'aider?