Feuille en parametre Vlookup

[AlainHK]

Bonjour a tous,

Je cherche un remplcer un terme en dur 'Demande - 04" qui est le nom d' une feuille Exel par une varieble ( ici Table) ( Last sheet etant un entier qui est le numero de la derniere Feuille crée)

Table = "feuille" & Last_Sheet

i = 3
While Cells(i, 1) <> ""
i = i + 1
=> Expression OK =>
Resultat = Application.VLookup(Cells(i, 1), Range("'Demande - 04'!$C:$M"), 8, False)

=> Expression Fausse =>
Resultat = Application.VLookup(Cells(i, 1), Range("&table&!$C:$M"), 8, False)

If IsError(Resultat) Then
Cells(i, 9) = ""
Else
Cells(i, 9) = Resultat
End If
Wend

Avez- vous des idées sur le sujet ?

Merci

 

[Gael]

Re : Feuille en parametre Vlookup

Bonjour AlainHK,

Essaye:

Range(Table & "!$C:$M")

Si le nom de la feuille comporte des espaces, il doit être encadré par des '.
Exemple:

Table="'Demande - 04'"

Tu peux aussi mettre les ' dans la formle Range:

Range("'" & Table & "'" & "!$C:$M")

@+

Gael

 

[AlainHK]

Re : Feuille en parametre Vlookup

Excellent !!! Ca marche ...

Merci pour cette astuce ....

Beaucoup de temps economisé ...