Discussion :

[Isabelle86]

Bonjour!
J'ai déjà posé cette question-ci plus tôt, mais sans réponse. Je reformule donc autrement si quelqu'un peut m'aider:
J'ai un problème avec une formule Vlookup que j'aimerais étendre à toute une colonne (colonne x de N4 à N indéfini). Mais j'ai déjà un problème pour définir cet ensemble de cellule.
Je ne suis également pas sûre d'utiliser la bonne fonction: Application.WorksheetFunction

Merci d'avance pour votre aide!

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 macro1()
 
Dim LastLig As Long
Dim tableliens As Workbook
Dim x As Variant
 
With Worksheets(2)
LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
x = Range(Cells(14, 4), Cells(14, LastLig)).Value
Set tableliens = Workbooks.Open("K:\XXXX.xls")
 
    With Application.WorksheetFunction
    x = Application.WorksheetFunction.VLookup(Range("M4").Value,tableliens.Range("C2:D142"), 2, False)
    tableliens.Close SaveChange = False
    End With
 End With
End Sub

[PPz78]

Bonjour,

Peux tu m'en dire plus sur Vlookup que je ne trouve pas dans mon aide en ligne.

A+
PPz

[Isabelle86]

He bien la fonction VLookup recherche une valeur:

VLookup( value, table_array, index_number, not_exact_match )

- value= valeur a rechercher dans la première colonne de "table_array",
- table_array= colonnes dans lesquelles on recherche la valeur,
- index_number= numéro de la colonne de "table_array" dans laquelle on a trouvé la valeur,
- not_exact_match= FALSE pour trouver la valeur exacte, TRUE pour trouver une approximation, auquel cas il cherchera la première valeur plus petite que celle recherchée.

Ex: VLookup( 3, A1:B35, 2, FALSE) recherche d'abord la valeur 3 dans la première colonne de A1:B35 (donc dans la colonne A) et te donne la valeur de la colonne B associée à ce 3.

[AlexL.]

Bonjour,

Une boucle est-elle envisageable ?
Du genre :

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
18
19
20
21
 
Sub macro1()
 
Dim LastLig As Long
Dim tableliens As Workbook
Dim x_full As Variant, x as variant, res as variant
 
With Worksheets(2)
LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
x_full  = Range(Cells(14, 4), Cells(14, LastLig)).Value
Set tableliens = Workbooks.Open("K:\XXXX.xls")
 
for each x in x_full
res = Application.WorksheetFunction.VLookup(x,tableliens.Range("C2142"), 2, False)
next x
 
End With
 
tableliens.Close SaveChange = False
 
End Sub

A toi de voir ensuite ce que tu comptes faire du résultat...

[Isabelle86]

J'ai essayé, mais j'ai un problème dans la définition de x_full. Il me dit: application defined or object defined error.

[Godzestla]

Bonjour Isabelle86,

puis-je te demander de formuler encore autrement ta demande? Que cherches tu à faire, saurais tu l'expliquer sans référence de programmation ?
Quel est le but car ton X, il ne sert à rien....

Ceci a-t'il vraiment du sens ?

J'ai un problème avec une formule Vlookup que j'aimerais étendre à toute une colonne (colonne x de N4 à N indéfini)