[VBA] Excel - somme en relatif Résolu

Question

Bonjour,
J'essaye de faire générer par vba une formule somme dans une cellule. J'ai fait une macro pour dégrossir, que j'ai bidouillé un peu et ça me donne :
Cells(i, j).Value = "=SUM(R[-6]C:R[-1]C)"
je somme donc les 6 lignes qui sont au dessus de ma cellule.

Question, comment peut on faire pour que le -6 soit paramétrable? 
J'ai une variable qui vient chercher le nombre de cellule que l'on veut sommer (elle s'appelle nbrlig) et j'ai essayé, sans succès
Cells(i, j).Value = "=SUM(R["&nbrlig&"]C:R[-1]C)"

Merci d'avance pour votre aide !
A+

Papou93 · Answer

Bonjour IBegin,

Voici la solution à ton problème :

Cells(i, j) = Application.WorksheetFunction.Sum(Range(Cells(i, j).Offset(-nblg, 0), Cells(i, j).Offset(-1, 0)))

Cordialement.

Papou

Jacot · Answer

Bonjour IBegin,

si tu as bien une variable nbrlig que tu peux changer de valeur

Cells(i, j).Value =SUM(R[-" & nbrlig & "]C:R[-1]C)"


cordialement

Jacot

Kobaya · Answer

salut,

Ce n'est pas la propriété Value qu'il faut renseigner, mais FormulaR1C1 en l'occurence. Ce qui donne :
Cells(i, j).FormulaR1C1 =SUM(R[-" & nbrlig & "]C:R[-1]C)"

Utilisateur anonyme · Answer

Bonjour,

Pour ma part, je considère la formule comme une chaine de caractères, je peux donc utiliser
la propriété [Value] de la cellule.


Option Explicit
'

Sub InsereFormule()

    Dim MaFormule As String
    Dim NomCol1 As String, NomCol2 As String
    Dim NumLig1 As Long, NumLig2 As Long
        
        
    NomCol1 = "A": NomCol2 = "A"
    NumLig1 = 1: NumLig2 = 9
    MaFormule = "=SUM(" & NomCol1 & NumLig1 & ":" & _
                            NomCol2 & NumLig2 & ")"
    
    Cells(10, 1).Value = MaFormule

End Sub
'

Lupin

Utilisateur anonyme · Answer

re :

j'ajouterai que les propriétés [ Value ] et [ Formula ] sont affaires de direction d'affectation.

maVariable = ActiveCell.Value
maVariable = ActiveCell.Formula

ActiveCell.Value = maVariable
ActiveCell.Formula = maVariable

démonstration :

<code>
Option Explicit
'


Sub InsereFormule()

    Dim MaFormule As String, Message As String
    Dim NomCol1 As String, NomCol2 As String
    Dim NumLig1 As Long, NumLig2 As Long
        
        
    Range("A1").Formula = 4: Range("A2").Formula = 5
    NomCol1 = "A": NomCol2 = "A"
    NumLig1 = 1: NumLig2 = 2
    
    MaFormule = "=SUM(" & NomCol1 & NumLig1 & ":" & _
                            NomCol2 & NumLig2 & ")"
    
    Cells(3, 1).Formula = MaFormule

    Message = "Cellule A1 Valeur = " & Range("A1").Value & vbLf
    Message = Message & "Cellule A1 Formule = " & Range("A1").Formula & vbLf & vbLf
    Message = Message & "Cellule A2 valeur = " & Range("A2").Value & vbLf
    Message = Message & "Cellule A2 Formule = " & Range("A2").Formula & vbLf & vbLf
    Message = Message & "Cellule A3 valeur = " & Range("A3").Value & vbLf
    Message = Message & "Cellule A3 Formule = " & Range("A3").Formula & vbLf
    MsgBox Message
    
    Range("A1").Value = 4: Range("A2").Value = 5
    Cells(3, 1).Value = MaFormule

    Message = "Cellule A1 Valeur = " & Range("A1").Value & vbLf
    Message = Message & "Cellule A1 Formule = " & Range("A1").Formula & vbLf & vbLf
    Message = Message & "Cellule A2 valeur = " & Range("A2").Value & vbLf
    Message = Message & "Cellule A2 Formule = " & Range("A2").Formula & vbLf & vbLf
    Message = Message & "Cellule A3 valeur = " & Range("A3").Value & vbLf
    Message = Message & "Cellule A3 Formule = " & Range("A3").Formula & vbLf
    MsgBox Message

End Sub
'

voici du moins la perception que j'en ai !

Lupin

[VBA] Excel - somme en relatif

5 réponses

Discussions similaires

Newsletters