Probleme de syntaxe avec des calculs integrant des variables [Résolu]

[trigger00]

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

[Krovax]

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

[trigger00]

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

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

[Krovax]

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 )

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 & ")"

[trigger00]

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.

[mapeh]

Bonjour,

un peu plus compacte :

Code :

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