Discussion :

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

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

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 :

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

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 :

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

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 :

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

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

ou avec range

Code :

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

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 :

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

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