XL 2010 formule DECALER et plus

[emanu]

bonjour,

dans la cellule A1 du fichier1.xlsx j'affiche le contenu (texte) de la cellule Z2 du fichier2.xlsx.
Dans la cellule A2 du fichier1.xlsx je souhaiterai afficher le contenu (texte) de la cellule Z1 du fichier2.xlsx mais en liant uniquement vers la cellule A1 du fichier1.xlsx.
c'est pourtant limpide...
QQ aurait-il une lanterne VB pour m'aider svp?

 

[job75]

Bonjour emanu, le forum,

mais en liant uniquement vers la cellule A1 du fichier1.xlsx.

Il faudrait pouvoir utiliser ExecuteExcel4Macro à partir de la formule en A1 du fichier1.xlsm.

Mais cette méthode ne fonctionne pas dans une fonction VBA personnalisée.

Donc votre problème n'a pas de solution.

A+

 

[emanu]

ha !

 

[job75]

Bien entendu si l'on utilise une procédure Sub il n'y a pas de problème.

Téléchargez les 2 fichiers joints dans le même dossier (le bureau).

Ouvrez fichier1.xlsm et exécutez cette macro :

Sub Decale()
'se lance par les touches Ctrl+D
Dim f$, adr$
f = Mid([A1].Formula, 2)
adr = Mid(f, InStr(f, "!") + 1) 'référence de la cellule
adr = Evaluate(adr).Offset(-1).Address(ReferenceStyle:=xlR1C1) 'décale vers le haut
[A2] = ExecuteExcel4Macro(Left(f, InStr(f, "!")) & adr)
End Sub