M
Mathieu
Guest
Bonjour à toutes et à tous,
J'ai un petit souci avec une boucle FOR
Voici le code que j'utuilise mais ca ne marche pas... je pense que l'erreur est minime mais je ne la trouve pas quand même ... :
For x = 11 To 62
Workbooks("essai1.xls").Worksheets(8).Cells(x, 4) = Application.WorksheetFunction.VLookup(Workbooks("essai1.xls").Worksheets(8).Cells(x, 1), Workbooks("extraction3.xls").Worksheets(1).Range("B2:C30"), 2, False)
Next x
Traduction :
x est le numéro de ligne
La cellule Dx de la feuille 8 du fichier "essai1.xls" = recherche verticale de la cellule Ax de la feuiile 8 du fichier "essai1.xls" dans le tableau (B2:C30) de la feuiile 1 du fichier "extraction3.xls"
En fait, si cette recherche aboutie je fais un coiper//Coller de cellule sinon je laisse la cellule vide et je passe à la suivante.
Si l'un d'entre vous trouve l'erreur(s) je le remercie d'avance ...
Mathieu
J'ai un petit souci avec une boucle FOR
Voici le code que j'utuilise mais ca ne marche pas... je pense que l'erreur est minime mais je ne la trouve pas quand même ... :
For x = 11 To 62
Workbooks("essai1.xls").Worksheets(8).Cells(x, 4) = Application.WorksheetFunction.VLookup(Workbooks("essai1.xls").Worksheets(8).Cells(x, 1), Workbooks("extraction3.xls").Worksheets(1).Range("B2:C30"), 2, False)
Next x
Traduction :
x est le numéro de ligne
La cellule Dx de la feuille 8 du fichier "essai1.xls" = recherche verticale de la cellule Ax de la feuiile 8 du fichier "essai1.xls" dans le tableau (B2:C30) de la feuiile 1 du fichier "extraction3.xls"
En fait, si cette recherche aboutie je fais un coiper//Coller de cellule sinon je laisse la cellule vide et je passe à la suivante.
Si l'un d'entre vous trouve l'erreur(s) je le remercie d'avance ...
Mathieu