Discussion :

[clem256]

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 :

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
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

[Menhir]

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 :

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

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.

[Marc-L]

'soir !

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, …

[boisgontierjacques]

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 :

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

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

[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

[Menhir]

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.