Attribuer une formule stockée dans une variable string

Bonjour,
J'ai un formulaire ACCESS sur lequel j'ai inséré une feuille Excel(Microsoft Office Spreadsheet 11.0). A priori, le VBA EXCEL est bien pris en compte car j'ai récupéré pas mal de bouts de code ici et là qui fonctionnent très bien...

Mon problème est le suivant :
Lors d'une boucle, je créée une formule du type
"=Feuille1!B2+Feuille2!B2+Feuille3!B2...." qui est stockée dans une variable String .
Lorsque je veux affecter cette formule à des cellules (wks.Range("C" & i).Formula = MaVariable), j'ai une erreur...La méthode Formula de l'objet _Range a échoué...Alors que si je mets wks.Range("C" & i).Formula = "=Feuille1!B2+Feuille2!B2+Feuille3!B2" ça fonctionne

Quelqu'un aurait une idée ?

J'ai essayer :

Code:

---

1 2 3 4

Dim toti As String i = 1 toti = "=Feuil1!B2+Feuil2!B2+Feuil3!B2" Worksheets(1).Range("C" & i).Formula = toti

---

et ca fonctionne très bien !! :mrgreen: (Tu peux mettre ton code ?)


Pourquoi tu ne fait pas la somme directement :

Code:

---

1 2 3 4 5 6 7

i = 1 Total = 0   For J = 1 To Sheets.Count Total = Total + Sheets(J).Range("C" & i) Next J Sheets(1).Range("C" & i) = Total

---

Citation:

---

Envoyé par delphine35

Pourquoi tu ne fait pas la somme directement :

---

Car je voudrais que ces valeurs soient dynamiques lorsqu'on modifie la valeur d'une des cellules sources.
Voici un résumé de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

strSql1 = "SELECT T_services.* FROM T_services WHERE (((T_services.nomService)<>'N/A'));" Set wks = Me.SpreadMFC.Object Set service = CurrentDb.OpenRecordset(strSql1) wks.ActiveSheet.Name = service("nomService") sommeHeures = "=" & service("nomService") & "!B2" While Not service.EOF wks.Worksheets.Add wks.ActiveSheet.Name = service("nomService") sommeHeures = sommeHeures & "+" & service("nomService") & "!B2" service.MoveNext Wend For i = 2 To wks.Range("A2").End(xlDown).Row wks.Range("C" & i).Formula = sommeHeures Next i

---

EDIT : Je crois deviner d'où vient l'erreur....A priori ça vient du fait que certains noms de feuilles ont un espace (ex : QC production)...Donc je cherche la syntaxe pour palier à ce problème (les crochets [QC production] ne fonctionnent pas déjà :p)

Tu aurait pas oublier de changer de service ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

strSql1 = "SELECT T_services.* FROM T_services WHERE (((T_services.nomService)<>'N/A'));" Set wks = Me.SpreadMFC.Object Set service = CurrentDb.OpenRecordset(strSql1) wks.ActiveSheet.Name = service("nomService") sommeHeures = "=" & service("nomService") & "!B2" service.MoveNext While Not service.EOF wks.Worksheets.Add wks.ActiveSheet.Name = service("nomService") sommeHeures = sommeHeures & "+" & service("nomService") & "!B2" service.MoveNext Wend For i = 2 To wks.Range("A2").End(xlDown).Row wks.Range("C" & i).Formula = sommeHeures Next i

---

Merci beaucoup à toi Delphine mais j'ai trouvé ! :)
C'était des apostrophes à mettre autour de chaque service....

Code:

---

1 2 3 4

sommeHeures = "='" & service("nomService") & "'!B2" ... ... sommeHeures = sommeHeures & "+'" & service("nomService") & "'!B2"

---

NB : ta remarque est justifiée mais ça faisait partie des lignes que j'ai retirées pour alléger le texte ^^

Il doit tout de meme te manquer un service.MoveNext avant le While ... :mrgreen: