Fonction VLookup en VBA [Resolu]

[RV51]

Bonjour,

J'ai le message d'erreur "424" lorsque j'execute le code suivant:

Sub WordArt1_QuandClic()
'Permet de faire l'extraction de la colonne Materiel Number du fichier ZFGD dans le fichier consolidation'


Dim Ligne As Long
Ligne = 1

While Worksheets("ZFGDZSFG").Cells(Ligne, 2).Value <> ""
Worksheets("Consolidation").Cells((Ligne + 10), 1) = Worksheets("ZFGDZSFG").Cells(Ligne, 2)
Ligne = Ligne + 1
Wend

Ligne = 11

While Worksheets("Consolidation").Cells(Ligne, 1).Value <> ""
Worksheets("Consolidation").Cells(Ligne, 2) = WorksheetFunction.VLookup(Cells(Ligne, 1), ZFGDZSFG.Range("B:C"), 2, False)
Ligne = Ligne + 1
Wend


End Sub

Avez-vous une idée ?

 

[Staple1600]

Re : Fonction VLookup en VBA

Bonjour

Relis bien ta macro

La solution est écrit dedans

Worksheets("ZFGDZSFG")
ne ressemble pas à
ZFGDZSFG.Range("B:C")

 

[RV51]

Re : Fonction VLookup en VBA

Il faut que je remplace ZFGDZSFG.Range("B:C") par Worksheets("ZFGDZSFG").Range("B:C")
?

J'ai pourtant essayé, mais cela ne fonctinne pas mieux

 

[Staple1600]

Re : Fonction VLookup en VBA

RE

Ce n'était que le début...

While Worksheets("Consolidation").Cells(Ligne, 1).Value <> ""
             Worksheets("Consolidation").Cells(Ligne, 2) =  WorksheetFunction.VLookup(Worksheets("Consolidation").Cells(Ligne, 1), Worksheets("ZFGDZSFG").Range("B:C"), 2,  False) 
              Ligne = Ligne + 1
        Wend

Si j'étais toi ( je ne méfierai pas) mais je ferai les modifs ci-dessus

 

[RV51]

Re : Fonction VLookup en VBA

Ok, cela fonctionne, merci beaucoup pour votre aide