[VBA] Syntaxe du vlookup dans une boucle While

Question

Je veux faire une recherche V en colonne 37 tant que la colonne 20 n'est pas vide. Je déclare la variable i comme ligne, la valeur recherchée est en colonne 20, et la matrice de recherche est dans fichier2.xls (déjà ouvert) de la ligne 3 colonne 1 à la ligne621 colonne 11. Je tappe ce code : Code :

i 2 'Déclaration de la variable i ligne
While Cells(i, 20) <> "" 'Tant que ligne i et colonne 20 n'est pas vide
Cells(i, 37) ActiveCell.FormulaR1C1 VLOOKUP(Cells(i, 20),fichier2.xls!R3C1:R621C11,11,FALSE)
i = i + 1
Wend

mais j'ai une erreur de compilation syntaxe Une soluce ? Merci bien

Renfield · Answer

je n'ai pas dans Excel cette formule VLOOKUP...

mais ton code dois ressembler a :

i = 2
Do While Cells(i, 20) <> ""
    Cells(i, 37).Activate
    ActiveCell.FormulaR1C1 = "=VLOOKUP('" & Cells(i, 20) & "',fichier2.xls!R3C1:R621C11,11,FALSE)"
    i = i + 1
Loop

titibobo2 · Answer

'" & Cells(i, 20) & "' provique un bug ... Avec le code ci-dessous ça focntionne

Sub Test()
i = 4
With Workbooks("fichier2.xls").Worksheets("TaBase")
While Cells(i, 20) <> ""
Cells(i, 37) = Application.WorksheetFunction.VLookup(Cells(i, 20), .Range("A3:K621"), 11, False)
i = i + 1
Wend
End With
End Sub

Ne pas oublier de remplacer Worksheets("TaBase") par le nom de ta feuille source... J'aimerais l'améliorer en disant que le range prenne toutes les cellule de"TaBase" car il se peut que des données se trouveront en dessous de la ligne 621 .. On peut tres bien mettre K10000 mais je pense que ça ralentira l'execution ...

Renfield · Answer

a ok, Vlookup n'est pas une formule Excel...
ta syntaxe premi&#232;re etait compl&#232;tement a l'ouest dit moi...

pour la derni&#232;re cellule, tu as tout simplement :
   Range.SpecialCells(xlCellTypeLastCell)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

titibobo2 · Answer

Merci
Vlookup pas une formule d'excel ? C'est quoi alors ?

je remplace Range("A3:K621") par Range.SpecialCells(xlCellTypeLastCell) ?

Renfield · Answer

pas une formule, non, une m&#233;thode de la classe WorksheetFunction

ok pour le range.... 

jette un coup d'oeil a l'explorateur d'objects (F2) ca evitera peut etre des questions sur des choses qui sont dans le documentation.

Renfield
Admin CodeS-SourceS - MVP Visual Basic

titibobo2 · Answer

ok, 
avec : 

 i = 2
    With Workbooks("Stockfmul.xls").Worksheets("Stockfmul")
    While Cells(i, 20) <> ""
    Cells(i, 37) = Application.WorksheetFunction.VLookup(Cells(i, 20), .Range.SpecialCells(xlCellTypeLastCell), 11, False)
    i = i + 1
    Wend

J'ai une erreur d'ex&#233;cution 450 : Nombre d'arguments incorrect ou affectation de propri&#233;t&#233; incorrecte.

[VBA] Syntaxe du vlookup dans une boucle While

6 réponses

Discussions similaires