Discussion :

[dudu59]

Bonjour,
je débute dans le codage VB sous Excel.

Je voudrais faire une chose qui semble "simple" mais n'y arrive pas :

Je voudrais mettre dans une cellule, A1 par exemple, le nom d'une cellule d'un autre fichier (par exemple "[test.xls]Feuil1!F14") et je voudrais que dans la cellule A2 apparaisse la valeur qui est contenu dans cette cellule (F14 de la feuille Feuil1 du fichier test.xls).

Est-ce possible ???

J'ai essayé avec CELLULE(), mais n'y arrive pas .

=CELLULE("contenu";[test.xls]Feuil1!F14) fonctionne, mais je voudrais avoir du style =CELLULE("contenu";CELLULE("contenu";A1)) . Mais ce n'est pas correct en syntaxe.

Je tourne en rond depuis plusieurs heures (déjà !!!) et je craque.

Merci d'avance

[ouskel'n'or]

As-tu essayé

Code :

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

=[Fichier.XLS]Feuil1!$G$32

Sincèrement ? Je trouve que tu pousses... Suffit de le faire et tu as la formule...
Ou alors tu veux autre chose, auquel cas, dis-nous quoi...

A+

[Megaxel]

Mais j'ai une question: tu fais du VBA, ou tu veux juste mettre une formule dans une cellule pour qu'elle prenne la même valeur qu'une autre?

[dudu59]

J'ai essayé aussi en VBA, mais je n'y arrive pas.


je ne veux pas coder =[Fichier.XLS]Feuil1!$G$32 dans la cellule.

Je veux que le nom du fichier ou de la cellule soit paramérable !

Donc mettre fichier dans une cellule, Feuil1 dans une autre $G$32 dans une autre encore et générer "=[Fichier.XLS]Feuil1!$G$32" dans une dernière avec la valeur résultante...

Suis-je clair ?

j'ai aussi essayé [A2] = [CELLULE("contenu",A1)] , mais j'obtiens #NOM?

J'ai voulu créer une fonction test() qui fasse tout cela en entrant test(A1), mais c'est toujours pareil ...

Je vais peut-être aller me coucher et trouver demain après une bonne nuit de sommeil ??

[bidou]

ca marchera avec INDIRECT si l'autre classeur est ouvert

[ogenki]

tu a essayé en enregistrant une macro ??

[dudu59]

Merci infiniment ...

[SfJ5Rpw8]

tu peu jouer avec INDIRECT et peu-être ADRESSE :

Code :

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

=INDIRECT(ADRESSE(1;3;;;"Feuil2"))

[ouskel'n'or]

Tu peux aussi tout paramétrer :

Code :

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

1
2
3
4
5
6
7
Sub InsérerFormule()
     NomFich = "Fichier.xls"
     NomFeuil = "Feuil1"
     NoCol = 5
     NoLigne = 12
     Cells(5, 6).Formula = "=[" + NomFich + "]" + NomFeuil + "!" + Cells(NoLigne, NoCol).Address
End Sub

A+

[dudu59]

Oui, cela je sais faire avec sub(),

mais j'aurais voulu faire cela avec function ... (car sub() il faut la lancer la macro à chaque fois qu'on modifie les entrées, non ?)

Du style Function Test(Cellule As Range) As Variant ....

et mettre dans la feuille Excel : test(A1)

[ouskel'n'or]

Je comprends. Mais en voulant faire ce que tu dis, il semble me souvenir que ça pose un problème.
J'avais rencontré des difficultés de mise à jour : Pour que la liaison se fasse, il fallait que j'entre dans la cellule et que je la valide par entrée... Je précise : il y a longtemps et à l'époque je ne connaissais pas les différentes procédures de mise à jour. Je n'ai plus essayé depuis.

Cependant, il me semble (re) que récemment, quelqu'un avait eu le même problème et la solution retenue avait été, puisqu'il se trouvait en VBA, de résoudre sa formule et de coller le résultat dans la cellule.

Si tu as lu jusque là, alors tu sais que je n'ai pas de réponse...

Bonne chance avec bbil, SilkyRoad, jmpmarquès ou autre jpleroisse...

A+

[dudu59]

J'ai effectivement le problème qu'il faut entrer dans la cellule et valider par <Entrée> pour supprimer le #NOM? qui apparaît ...

Je pensais bien que je ne devais pas être le seul à m'être posé cette questio .

Quand j'utilise VBA, effectivement, résoudre la formule et coller est simple. mais je voulais ne mise à jour automatique et c'est pour cela que je pensais à une fonction.

C'est pas grave. C'était une modif que je voulais faire, mais je vais me débrouiller avec une sub() et puis voilà.

[ouskel'n'or]

On ferme le post ?

[dudu59]

oki,

on ferme ...

merci à tous