Discussion :

[georgie_boy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[georgie_boy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.