Discussion :

[toushusss]

Salut , mon code ne veut pas accepter la formule suivante pour effectuer la somme de la cellule C9 à la dernière cellule ajouter dans mon tableau. Si quelqu'un voyait pourquoi. Merci

Code :

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

.Range("C" & Tot.Row -1).Offset(-1,0) = Sum([C9]:["C"&Tot.Row-1])

[aliasjadawin]

essaye ça:

Code :

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

1
2
 
.Range("C" & Tot.Row -1).Offset(-1,0).FormulaLocal = "=SOMME(" & chr(34) & "C9:C" & Tot.Row-1 & chr(34) & ")"

[mercatog]

Ou bien en utilisant Formula ou FormulaR1C1

Code :

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

1
2
3
.Range("C" & Tot.Row).Formula = "=Sum(C9:C" & Tot.Row - 1 & ")"
'ou bien
.Range("C" & Tot.Row).FormulaR1C1 = "=Sum(R[" & 9 - Tot.Row & "]C:R[-1]C)"

PS

Code :

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

1
2
.Range("C" & Tot.Row -1).Offset(-1,0)

Équivalent à

Code :

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

.Range("C" & Tot.Row -2)

'Et dans la formule tu fais la somme jusqu'à Tot.Row-1, càd au dela de Tot.Row-2!!

[amnorian]

la fonction sum fait partie de la classe application.worksheetfunction

Code :

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

.Range("C" & Tot.Row -1).Offset(-1,0) = application.worksheetfunction.Sum(range("C9:C"&Tot.Row-1))

je ferais plus un truc comme ca
tu auras la somme de tes cellules mais pas la formule comme les exemples cités plus haut

[fring]

Bonjour,

Code :

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

.Range("C" & Tot.Row -1).Offset(-1,0) = Application.WorksheetFunction.Sum(Range("C9:C" &Tot.Row-1))

Par contre il y a un twist avec les lignes...
.Range("C" & Tot.Row -1).Offset(-1,0) revient à écrire .Range("C" & Tot.Row -2)

En supposant que Tot.Row = 50, tu demandes d'écrire dans la cellule C48 la somme de C9 à C49 ce qui va coincer...

[Edit]
oups...grillé

[toushusss]

Merci a tous pour vos réponse , ça marche super bien.

Merci Fring, pour la remarque je me suis effectivement trompé entre -1 et 1

Code :

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

.Range("C" & Tot.Row -1).Offset(1,0)

[fring]

Même remarque, ton Offset est inutile.

.Range("C" & Tot.Row -1).Offset(1,0) = .Range("C" & Tot.Row)