Déclaration de variable différente

Version imprimable

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:

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:

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

03/12/2009, 15h31
luko6

pouvez vous supprimer ce message?
j'ai trouvé une réponse
merci
03/12/2009, 15h52
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 :mouarf:

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:

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