Discussion :

[choupette_64]

Bonjour à tous !

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

Code :

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

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

par celui-ci

Code :

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

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 !

[aalex_38]

Bonjour,

Au lieu de :

Code :

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

Cells(I,col1).Value

Essai :

Code :

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

Cells(I,col1)

Testes aussi le résultat de :

Code :

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

col1 - col2 + 1

[choupette_64]

Alors j'ai testé ceci :

Code :

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

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 :

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

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

que j'ai mis à la place de

Code :

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

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

dans le VLookup

[aalex_38]

Bonjour,


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

Code :

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

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

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

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

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.

[choupette_64]

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

Code :

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

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 :

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

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 :

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

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

[mapeh]

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 :

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

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