Excel 2003 VBA- RECHERCHEV

Bonjour,

Je souhaite obtenir dans le vecteur "par", le résultat d'un "RECHERCHEV" sur une plage de cellules ("C4:F43") de la feuille "PARAMETRES".

Dans les valeurs à chercher, j'ai deux entiers et une chaîne de caractères. J'écris le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub tt()   Worksheets("Parametres").Select   Dim par(3)   For j = 0 To 2   par(j) = WorksheetFunction.VLookup("DNPNP0", Range("C4:F43"), " & j + 2 & ", 0)   Next j     MsgBox par     End Sub

---

J'obtiens une erreur d'execution 1004 "Impossible de lire la propriété VLookup de la classe Worksheet function".

J'ai cherché longtemps mais sans trouver de solutions.

Quelqu'un pourrait-il m'aider à résoudre le problème ou me proposer une solution alternative qui résolvrait mon problème ?

Merci d'avance pour vos réponses.

Bonjour,

Si j'ai bien compris tes deux entiers et ta chaîne de caractères sont dans 3 colonnes différentes ? d'où la tentative de décalage "J+2" ?

Je te suggère déjà d'essayer cette syntaxe, car là tu donnes comme paramètre " & j + 2 & " en chaine de caractère au lieu de la valeur de j+2. (il me semble que ta syntaxe est copiée sur une insertion de formule dans une cellule)

Code:

---

1 2 3 4 5 6

For j = 0 To 2   par(j) = Application.WorksheetFunction.VLookup("DNPNP0", Activesheet.Range("C4:F43"), j + 2, 0)   Next j

---

Je ne sais pas si c'est la source de ton erreur 1004, mais ça devrait aider à avancer.

Tout d'abord merci pour cette prompte réaction !!

Non en fait les éléments à trouver se trouvent respectivement en colonne 2,3 et 4 de ma matrice située en plage C4:F23 (d'où la boucle)

Cela dit en appliquant ta correction, j'ai maintenant une erreur d'execution 13 : Incompatibilité de type dans ma mxgbox

ReBonjour,

ça devrait aller. tu ne peux pas faire un msgbox d'un tableau directement comme ça. Il faut que tu construise la ligne que tu veux afficher dans un String.

exemple :

Code:

---

1 2 3 4 5 6 7

strAffich = "Données : " For i = 0 to 2 strAffich = strAffich & par(i) & ", " Next i   Msgbox strAffich

---

Tu devrais pouvoir vérifier si les données récupérées par la boucle sont les bonnes.

ca marche effectivement.

Juste une question pour ma connaissance personnelle, pourquoi un le code suivant ne marche pas ?

Code:

---

1 2 3

MsgBox par(0) & " " & par(1) & " " & par(2)

---

PS : je met une icône résolue !!:mouarf::ccool:

Merci et bonne soirée !!

Excuses moi de revenir vers toi

Maintenant je souhaite généraliser cette procédure à un ensemble de données à chercher. Donc faire une boucle qui remplace chaque fois l'élément à chercher (précedemment DNPNP0).

J'ai donc trois choses en idée :

1) Créer un vecteur qui recense les données à chercher (telle que DNPNP0)
2) Parcourir ce vecteur et refaire le calcul précédent pour chaque élément
3) Alimenter une matrice avec chacun des vecteurs (à trois éléments) crées
4) Editer ladite matrice.

Mon problème c'est que je n'ai aucune idée de comment déclarer et créer des matrices et surtout COMMENT RESTITUER LE RESULTAT d'une fonction

Merci encore pour votre aide

Alors là comme ça, de visu, J'aurais cru que le code :

Code:

---

MsgBox par(0) & " " & par(1) & " " & par(2)

---

aurait marché...
Mais si ce n'est pas le cas, cela doit être un problème de type, qu'on peut résoudre en "castant" les données dans le bon type :

Code:

---

MsgBox CStr(par(0)) & " " & CStr(par(1)) & " " & CStr(par(2))

---

Sinon, je donnais la solution de la boucle pour plus d'évolutivité.

Content d'avoir pu aider.