Erreur Range() / Value

[Maxpuff]

Bonjour,
J'ai une erreur qui est assez surprenante car elle ne s'applique pas partout.
Voici le code:

Range("E28").Value = "=[A.xlsx]Accounts!$S$206"
Range("E29").Value = "=[A.xlsx]Accounts!Achat DECALER([A.xlsx]Accounts!A:A;;EQUIV(2009;[A.xlsx]Accounts!1:1;0)-1)"

La première ligne mets la formule dans la cellule et affiche bien le résultat. La seconde ligne ne fonctionne pas alors que l'opération revient à faire la même chose...
Par contre si j'enlève le signe = ce qui me donne:

Range("E29").Value = "[A.xlsx]Accounts!Achat DECALER([A.xlsx]Accounts!A:A;;EQUIV(2009;[A.xlsx]Accounts!1:1;0)-1)"

Cela fonctionne (m'affiche tout le texte) et ensuite quand je mets à la main le signe = dans la cellule, le résultat s'affiche correctement.

Je ne vois pas où se trouve l'erreur puisque le signe = ne pose pas problème dans la première expression.

 

[ERIC S]

Re : Erreur Range() / Value

Bonjour
ce n'est pas la proriété formula qu'il faut utiliser?
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

 

[Maxpuff]

Re : Erreur Range() / Value

Non, je viens d'essayer, cela me fait la même chose:
- Ne fonctionne pas si on met le "=" (erreur execution 1004)
- Fonctionne si on ne le met pas, mais faut le rajouter à la main ensuite...

 

[Maxpuff]

Re : Erreur Range() / Value

Aucune idée alors?

 

[ERIC S]

Re : Erreur Range() / Value

Re

essaie de joindre un fichier

sinon
"=[A.xlsx]Accounts!Achat DECALER([A.xlsx]Accounts!A:A;;EQUIV(2009;[A.xlsx]Accounts!1:1;0)-1)"

Fichier A
feuille Account
Achat?

 

[Maxpuff]

Re : Erreur Range() / Value

Oui c'est ça, j'essaie de trouver la valeur pour:
- Ligne nommée Achat
- Colonne dont la valeur en première ligne = 2009
- Feuille Accounts
- Fichier A.xlsx

Ce que tu proposes c'est ce que j'ai essayé et malheureusement cela ne fonctionne pas...

 

[ERIC S]

Re : Erreur Range() / Value

re

je ne comprends pas comment fonctionne ta formule, par rapport au $S$206

 

[Maxpuff]

Re : Erreur Range() / Value

La colonne S correspond à 2009 (il y a marqué 2009 en S1) et 206 c'est la ligne, donc ça prend la cellulle S206.
-> La ligne 206 s'appelle "Achat"

 

[ERIC S]

Re : Erreur Range() / Value

re

c'est la syntaxe que je ne comprends pas..

le "Achat Decaler"

un exemple m'aiderait sans doute

j'ai écrit dans un fichier, en feuil2, en ayant nommé une ligne Achat :
=DECALER(Feuil1!$A$1;LIGNE(achat)-1;EQUIV(2009;Feuil1!$1:$1;0)-1)

par enregistreur macro cela donne
'
ActiveCell.FormulaR1C1 = _
"=OFFSET(Feuil1!R1C1,ROW(achat)-1,MATCH(2009,Feuil1!R1,0)-1)"
sans erreur

 

[Maxpuff]

Re : Erreur Range() / Value

En fait ca permet de renvoyer la bonne colonne.
C'est comme si j'avais une ligne qui s'appelle "Achat" (ex: ligne 324) et une colonne qui s'appelle "Annee2009" (ex: colonne F) et quand je tape dans une cellule "=Achat Annee2009", cela me met la valeur de la cellule F324.
Donc ici :
- Achat <-> [A.xlsx]Accounts!Achat
- Annee2009 <-> DECALER([A.xlsx]Accounts!A:A;;EQUIV(2009;[A.xlsx]Accounts!1:1;0)-1)

Après si tu veux savoir comment fonctionne ce qu'il y a à l'intérieur de DECALER je ne peux pas trop t'expliquer. C'est mister Job75 qui m'a gentiment donné cette astuce dans le post suivant:
https://www.excel-downloads.com/threads/nom-cellule-linke-entre-deux-fichiers.119581/

voila

 

[job75]

Re : Erreur Range() / Value

Bonsoir Maxpuff, Eric,

Ca m...ouille pas mal sur ce fil, pourtant ce n'est pas bien compliqué :

Range("E29").[COLOR="Red"]FormulaLocal[/COLOR] = "=[A.xlsx]Accounts!Achat DECALER([A.xlsx]Accounts!A:A;;EQUIV(2009;[A.xlsx]Accounts!1:1;0)-1)"

A+