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)

[Isabelle86]

J'ai un fichier Excel qui comprend dans la feuille 3 une formule:

Code :

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

=SUMIF('Worksheets(2)'!$N$4:$N$39018;'Worksheets(3)'!B$1;'Worksheets(2)'!$V$4:$V$39018)/(B$68+B$11)

Cette formule appelle donc la colonne N de la feuille 2 qui elle-même est une formule:

Code :

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

=VLOOKUP(M4;'K:\XXXXX.xls'!$C$2:$D$142;2;FALSE)

Cette colonne N a un nombre de ligne variable de N4 à N indéfini.

Je voudrais donc faire une macro qui automatise ces deux formules en même temps. Je n'ai pas de problème pour la fonction de la feuille 3, mais c'est la fonction Vlookup de la feuille 2 qui me pose problème.

Voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastCol As Integer
Dim LastLig As Long
 
With Worksheets(2)
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    ?????
End With
 
With Worksheets(3)
    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(81, 2), .Cells(81, LastCol)).FormulaR1C1 = "=SUMIF('Worksheets(2)'!R4C14:R39018C14,'Worksheets(3)'!R1C,'Worksheets(2)'!R4C22:R39018C22)/(R68C+R11C)"
End With

Est-ce plus clair?

[Godzestla]

Oui, là j'ai compris, enfin je crois :

Tu as juste besoin de changer la ligne suivante :

Code :

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

   .Range(.Cells(81, 2), .Cells(81, LastCol)).FormulaR1C1 = "=SUMIF('Worksheets(2)'!R4C14:R39018C14,'Worksheets(3)'!R1C,'Worksheets(2)'!R4C22:R39018C22)/(R68C+R11C)"

de la même manière que tu initialises LastLig, il faut remplacer R39018 par R suivi du numéro de la dernière ligne de la colonne N.

On pourrait mettre la formule dans la formule, mais vu tes formules sur formules déjà en place, je ne sais pas ce que donnera le recalcul automatique dès que tu changera le nombre de cellulle utilisées dans la colonne N.

Donc, avec la formule dans la formule, cela donne :

Code :

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

    .Range(.Cells(81, 2), .Cells(81, LastCol)).FormulaR1C1 = "=SUMIF('Worksheets(2)'!R4C14:R" & Worksheets(2).Range("N65535").End(xlUp).Row & "C14,'Worksheets(3)'!R1C,'Worksheets(2)'!R4C22:R" & Worksheets(2).Range("N65535").End(xlUp).Row & "C22)/(R68C+R11C)"

Si ton application le permet, tu peux le faire en 2 instructions :

Code :

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

1
2
3
4
Dim ref as long
ref = Worksheets(2).Range("N65535").End(xlUp).Row
    .Range(.Cells(81, 2), .Cells(81, LastCol)).FormulaR1C1 = "=SUMIF('Worksheets(2)'!R4C14:R" & ref & "C14,'Worksheets(3)'!R1C,'Worksheets(2)'!R4C22:R" & ref & "C22)/(R68C+R11C)"