R RV51 XLDnaute Nouveau 11 Août 2011 #1 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 ? Dernière édition: 11 Août 2011
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 XLDnaute Barbatruc 11 Août 2011 #2 Re : Fonction VLookup en VBA Bonjour Relis bien ta macro La solution est écrit dedans Worksheets("ZFGDZSFG") ne ressemble pas à ZFGDZSFG.Range("B:C") Vote positif 0 Vote négatif
Re : Fonction VLookup en VBA Bonjour Relis bien ta macro La solution est écrit dedans Worksheets("ZFGDZSFG") ne ressemble pas à ZFGDZSFG.Range("B:C")
R RV51 XLDnaute Nouveau 11 Août 2011 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 11 Août 2011 #4 Re : Fonction VLookup en VBA RE Ce n'était que le début... Code: 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 Dernière édition: 11 Août 2011 Vote positif 0 Vote négatif
Re : Fonction VLookup en VBA RE Ce n'était que le début... Code: 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
R RV51 XLDnaute Nouveau 11 Août 2011 #5 Re : Fonction VLookup en VBA Ok, cela fonctionne, merci beaucoup pour votre aide Vote positif 0 Vote négatif