RechercheV par macro dans un fichier de taille variable

Bonjour à tous,

Pour vous expliquer ma situation j'essaye de développer une macro me permettant de récupérer des informations par recherche V dans une plage de données avec un nombre de lignes pouvant varier. J'ai quelques bases en VBA mais je suis loin de maîtriser la bête.

Mon problème étant que lors du test de ma macro, je reçois systématiquement le message d'erreur "la méthode range de l'objet '_Global' a échoué". J'ai essayé de trouver des solutions dans les diverses ressources disponibles en ligne mais sans succès. Pouvez-vous me dire ce que je dois corriger dans mon code?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub etat_des_lieux()     Dim i As Integer   Workbooks("Test.xlsm").Activate Sheets("Appel d'offre").Select derniere_ligne_tableau = Range("A5").End(xlDown).Row   For i = 5 To derniere_ligne_tableau   Range(i, 2).FormulaR1C1 = "=VLookup(RC[-1],'[Achats 12 2015 Gamme CVB.xls]synth par mois'!G4:BN3500,57,0)"   Next End Sub

---

Merci !

Bonjour,

J'ai trouvé une solution en changeant un peu d'approche, j'utilise la fonction "Set as range". Plus de code à taper mais au moins ça marche :p
Pour ceux qui bloqueraient également sur cette question un jour ou l'autre, voici à quoi ressemble mon code maitenant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub etat_des_lieux()   'définition des variables, qui serviront à calculer les formules.   Dim quantité As Range,   'séléction de la feuille et du classeur Excel. Workbooks("Test.xlsm").Sheets("Appel d'offre").Activate   'définition de la dernière ligne du tableau derniere_ligne_tableau = Range("A5").End(xlDown).Row   Set quantité = Range(Cells(5, 2), Cells(derniere_ligne_tableau, 2))   quantité.FormulaR1C1 = "=VLookup(RC[-1],'[Achats 12 2015 Gamme CVB.xls]synth par mois'!C7:C66,57,0)"   End Sub

---

Vous pouvez fermer la discussion.