Discussion :

[luko6]

Bonjour à tous,

dans une même feuille excel, j'execute plusieurs recherchev sur des tables matrices variable
voici le bout de mon code qui mon fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ligfin As Long
ligfin = Sheets("Tps détaillés").Cells(Sheets("Tps détaillés").Columns(1).Cells.Count, 1).End(xlUp).Row
 
Range("B5").Formula = "=VLOOKUP(A5,'" & Sheets("Tps détaillés").Name & "'!$S$4:" & Range("Z" & ligfin).Address & ",8,FALSE)"
Range("B5").Select
Selection.AutoFill Destination:=Range("b5:b" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
 
 
 
Range("C5").Formula = "=VLOOKUP(A5,'" & Sheets("Tps détaillés").Name & "'!$S$4:" & Range("AC" & ligfin).Address & ",9,FALSE)"
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C" & Range("A5").End(xlDown).Row), Type:=xlFillDefault

Tout va bien à partir de la
Cependant dans la colonne D, je dois faire une autre recherchev sur une autre feuille avec un range variable
j'ai donc déclaré ligfin sur l'autre feuille :

Code :

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

1
2
3
4
5
 
ligfin = Sheets("Liste correspondance entité").Cells(Sheets("Liste correspondance entité").Columns(1).Cells.Count, 1).End(xlUp).Row
Range("D5").Formula = "=VLOOKUP(B5,'" & Sheets("Liste correspondance entité").Name & "'!$H7$:" & Range("I" & ligfin).Address & ",2,FALSE)"
Range("D5").Select
Selection.AutoFill Destination:=Range("d5:d" & Range("A5").End(xlDown).Row), Type:=xlFillDefault

mais la j'ai une erreur
pouvez vous m'aider?
merci de votre aide

[luko6]

pouvez vous supprimer ce message?
j'ai trouvé une réponse
merci

[Jean-Philippe André]

bonjour,

sur DVP, on a pour habitude d'indiquer la réponse aux questions qu'on se pose, même si les réponses sont trouvées seul. Ca pourra toujours aider par la suite d'autres membres qui peuvent rencontrer la même problématique

[luko6]

oui je comprends totalement
sauf que dans mon cas, j'ai changé ma table matrice dans ma recherchev de position
et la ça fonctionne
je sais pas d'ou vient mon erreur, c'est surement une erreur de syntaxe


voila mon nouveau 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
16
17
18
19
Dim ligfin As Long
ligfin = Sheets("Tps détaillés").Cells(Sheets("Tps détaillés").Columns(1).Cells.Count, 1).End(xlUp).Row
 
Range("B5").Formula = "=VLOOKUP(A5,'" & Sheets("Tps détaillés").Name & "'!$S$4:" & Range("Z" & ligfin).Address & ",8,FALSE)"
Range("B5").Select
Selection.AutoFill Destination:=Range("b5:b" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
 
 
 
Range("C5").Formula = "=VLOOKUP(A5,'" & Sheets("Tps détaillés").Name & "'!$S$4:" & Range("AC" & ligfin).Address & ",9,FALSE)"
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
 
 
 
ligfin = Sheets("Correspondance manager").Cells(Sheets("Correspondance manager").Columns(1).Cells.Count, 1).End(xlUp).Row
Range("D5").Formula = "=VLOOKUP(B5,'" & Sheets("Correspondance manager").Name & "'!$A$2:" & Range("B" & ligfin).Address & ",2,FALSE)"
Range("D5").Select
Selection.AutoFill Destination:=Range("D5:D" & Range("A5").End(xlDown).Row), Type:=xlFillDefault

bonne continuation à tous