Probléme code recherchev

Bonjour,

j'essaie de comprendre comment fonctionne VBA en créant une macro somme toute assez simple mais je n'arrive pas à utiliser l’équivalent de la rechercheV.
J'ai lu pas mal de topique, essayé bcp de solutions et j'en ai même surement mélangées bcp d'entre elles... c'est pourquoi je viens vers vous.

j'aimerais afficher le résultat de ma rechercheV dans la feuille 3 cellule B2,
je recherche la valeur dans la feuille 3 cellule A2,
la recherche s'effectue un tableau situé dans la plage C3:K14 et plus particulièrement dans la colonne 1, la valeur rechercher doit être approchée.

Voici la ligne de code :

Code:

---

Worksheets("feuil3").range("B2").Value = Application.WorksheetFunction.VLookup(Worksheets("Feuil3").range("A2").Value, Sheets(Feuil2).range("C3:K14"), 1)

---

On me revoit l'erreur d'execution 13 : incompatibilité de type

Pouvez-vous relever mes erreurs svp ?

Merci pour votre aide.

Un dicton dit : "Quand tu es à Rome, agit en romain."

Perso, quand je fais du VBA, je préfère privilégier les objets et fonctions VBA plutôt que les fonctions Excel.

Donc, pour faire des recherches, j'utilise la méthode Find de l'objet Range.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

Petite remarque : dans la page données en lien, regarde plus le premier exemple que le second.

Citation:

---

Envoyé par adridech

Voici la ligne de code :
Worksheets("feuil3").range("B2").Value = Application.WorksheetFunction.VLookup(Worksheets("Feuil3").range("A2").Value, Sheets(Feuil2).range("C3:K14"), 1)
Pouvez-vous relever mes erreurs svp ?

---

Déjà, on peut remarquer que cette ligne n'est pas copiée depuis le VBE.

Merci Menhir,
J'ai essayé ta solution mais je dois trouver une valeur proche de la valeur rechercher dans un tableau et non la valeur exacte.
Puis-je quand mm utiliser ta solution sans trop compliqué le code ?

je pense que le problème venait du fait que je n'ai pas assigné de variable à l'emplacement où je voulais afficher ma réponse.

Lorsque je commence par assigner la variable "reponse" à ma recherche et que je place ensuite "reponse" a l'emplacement voulu, ca fonctionne...erreur de débutant comme je suis.

Cela dit, ce poste pourrait aider d'autre débutant.

Code:

---

1 2	reponse = Application.WorksheetFunction.VLookup(Worksheets("Feuil3").range("A2").Value, Sheets("Feuil2").range("C3:K14"), 1) Worksheets("feuil3").range("B2").Value = reponse

---

Merci pour vos réponses.

Bonjour,
Le problème vient certainement d'ailleurs car il n'est absolument pas obligatoire de passer par une variable intermédiaire.
Exemple qui fonctionne parfaitement

Code:

---

1 2 3 4 5 6 7 8

Sub T() Dim rngData As Range, rngLookUpValue As Range With ThisWorkbook Set rngData = .Worksheets("Feuil4").Range("A2:B5") Set rngLookUpValue = .Worksheets("Consult").Range("F2") End With Worksheets("Consult").Range("F3").Value = Application.WorksheetFunction.VLookup(rngLookUpValue.Value, rngData, 2) End Sub

---

Feuil2 n'a pas de guillemet dans le premier message et en a dans le second.

C'est pour cela que cela ne fonctionnait pas avant : feuil2 était considéré comme une variable, sans l'option explicit, on ne s'en rend pas compte, et du coup à l'éxécution feuil2 vaut nothing et le vlookup plante.

il me semble qu'on peut mettre un index ou un nom de feuille aussi je ne sais pas si c'est l'index nothing ou le nom nothing qui plante, pour les joueurs, ça peut être amusant d'essayer de le déterminer. Là; à brûle pourpoint, je ne vois pas comment le tester.

Bonjour

Citation:

---

il me semble qu'on peut mettre un index ou un nom de feuille aussi je ne sais pas si c'est l'index nothing ou le nom nothing qui plante

---

met certaines carences en évidence.
Seul un objet peut être Nothing
un index n'est pas un objet, mais un numérique
un nom n'est pas un objet non plus, mais une chaîne de caractères (String)
Ce qui peut être Nothing, c'est l'objet Worksheet lui-même (si l'index ou le nom utilisé pour l'identifier dans la collection Worksheets ne correspond pas à celui d'une feuille existante).
Ne pas prendre cela pour du "pinaillage" inutile. Bien comprendre tout cela est très important et la marque de ce que l'on sait de quoi on parle, ce que l'on traite, etc ...

C'est la variable passée en argument qui est Nothing (erreur d'adridech), ce serait bien d'être sur d'avoir bien compris ce que l'autre a dit avant de l'accuser d'erreur. Ne pas se contenter de bondir sur un mot, une phrase mais comprendre l'ensemble avant de réagir.

Code:

---

1 2	set vide = nothing worksheet(vide).select

---

Je sais bien que la variable vide est un objet. Je dis juste que je ne sais pas comment s'y prend excel pour retrouver une feuille, s'il cherche avant le nom ou l'index de la feuille vu que les deux paramètres me semblent possibles. Dans les deux cas ça plante, excel a un Nothing qu'il ne peut pas utiliser, est-ce qu'il plante en cherchant l'index nothing ou est-ce qu'il plante en cherchant le nom de feuille nothing. Intuitivement, à la réflexion, je me dis que ce n'est probablement ni l'un ni l'autre. Qu'il doit y avoir un typeof de la variable passée en argument et que ça plante car l'argument n'est pas d'un type admis par la fonction.

Je me suis dit que si quelqu'un avait su comment cela se passait et y avait répondu, l'information pouvait trouver sa place ici et être éventuellement trouvée par hasard par quelqu'un qui la chercherait. Le partage de connaissance, ce n'est pas chercher à jouer "je sais mieux que les autres".

Bonjour,

Citation:

---

Dans les deux cas ça plante, excel a un Nothing qu'il ne peut pas utiliser, est-ce qu'il plante en cherchant l'index nothing ou est-ce qu'il plante en cherchant le nom de feuille nothing.

---

???
Extrait de l'aide en ligne

Citation:

---

Le mot clé Nothing permet de distinguer une variable objet d'un objet réel. Utilisez l'instruction Set pour attribuer le mot clé Nothing à une variable objet.
........Lorsque le mot clé Nothing est attribué à une variable objet, cette dernière ne fait plus référence à l'objet réel.

---