OVH Cloud OVH Cloud

CHAMP VARIABLE DANS UN RECHERCHEV

3 réponses
Avatar
trup
Bonjour à tous...

Voilà ma formule est la suivante :

RECHERCHEV(M1;'H:\FLASH\[F2 -2006 18.xls]TARIFS'!$A$1:$W$300;3;FAUX)

Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2
-2006 18.xls]" variable.....

je m'explique : Je fais toujours référence au meme onglet, à la meme plage
de données sauf que le nom du fichier change toute les semaines.
Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier
(par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les
recherchev de mon onglet.

J'espère être assez clair....d'avance merci 1000 fois...

Amicalement

Trup

3 réponses

Avatar
michdenis
Bonjour Trup,

Il y a une possibilité :

Télécharger Morefunc.xla du site internet de Laurent Longre
http://xcell05.free.fr/

Après l'installation, tu pourrais utiliser la fonction Indirect.ext()

En supposant que le nom du fichier est en A1, tu aurais une formule
ressemblant à ceci :

=RECHERCHEV(M1;INDIRECT.EXT("'H:FLASH["&A1&"]TARIFS'!$A$1:$W$300";3;FAUX)


Salutations!


"trup" a écrit dans le message de news:
Bonjour à tous...

Voilà ma formule est la suivante :

RECHERCHEV(M1;'H:FLASH[F2 -2006 18.xls]TARIFS'!$A$1:$W$300;3;FAUX)

Jusque là tout va bien ....sauf que je souhaiterai rendre le champ : "[F2
-2006 18.xls]" variable.....

je m'explique : Je fais toujours référence au meme onglet, à la meme plage
de données sauf que le nom du fichier change toute les semaines.
Je souhaiterai donc, en saisissant dans une seule cellule le nom du fichier
(par exemple en A1 : "[F2 -2006 18.xls]" que ça agisse sur tous les
recherchev de mon onglet.

J'espère être assez clair....d'avance merci 1000 fois...

Amicalement

Trup
Avatar
JB
Bonjour,

http://cjoint.com/?elivIMUVBK

Sub EcritRecherchev()
ChDir ActiveWorkbook.Path ' fichier dans le même
répertoire
ChampFormule = "C2:C4"
Chemin = ActiveWorkbook.Path
Fichier = Range("F2") ' nom du fichier en F2
NomTableRecherche = "produit" ' nom de champ de la table
Range(ChampFormule).FormulaR1C1 = _
"=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" &
NomTableRecherche & ",2,false)"
Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime
les formules
End Sub


JB
Avatar
trup
merci bcp michdenis et JB pour vos réponses....
g trouvé une autre sollution

Bonne journée à vous 2.

Trup


Bonjour,

http://cjoint.com/?elivIMUVBK

Sub EcritRecherchev()
ChDir ActiveWorkbook.Path ' fichier dans le même
répertoire
ChampFormule = "C2:C4"
Chemin = ActiveWorkbook.Path
Fichier = Range("F2") ' nom du fichier en F2
NomTableRecherche = "produit" ' nom de champ de la table
Range(ChampFormule).FormulaR1C1 = _
"=VLOOKUP(RC[-1]," & "'" & Chemin & "" & Fichier & "'!" &
NomTableRecherche & ",2,false)"
Range(ChampFormule).Formula = Range(ChampFormule).Value 'supprime
les formules
End Sub


JB