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