Problème avec Range.Formula

Version imprimable

Bonjour,
J'aimerais savoir comment on peut mettre une formule dans une cellule via VBA.
Je m'explique : j'ai besoin d'additionner toutes les cellules D4 qui se trouvent dans toutes les feuilles (sauf une) dans le meme workbook.

Voici ce que j'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim I As Integer I = Worksheets.Count Dim Chaine As String Chaine = "" For J = 1 To I If (Worksheets(J).Name <> "Conso") Then If J <> 1 Then Chaine = Chaine & ";" End If Chaine = Chaine & "'" & Worksheets(J).Name & "'" & "!D4" End If Next MsgBox Chaine ' La formule suivante me retourne une erreur Sheets("Conso").Range("C3").Formula = "=sum(" + Chaine + ")"
J'ai une erreur : objet 1004 : Erreur définie par l'application ou par l'objet.

J'ai essayé de remplacer le ";" par le "," mais ça ne marche pas non plus.

Avez vous une idée ?

Merci d'avance

23/07/2007, 16h04
COCONUT2

en remplacant les + par des &
23/07/2007, 16h07
zerti

bah ça marche pas non plus, j'ai toujours la même erreur :cry:

j'ai trituré ton code et ca marche comme ca.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For J = 1 To I
    If (Worksheets(J).Name <> "Conso") Then
        If J <> 1 Then
            Chaine = Chaine & ","
        End If
    Chaine = Chaine & "'" & Worksheets(J).Name & "'" & "!D4"
    End If
Next
 
Chaine = "sum(" & Chaine & ")"
' MsgBox Chaine
' La formule suivante me retourne une erreur
Worksheets("Conso").Cells(3, 3).Formula = "=" & Chaine

J'ai donc remplacé le Range C3 par cells(3,3)

23/07/2007, 16h44
ouskel'n'or

Donne nous la formule telle que tu la mettrais manuellement dans ta cellule. Ainsi on ignore ce que tu as dans "chaine" au départ, ensuite tu insères une formule avec formula (pas de pb si tu n'as pas d'erreur...) mais regarde formulaLocal et FormulaR1C1 dans l'aide... si ça peut te donner des idées.
Ceci dit, je ne pense pas que les guillemets soient nécessaires (à vérifier)
23/07/2007, 17h25
zerti

alors ce que je souhaite mettre dans la cellule c'est juste : = SOMME('Feuil1'!D4;'Feuil2'!D4;'Feuil2'!D4;'Feuil2'!D4)

sinon, j'ai testé avec FormulaLocal et ça marche ! :D Je ne comprend pas vraiment pourquoi ça marche pas avec Formula, l'aide sur Excel n'est pas très claire là-dessus je trouve

merci beaucoup :D