Utilisation de vlookup VBA avec une plage nommée

Version imprimable

1 pièce(s) jointe(s)

Bonjour

Je pose la question car je n'ai pas vraiement trouvé la réponse à mon problème dans les questions déjà posées (ou je n'ai bien regardé)

Probléme

J'ai définit sous un Tableau dans une feuille et je l'ai nommé "ManagersRess". Dans une routine VBA je souhaite faire une recherche d'une valeu dans la première colonne et si trouvée renvoyer le contenu correspondant de la colonne 3
Voici un extrait de la section de code VBA qui fait ce traitement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 'Manager-Resource Association Table Set myMngrPlage = Range("ManagersRess") ' use the table Ress-Managers as a Range nLin = myMngrPlage.Rows.Count nCol = myMngrPlage.Columns.Count 'loop on the cells in Resources plage 'lookup first for the Res-Manager association table ThisWorkbook.Sheets(shAssoc).Activate iloop = 1 For Each resCell In mySourcePlage Debug.Print resCell.Value If IsError(returnValue = Application.WorksheetFunction.VLookup(resCell, myMngrPlage, 3, False)) Then MsgBox "Error On VLookup" 'Err.Clear If Err.Number <> 0 Then Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _ & Err.source & Chr(13) & Err.Description MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext End If Exit Sub End If 'put the vlookup positive search in the right cell in the Manager Column iloop = iloop + 1 Debug.Print "Lastline in the loop = " & iloop Next
tout va bien jusqu'à ce que j'xécute la ligne avec Vlookup et là j'ai l'erreur suivante:

"Run-time errror '1004':
Unable to get the Vlookup property of the WorksheetFunction class"

Il me semble déjà avoir utilisé par le passé, Vlookup de cette façon et que cela fonctionnait. Là je ne comprends plus.

Help please.
Merci

Citation:

Envoyé par clem256

J'ai définit sous un Tableau dans une feuille et je l'ai nommé "ManagersRess". Dans une routine VBA je souhaite faire une recherche d'une valeu dans la première colonne et si trouvée renvoyer le contenu correspondant de la colonne 3
Voici un extrait de la section de code VBA qui fait ce traitement.

Comme dit le dicton : "quand tu es à Rome, agit en romain".
On pourrait le paraphraser ainsi : "quand tu es dans VBA, utilise les outils VBA".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Res As Range For Each resCell In mySourcePlage Debug.Print resCell.Value Set Res = Range("ManagersRess").Columns(1).Find (resCell) If Res Is Nothing Then MsgBox ("Error to Find " & resCell ) Exit Sub End If Debug.Print Res.Offset(0, 2).Value Next resCell
J'ai tapé ce code à l'arrache directement dans le message sans le tester. Il se peut donc qu'il y ait du débugage à faire.

30/11/2017, 21h04
Marc-L

'soir !

Citation:

Envoyé par clem256

Il me semble déjà avoir utilisé par le passé, Vlookup de cette façon et que cela fonctionnait.

Reproduire la formule manuellement dans une cellule pour voir si déjà cela ne déclenche pas une erreur et
oui « cela fonctionnait » tant qu'il n'y a pas d'erreur car WorksheetFunction ne sert justement qu'à planter l'exécution du code
en cas d'erreur retournée par la fonction ! Donc totalement inutile, conserver uniquement Application.Vlookup
et tester le résultat via la fonction IsError …

Sinon évidemment la voie de Menhir est valable, utilisant aussi l'existant d'Excel, une simple recherche !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonsoir,

Exemple de recherche dans une table nommée utilisateurs avec 2 colonnes.
On cherche dans la première colonne et on récupère la valeur de la 2eme colonne (la table n'est pas triée)
Code:

1 2 3 4 5 6 nom = Application.UserName initiales = Application.VLookup(nom, [utilisateurs], 2, False) ' table correspondance If Not IsError(initiales) Then Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales End If
Boisgontier

30/11/2017, 23h49
clem256

Merci à tous. Avec toutes ces pistes je devrais réussir à avoir quelque chose qui fonctionne. Une fois testé je passe le problème à "résolu"
@ Menhir "quand tu es dans VBA, utilise les outils VBA": peux-tu m'indiquer ce qui n'est pas VBA dans mon code, stp? Je ne demande qu' à apprendre pour ne pas refaire les mêmes erreurs ;)

Clem256
01/12/2017, 10h09
Menhir

Citation:

Envoyé par clem256

peux-tu m'indiquer ce qui n'est pas VBA dans mon code, stp? Je ne demande qu' à apprendre pour ne pas refaire les mêmes erreurs ;)

La fonction Excel VLookup.
Ce n'est pas syntaxiquement incorrecte mais ce n'est pas (à mon avis) l'outil approprié.
C'est une question de goût et d'habitude : perso, quand je suis dans VBA, je préfère (dans la mesure du possible) utiliser les éléments nativement VBA plutôt que les fonctions Excel. C'est généralement plus simple et cause moins de problème.