vba vlookup plage variable

Bonjour à tous !

J'avais fait une macro qui fonctionnais très bien, et j'ai remplacé ce code :

Code:

---

1 2	x = Application.VLookup(Range("E" & I & ""), Workbooks(A).Sheets(B).Range("E2:AJ" & ligne2 & ""), 32, False)

---

par celui-ci

Code:

---

1 2	x = Application.VLookup(Cells(I,col1).Value, Workbooks(A).Sheets(B).Range(Cells(2, col1), Cells(ligne2, col2)), col1 - col2 + 1, False)

---

avec col1, col2, ligne1 définies juste avant

et la j'obtient une erreur 438 me disant que l'objet ne supporte pas la propriété ou la méthode ... seulement je ne comprend pas trop d'ou ca peut venir!


Merci d'avance pour vos suggestions !

Bonjour,

Au lieu de :

Code:

---

Cells(I,col1).Value

---

Essai :

Code:

---

Cells(I,col1)

---

Testes aussi le résultat de :

Code:

---

col1 - col2 + 1

---

Alors j'ai testé ceci :

Code:

---

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

Dim x As Variant Dim val As Variant   For I = 2 To ligne2   val = Workbooks(X).Sheets(Y).Cells(I, col1).Value x = Application.WorksheetFunction.VLookup(val, Workbooks(A).Sheets(B).Range(Cells(2, col1), Cells(ligne2, col2)), 32, False)   If Not Application.IsError(x) Then Cells(I, col2).Value = x End If   Next I

---

avec X le nom du classeur actif, et Y le nom de la feuille active.


Et toujours rien qui marche :( , ça coince à la ligne du VLookup ....


Et sinon, on reprenant ma syntaxe initiale, j'ai modifié un paramètre apres l'autre, et apparemment l'erreur viendrai de

Code:

---

1 2	Workbooks(A).Sheets(B).Range(Cells(2, col1), Cells(ligne2, col2))

---

que j'ai mis à la place de

Code:

---

Range("E2:AJ" & ligne2 & "")

---

dans le VLookup

Bonjour,


J'ai testé hier et je trouve bien une plage (tous les indices doivent être différents de 0)

Code:

---

Range(Cells(2, col1), Cells(ligne2, col2))

---

A l'aide du déboguueur ou avec des selects vérifies que ton code fonctionne :

Code:

---

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

Workbooks(A).select Workbooks(A).Sheets(B).select msgbox col1 ligne2 col2 Workbooks(A).Sheets(B).Range(Cells(2, col1), Cells(ligne2, col2)).select   ' Tu peux aussi instancier : Dim col1 As Integer, col2 As Integer Dim ligne2 As Long Dim Maplage as range   col1 = 8 col2 = 8 ligne2 = 5   set Maplage = Workbooks(A).Sheets(B).Range(Cells(2, col1), Cells(ligne2, col2))   msgbox maplage.address

---

Edit: j'ai la bonne plage mais le vlookup ne passe pas non plus chez moi, je teste et je reviens vers toi.

Edit2 : Attention Val est une fonction excel !!!

Edit3 : un lien ici

Edit4 : Apparemment cette fonction est assez délicate et plusieurs raisons peuvent entrainer des erreurs : plage de 1 seule colonne, index supérieur au nombre de colonne ...
Mon code fonction maintenant, par macro il me semble plus interessant d'utiliser Find que de faire des recherchev, bon quoiq'il en soit une aide :

Citation:

---

VLookup( value, table_array, index_number, not_exact_match )

value is the value to search for in the first column of the table_array.

table_array is two or more columns of data that is sorted in ascending order.

index_number is the column number in table_array from which the matching value must be returned. The first column is 1.

not_exact_match determines if you are looking for an exact match based on value. Enter FALSE to find an exact match. Enter TRUE to find an approximate match, which means that if an exact match if not found, then the VLookup function will look for the next largest value that is less than value.



Note:

If index_number is less than 1, the VLookup function will return #VALUE!.

If index_number is greater than the number of columns in table_array, the VLookup function will return #REF!.

If you enter FALSE for the not_exact_match parameter and no exact match is found, then the VLookup function will return #N/A.

---

C'est vrai que la fonction VLookup est assez capricieuse au niveau de la syntaxe, et pourtant avant de vouloir remplacer

Code:

---

1 2	Workbooks(A).Sheets(B).Range("E2:AJ" & ligne2 & "")

---

tout marchait tres bien ...

J'ai fait les tests que tu m'as indiqué aalex38 et chaque variable a les bonnes valeurs

J'ai tenté ceci :

Code:

---

1 2 3 4 5 6

Dim val_maj1 As Variant Dim plage1 As Range   Set plage1 = Workbooks(A).Sheets(B).Range(Cells(I, 5), Cells(5000, 36)) val_maj1 = Application.VLookup(Cells(I, 5), plage1, 32, False)

---

et ca ne marche pas , par contre en faisant :

Code:

---

1 2 3 4 5 6 7 8

Workbooks(A).Sheets(B).Activate   Set plage1 = Range(Cells(I, 5), Cells(5000, 36))   Workbooks(X).Sheets(Y).Activate   val_maj1 = Application.VLookup(Cells(I, 5), plage1, 32, False)

---

la ca marche! (X est le classeur dans lequel je fais la mise a jour, et A le classeur à partir duquel je fais la mise à jour)

mais je ne comprend pas pourquoi c'est necessaire de rendre le classeur actif ?! 8O

Bonjour,

lorsque tu fais référence à un classeur, et/ou à un onglet autre, il faut bien référencer toutes les cellules (.Range, .Cells)

essaie ainsi :

Code:

---

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

Dim x As Variant Dim valeur As Variant   For I = 2 To ligne2   valeur = Workbooks(x).Sheets(Y).Cells(I, col1).Value With Workbooks(A).Sheets(B) x = Application.WorksheetFunction.VLookup(valeur, .Range(.Cells(2, col1), .Cells(ligne2, col2)), 32, False) End With If Not Application.IsError(x) Then Cells(I, col2).Value = x End If   Next I

---

Et bien je crois bien que c'est mon erreur ! :P

Je n'y aurai jamais pensé parce ce que je pensais que le classeur et la feuille qu'on indiquai avant le "Range" étaient également valable pour les cellules qui le définissent ....

En tout cas merci à vous deux ! :ccool: