Discussion :

[zerti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

en remplacant les + par des &

[zerti]

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

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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)

[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 ! 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