Insérer le nom d'une cellule dans une formule

[julie]

Bonjour,
j'aimerais affecter une formule à des cellules dans une feuille Excel 2003, via VBA
par exemple, Cells(1,1).FormulaR1C1 = "= jour_Janvier_1* heure_Janvier_1"
avec jour_Janvier_1 et heure_Janvier_1 correspondant à des cellules nommés (via Insertion>Nom>Définir)
jusqu'ici pas de problème

j'aimerais aller plus loin, en affectant ainsi une série de formule, du type
Cells(1,2).FormulaR1C1 = "= jour_Février_1* heure_Février_1"
Cells(1,3).FormulaR1C1 = "= jour_Mars_1* heure_Mars_1"
sachant que mes mois sont stockés dans un tableau dans une autre feuille
j'ai Worsheets("mois").Cells(1,1).Value = "Janvier"
Worsheets("mois").Cells(1,2).Value = "Février"
... et ainsi de suite,

ma proposition :
For j=1 to 12
Cells(1,j).FormulaR1C1 = "= "jour_"& Worsheets("mois").Cells(1,j).Value &"_1" * "heure_"& Worsheets("mois").Cells(1,j).Value &"_1" "
Next

j'ai tenté de mettre les guillemets un peu à toutes les places possibles, sans succès
l'erreur récurrente est "Attente : fin d'instruction"

j'espère ne pas avoir été tout à fait incompréhensible...

Merci beaucoup pour vos réponses
ce point me bloque pour toute une suite de calcul que je dois réaliser pour mon stage

Bonne soirée

 

[Hippolite]

Re : Insérer le nom d'une cellule dans une formule

Bonjour,
Pour mettre un guillemet dans ta formule, il faut le doubler
Cells(1,j).FormulaR1C1 = "= ""jour_""& Worsheets(""mois"")...
A+

Ajout : regarde également le post de Klin89 : visualiser ta formule selon les 4 propriétés proposées en VBA

 

[kjin]

Re : Insérer le nom d'une cellule dans une formule

Bonsoir, salut hippolite,

With Sheets("mois")
    For j = 1 To 12
        Cells(1, j).Formula = "=(jour_" & .Cells(j, 1) & "_1)*(heure_" & .Cells(j, 1) & "_1)"
    Next
End With

A+
kjin

 

[julie]

Re : Insérer le nom d'une cellule dans une formule

j'ai appliqué la version de kjin
et ça maaaaaaaaaarche!!!!
c'est trop cool
merci infiniment (en plus aussi vite)

bonne journée