Fonction evaluate et formule

Version imprimable

04/07/2016, 11h03
fredorik10

Fonction evaluate et formule
Bonjour,

petite question

je tente d'utiliser la fonction evaluate mais cela ne fonctionne pas:
Code:

1 2 toto = "INDIRECT" & "(" & Chr(34) & "'Feuil2" & Chr(34) & "&Y4'&" & Chr(34) & Chr(33) & "N" & Chr(34) & "&EQUIV(Z4;Type1!A:A)+1)" Sheets("Feuil1").Cells(2 + i + M, 4 + r) = Evaluate(toto)
En utilisant la lecture pas à pas, "toto" prend bien la valeur de la formule ci dessus, mais dans le classeur j'ai "VALEUR"

Merci
04/07/2016, 11h58
Menhir

Je ne comprends pas pourquoi tu utilises la fonction INDIRECT alors que VBA te permet de composer la fonction que tu souhaites.

Essaye :

Code:

toto = "'Feuil2" & Range("Y4") & "!N" & (Column(A).Find(Range("Z4").Row + 1)

Ou même en une seule ligne :

Code:

Sheets("Feuil1").Cells(2 + i + M, 4 + r) = Sheets("'Feuil2" & Range("Y4")).Range("N" & (Column(A).Find(Range("Z4").Row + 1))
04/07/2016, 13h05
fredorik10

merci pour ta réponse,

Je fais ça pour que la formule apparaisse quand l'utilisateur clique sur une cellule
04/07/2016, 13h11
Menhir

Dans ce cas, tu n'as pas choisi la bonne méthode.
Evaluate ne place ps une formule dans une cellule. Elle calcule la formule et renvoie le résultat.
Pour mettre une formule dans une cellule, il faut utiliser la Propriété Formula de Range.

Code:

Sheets("Feuil1").Cells(2 + i + M, 4 + r).FormulaLocal = "="&toto

Oui mais dans ce cas avec formula quand je note:
Code:

1 2 toto = "=INDIRECT" & Chr(34) & "Type" & Chr(34) & "&Y4&" & Chr(34) & Chr(33) & "N" & Chr(34) & "&" & "EQUIV" & "(" & "Z4;Type1" & "!A:A" & ")" & "+" & "1" & ")" Sheets("Testcontrib3").Cells(15, 26).FormulaLocal = "=" & toto
cela ne marche car il ne comprend pas quand il y a deux & à la suite: & chr(34) & ... sachant que la formule entière est:

Code:

INDIRECT("Type"&$Y4&"!N"&EQUIV($Z4;Type1!A:A)+1)

Et si j'enlève le = avant INDIRECT ci-dessus, on peut voir la formule dans la cellule.

04/07/2016, 13h53
Menhir

Citation:

Envoyé par fredorik10

Et si j'enlève le = avant INDIRECT ci-dessus, on peut voir la formule dans la cellule.

Etant donné que tu n'avais pas mis de "=" dans ta première ligne de ton message, j'en ai mis un dans la proposition que j'ai faite pour la seconde ligne.
Mais il est évident qu'il ne faut pas en mettre aux deux.

Si tu veux mettre un double cote " dans du code VBA sans que ce soit pris comme une limite de texte, il n'est pas indispensable d'utiliser Chr.
Tu peux aussi le mettre deux fois : "" sera traduit comme un seul double côte en tant que texte.
04/07/2016, 14h02
fredorik10
merci mais je me suis mal expliqué: c quand il y a & & chr(38) a la suite (sachant chr(38)=&) que ca ne fonctionne pas.

en clair mon cahier des charge c'est d'avoir la formule INDIRECT...ci dessus dans le classeur.

J'ai effectivement essayé avec la formule R1C1:
Code:

1 2 Sheets("Feuil2").Cells(2 + i + M, 4 + r).FormulaR1C1 = _ "=SUM(Feuil1!RC:R[" & (1) & "]C)" & "-" & "INDIRECT(""Type""&RC25&" & Chr(34) & Chr(33) & Cc & Chr(34) & "&MATCH(RC26,Type1!C1)+1)"
mais je voudrait incrémenter +1 ligne a cette première formule:

Code:

=SUM(Feuil1!RC:R[" & (1) & "]C)"

merci pour votre aide
04/07/2016, 16h37
fredorik10

Merci a Menhir pour son aide.

Voici la solution a mon problème avec FormulaLocal:

Code:

Sheets("Feuil1").Cells(2 + i + M, 4 + r).FormulaLocal = "=SUM" & "(" & "Feuil2!" & plage & ") - indirect(" & "Y4&" & Chr(34) & "!" & Cc & Chr(34) & "&EQUIV" & "(" & "Z4;Type1" & "!A:A" & ")" & "+" & "1" & ")"