Discussion :

[edjo123]

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 :

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

[FcL.Laplace]

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 :

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

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.

[edjo123]

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

[FcL.Laplace]

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 :

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

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.

[edjo123]

ca marche effectivement.

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

Code :

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

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

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

Merci et bonne soirée !!

[edjo123]

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

[FcL.Laplace]

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

Code :

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

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 :

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

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.