Discussion :

[flo557]

Bonjour à tous,

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

Code :

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

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 :

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

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

[Menhir]

Le code me retourne une erreur.

Quelle est le message d'erreur ?

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

Code :

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

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 :

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

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

[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 ?

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

[Menhir]

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.

[flo557]

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.

[Menhir]

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.

[Pierre Fauconnier]

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 vba :

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

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

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 :

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

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