Vlook up plage variable

Bonjour à tous,

Je rencontre un soucis lors de l'utilisation de la fonction vlookup dans mon code vba :

Code:

---

1 2 3 4 5

For i = TopRow To LastLine3   Cells(i, 2).Value = Application.WorksheetFunction.VLookup(Cells(i, 1).Value, Sheets(name1).Range(Cells(FirstLine + 2, EventColumnid), Cells(LastLine, EventColumncrea)), 2, False)   Next

---

Le code me retourne une erreur. Je cherche une valeur qui se situe dans une plage de données variables dans une autre feuille de mon classeur.

Ce qui m'étonne c'est que lorsque j'applique le code suivant, tout fonctionne :

Code:

---

1 2 3 4 5

For i = TopRow To LastLine3   Cells(i, 2).Value = Application.WorksheetFunction.VLookup(Cells(i, 1).Value, Sheets(name1).Range("B5:C8"), 2, False)   Next

---

Je précise que la syntaxe de mes variables est bonne ainsi que leurs valeurs :
FirstLine = 3
EventColumnid = 2
LastLine = 8
EventColumncrea = 3

Quelqu'un a une idée pour solutionner le problème ?

Mille mercis par avance :oops:

Citation:

---

Envoyé par flo557

Le code me retourne une erreur.

---

Quelle est le message d'erreur ?

Citation:

---

Je rencontre un soucis lors de l'utilisation de la fonction vlookup dans mon code vba :

Code:

---

1 2 3

For i = TopRow To LastLine3 Cells(i, 2).Value = Application.WorksheetFunction.VLookup(Cells(i, 1).Value, Sheets(name1).Range(Cells(FirstLine + 2, EventColumnid), Cells(LastLine, EventColumncrea)), 2, False) Next

---

---

C'est parce que tu n'indiques pas à quelle Worksheet appartient les Cells à l'intérieur du Range.
Du coup, il essaye de faire entrer des Cells de ActiveSheet dans une zone de name1, ce qui cause forcément un problème.

Essaye ça :

Code:

---

1 2 3 4 5

With Sheets(name1) For i = TopRow To LastLine3 Cells(i, 2).Value = Application.WorksheetFunction.VLookup(Cells(i, 1).Value, .Range(.Cells(FirstLine + 2, EventColumnid), .Cells(LastLine, EventColumncrea)), 2, False) Next i End With

---

Merci pour ta réponse. Juste une précision : les cellules cells(i,1) et cells(i,2) sont sur la feuille Sheets(name2) alors que la matrice où je dois aller chercher les données se trouve sur la feuille Sheets(name1). Ca change la donne non ?

Le message d'erreur c'est "Erreur d'éxecution 1004"

Citation:

---

Envoyé par flo557

Merci pour ta réponse. Juste une précision : les cellules cells(i,1) et cells(i,2) sont sur la feuille Sheets(name2) alors que la matrice où je dois aller chercher les données se trouve sur la feuille Sheets(name1). Ca change la donne non ?

---

J'ai bien précisé que je parlais des Cells à l'intérieur du Range, c'est-à-dire Cells(FirstLine + 2, EventColumnid) et Cells(LastLine, EventColumncrea).

Mais on ne va pas polémiquer cent ans. Je t'ai donné la solution. Si tu n'as pas envie de la tester, libre à toi.

J'étais au travail avec incapacité de tester dans l'instant. Je n'ai nullement souhaité remettre en question la solution proposée. D'ailleurs je l'ai testé et cela fonctionne donc merci beaucoup !

Pour mon info perso, c'est le fait d'avoir mis .Cells et non Cells qui a solutionné ? Quel est l'intérêt de ce point ? (pour ne pas refaire la même erreur 2 fois).

Merci beaucoup encore une fois pour ton aide.

Citation:

---

Envoyé par flo557

Pour mon info perso, c'est le fait d'avoir mis .Cells et non Cells qui a solutionné ? Quel est l'intérêt de ce point ?

---

Le "." mets l'élément en relation avec le With précédent.
L'un ne va pas sans l'autre.

Salut.

Aujourd'hui, en 2019, je ne connais pas de situations pour lesquelles on doive utiliser VLOOKUP ailleurs que dans un tableau structuré (voir mon tuto). Pour moi, et sauf si on arrive à me prouver le contraire, l'utilisation de VLOOKUP qui cherche une valeur dans autre chose qu'un tableau structuré prouve une mauvaise conception de classeur.

tu te simplifierais grandement la vie en travaillant en amont pour préparer ta base de données afin de pouvoir utiliser VLOOKUP sur un tableau structuré. Désolé de le dire de façon aussi abrupte, mais tenter un VLOOPUP sur autre chose qu'un tableau structuré ne peut être que courir dans une impasse en espérant qu'il n'y a pas de mur au bout... Comme le tableau structuré s'adapte à l'ajout et au retrait des données, tu n'as pas besoin de ruser en VBA pour redéfinir la plage à chaque fois. Ton code est plus simple à écrire, comprendre, déboguer et maintenir. Que des lignes soient ajoutées ou retirées, que ton tableau soit déplacé ailleurs sur la feuille, voire sur une autre feuille, ton code continue à fonctionner sans devoir y apporter le moindre changement.

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim Result As Double Dim Value As String   Value = "P" Result = Application.VLookup(Value, Range("t_Articles"), 2, 0) End Sub

---

Pièce jointe 507068



De plus, réaliser des VLOOKUP en boucle sur des cellules est pour moi un non-sens. il serait plus intéressant de placer la formule en VBA en une fois sur l'ensemble des cellules puis éventuellement de copier/coller en spécial valeurs si on veut figer les valeurs. Ca évite la boucle, ç'est plus rapide dès lors qu'il y a beaucoup de lignes. Bref, c'est faire de l'Excel...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test2() Dim TopRow As Long, LastLine3 As Long Dim r As Range   TopRow = 2 ' à adapter LastLine3 = 11 ' à adapter Set r = Range(Cells(TopRow, 2), Cells(LastLine3, 2)) r.FormulaR1C1 = "=VLOOKUP(RC[-1],t_Articles,2,0)" r.Copy r.PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

---

Le VBA pour Excel, c'est d'abord et avant tout de la réflexion, le code ne représentant que le résultat des cogitations => mauvaises cogitations = mauvais code ;)