Discussion :

[mac4209]

Bonjour à tous,

Je n'arrive pas à appliquer le "recherchev" dans mon tableau nommé (insérer, tableau) en VBA. J'ai fait le code suivant :

Code :

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

1
2
3
4
5
6
 
Dim tableau As ListObject
Dim resultat as string
 
Set tableau = ThisWorkbook.Worksheets("feuille").ListObjects("MonTableauNomme")
resultat = WorksheetFunction.VLookup(Me.MaCombobox.Value, tableau, 2, False)

Quelqu'un pourrait-il m'aider ? merci

[Marc-L]

Bonjour,

déjà vérifier manuellement si la formule fonctionne …  Et dans l'affirmative, la poster au moins ici !
Ensuite expliquer clairement le problème, le numéro de la ligne en cause, l'erreur et son message …

___________________________________________________________________________________________________________

Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Philippe Tulliez]

Bonjour,
Comme la fait clairement remarquer Marc, il faut être plus précis dans sa question. La ligne 6 de ce code a nécessairement enclenché une erreur.
Le deuxième argument de la fonction VlookUp doit être un objet Range
Soit tu ajoutes la propriété DataBodyRange dans cette ligne

Code :

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

 resultat = WorksheetFunction.VLookup("R083", tableau.DataBodyRange, 2, False)

Soit tu travailles avec un objet Range au lieu de ListObject comme l'exemple ci-dessous

Code :

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

1
2
3
4
5
6
 Dim tableau As Range
 Dim resultat As String
 
 Set tableau = ThisWorkbook.Worksheets("db").ListObjects("Tableau1").DataBodyRange
 resultat = WorksheetFunction.VLookup("R083", tableau, 2, False)
 MsgBox resultat

[Pierre Fauconnier]

Salut. ( Philippe)

Tu peux aussi directement travailler avec la plage nommée qui pointe vers ton tableau nommé (comme tu le ferais en Excel).

Si tu as nommé ton tableau t_Donnees, tu peux utiliser range("t_donnees") dans ton code.

En découle une utilisation simple des tableaux de données, puisque VBA reconnaît les références structurées comme étant des plages nommées. Ainsi, pour un tableau t_Donnees qui contient les colonnes Nom, Prénom, ..., tu peux, en vba, pointer directement vers range("t_donnees[nom]") pour adresser toute la colonne Nom du tableau t_Donnees (hors lignes d'entête et de total).

[mac4209]

Salut. ( Philippe)

Tu peux aussi directement travailler avec la plage nommée qui pointe vers ton tableau nommé (comme tu le ferais en Excel).

Si tu as nommé ton tableau t_Donnees, tu peux utiliser range("t_donnees") dans ton code.

En découle une utilisation simple des tableaux de données, puisque VBA reconnaît les références structurées comme étant des plages nommées. Ainsi, pour un tableau t_Donnees qui contient les colonnes Nom, Prénom, ..., tu peux, en vba, pointer directement vers range("t_donnees[nom]") pour adresser toute la colonne Nom du tableau t_Donnees (hors lignes d'entête et de total).

Merci à tous, j'ai utilisé cette réponse car elle me parait la plus simple, c'est exactement ce que je cherchais !

Désolé si vous n'avez pas tous trouvé ma question très claire mais j'ai un code plutôt long avec pas mal de plage et cellules nommées et je préférais aller à l'essentiel.

[Philippe Tulliez]

Bonjour,
Ce n'est pas ta question qui n'est pas claire mais elle n'est pas précise.
Lorsqu'une procédure ne fonctionne pas, ll y a plusieurs raisons.

1. Elle ne renvoie pas le résultat escompté
2. Elle bloque sur une lgne de code et renvoie un message d'erreur

Dans le premier cas c'est une erreur de conception, dans le deuxième il faut indiquer dans ta question, le numéro de la ligne où a lieu l'erreur, le numéro de l'erreur ainsi que le message qui l'accompagne. En général le fait d'écrire cette dernière t'apporte déjà la réponse.

[mac4209]

Merci, j'essayerai de faire plus précis la prochaine fois