VBA - Taduire une somme en VBA

[Toushusss]

Bonjour le forum
Comment traduire la Somme de Cette cellule .RANGE("C" & Tot.Row + 7) à cette cellule .RANGE ("C" & Tot.Row + 10)

.Range("C" & Tot.Row + 11).Formula = ? ( Somme décrite précédemment

Merci

 

[flyonets44]

Re : VBA - Taduire une somme en VBA

Bonjour
ci-joint le code d'une somme pour une plage variable
à adapter à ton cas
Sub Montotal()
Dim Plage As Range, Ax&, By&, First, Last
By = ActiveCell.Column
Last = Cells(65536, By).End(xlUp).Row
Ax = 1
Cells(Ax, By).Formula = "=Sum(" & Cells(Ax + 1, By).Address & _
":" & Cells(Last, By).Address & ")"

End Sub
Cordialement
Flyonets

 

[Pierrot93]

Re : VBA - Taduire une somme en VBA

Bonjour,

peut être comme ceci :

With Sheets("nomfeuille")
    .Range("C" & Tot.Row + 11).Value = Application.Sum(.Range("C" & Tot.Row + 7) & ":" & .Range("C" & Tot.Row + 10))
End With

bonne journée
@+

 

[job75]

Re : VBA - Taduire une somme en VBA

Bonjour à tous,

On peut utiliser :

.Range("C" & Tot.Row + 11).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

Edit : si l'on veut ne conserver que la valeur :

With .Range("C" & Tot.Row + 11)
  .FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
  .Value = .Value
End With

A+

 

[Toushusss]

Re : VBA - Taduire une somme en VBA

Merci a tous pour votre aide.
Je vais utiliser la méthode de job75, c'est celle qui se rapproche le plus de mon code.
Merci encore🙂