Discussion :

[robbillard]

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?

[ouskel'n'or]

Déjà, à la sortie de ta boucle For next, as-tu vraiment besoin de

i = i + 1

Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 10
Next
MsgBox i

Pour le reste, je ne comprends pas. C'est check qui te retourne "#VALEUR!"
Tu parles de deux colonnes mais je ne vois rien dans ton code qui s'en rapproche C'est pour simplifier ton pb ?
A+

[robbillard]

merci de me répondre si vite

1- je n'ai pas particulierement besoin de "i=i+1"
j'ai mis ca pour incrementer i dans la boucle...

j'ai testé ce que tu me proposes: ca ne change rien du tout, et aucune boite de dialogue n'apparait (c'est pourtant le but de "Msg box i" non?)

mais si ca se trouve je me suis gourré en faisant ta modif (je pense pas car j'ai tout essayé mais bon, encore une fois, je connais vraiment rien à VBA)

2- oui : par exemple je suis dans mon classeur excel :
j'ai ma colonne A en A:A et ma colonne B en B:B
dans la cellule C1 je tape "=check(A1;$B:$B)"

La valeur qui est en cellule A1 : si on la retrouve dans la plage $B:$B, elle apparait dans la cellule C1.
Sinon, ce qui apparait en C1 c'est #VALEUR!

Je suis assez clair ou pas?

[ouskel'n'or]

Non, le test c'était simplement pour te montrer qu'après une boucle For i = 1 to 10, à la sortie de la boucle tu as 11. Il n'est donc pas nécessaire de mettre i = i + 1
Désolé si je t'ai perturbé.
Pour ta question essentielle, je n'ai pas de réponse Je n'ai jamais utilisé VLookup comme tu le fais. Désolé (re)

[robbillard]

merci quand meme

[AlainTech]

La syntaxe du For en VBA (appliquée à ton cas) est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To Len(a)