Probleme de syntaxe avec des calculs integrant des variables

Bonjour à tous et désolé pour le titre à ralonge mais je pense qu'il récapitule bien le soucis.

Je débute depuis peu en vba et je voudrais savoir quelle serait la syntaxe pour un calcul du type (je souhaiterais faire la somme d'un range) :

Code:

---

cells(1,1).formula = "=sum(Range(Cells(i,j)):Cells(k,l)))"

---

Ayant essayé beaucoup de differentes syntaxes au cour de la journée et cela, sans résultat, je solicite votre aide.

Cordialement,
trigger

Bonjour,
le mot clef concaténation (fait une recherche google) pour VBA c'est le &

Code:

---

cells(1,1).formula = "=sum(Range(" & Cells(i,j).address & ":" &Cells(k,l).address & ")"

---

Par contre tesparenthèse ce n'était pas ca ;)

Bonjour, je tiens tout d'abord à te remercier pour ta réponse, elle me semble correcte cependant elle me retourne une erreure :

Citation:

---

Erreur d'éxecution '1004':
Erreur définie par l'application ou par l'objet

---

Je te montre la partie de mon code où j'utilise ta syntaxe:

Code:

---

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

NbLigneMax = Sheets("feuil1").Cells((Range("a:a").Rows.Count), 1).End(xlUp).Row '++++++++++++++++++++++++++++++++++++ 'Calculs '++++++++++++++++++++++++++++++++++++   ColSynt = Cells.Find(What:="ici").Column LigneSynt = Cells.Find(What:="ici").Row   k = 1   While Sheets("feuil1").Cells(1, k).Value <> ""   Cells(NbLigneMax + 1, k).Formula = "=sum(Range(" & Cells(LigneSynt + 1, k).Address & ":" & Cells(NbLigneMax, k).Address & ")"     k = k + 1   Wend

---

Je ne sais pas trop où chercher mais l'erreur se trouve sur la ligne du calcul...

Cordialement,
Trigger

Quand on rentre une formule dans excel on utilise pas le mot range ok? donc pareil quand ou utilise formula
(je dit ca mais j'avais oublié de l'enlever :aie:)

Code:

---

Cells(NbLigneMax + 1, k).Formula = "=sum(" & Cells(LigneSynt + 1, k).Address & ":" & Cells(NbLigneMax, k).Address & ")"

---

ou avec range

Code:

---

Cells(NbLigneMax + 1, k).Formula = "=sum(" & Range( Cells(LigneSynt + 1, k),Cells(NbLigneMax, k)).Address & ")"

---

Encore un coup je trouve ce forum assez extraordianire, deuxieme fois que je poste et deuxieme que j'ai une réponse claire, nette et précise.

Merci beaucoup pour ton aide,
Cordialement,
Trigger.

Bonjour,

un peu plus compacte :

Code:

---

Cells(NbLigneMax + 1, K).FormulaR1C1 = "=SUM(R" & LigneSynt & "C:R[-1]C)"

---