somme vba nom feuille variable

[grodep]

Bonjour, je tente désespérément d'écrire correctement une somme de cellules relatives à différentes feuilles en vba mais quoi que je tente, le résultat est erroné...
Voici mes essais:

Dim A as variant
A= array("jan", "fev", "mar")
yr=2014
yr=2013
For t=5 to 16
mth= A(t-5)
mth= mth & "-" & yr
Cells(t,2).Select
ActiveCell.FormulaR1C1 = "='" & mth & "'!G41"

Avec cette première formule, la formule dans la cellule est ='jan-2014!'G41' autrement dit incorrecte en raison des apostrophes en trop

Cells(t,2).Select
ActiveCell.FormulaR1C1 = "=" & mth & "!G41"

Avec celle ci, j'ai le résultat =jan-'2014'!G41 encore inutilisable

mth= A(t-5)
mth= mth & "-" & yra
Cells(t,10).Select
ActiveCell.FormulaR1C1 = "='" & mth & "'!G41 +'" & mth & "'!H40"
ActiveCell.FormulaR1C1 = "=SUM('" & mth & "'!G41 +'" & mth & "'!H40")
ActiveCell.FormulaR1C1 = "=SUM('" & sheets(mth) & "'!G41 +'" & sheets(mth)  & "'!H40")

Avec ces trois formules, je n'ai que des codes erreurs, en raison bien évidement d'une mauvaise syntaxe...

Merci d'avance aux contributeurs.

 

[mutzik]

Re : somme vba nom feuille variable

bonjour
la syntaxe d'une formule à mettre par macro
"=Feuil2!A9", soit par ex
Cells(t,5) = "=Feuil2!A9"

dans ton code
For t=5 to 16
mth= A(t-5) & "-" & yr
mth= mth & "-" & yr ' cette ligne est en trop - voir ligne ci-dessus
Cells(t,2).Select
ActiveCell.FormulaR1C1 = "='" & mth & "'!G41"

tester :
activecell.formula = "=" & mth &"!G41"
mth devant être le nom de la feuille, par ex "jan" & "-" & yr

Attention, tu n'as que trois array, ta boucle en fait plus

il est plus indiqué de commencer avec des infos en 'dur' et sur une cellule
ensuite tu remplaces par des variables
et en fin, tu inclus le tout dans une boucle

 

[grodep]

Re : somme vba nom feuille variable

MErci pour la rapidité de la réponse. Effectivement pour le array, il manque des items, mais c'est normal, je recopie le code à la main et je ne voulais pas me taper les 12 inutilement.
Je viens de tester ta formule et malheureusement cela me donne toujours des apostrophes mal placées à savoir
=jan-'2014'!G41

Je ne comprends pas d'ou viennent ces apostrophes qui sont pourtant absentes du code:
activecell.formula = "=" & mth &"!G41"

 

[grodep]

Re : somme vba nom feuille variable

j'ai chopé la solution en t'écrivant la réponse : en fait, s'il met des apostrophes n'importe ou c'est parce que je ne les mets pas moi meme!
Du coup, en écrivant activecell.formula = "='" & mth & "'!G41", la formule dans la cellule est la bonne :
='jan-2014'!G41
Encore merci pour le coup de pouce!