introduire la fonction somme dans une macro Fermé

Question

Bonjour,

j ai un tableau que je doit remplir  avec certain information a partir d un tableau initial j ai cree une macro, la colonne « F » correspond au montant , je voudrais que dans la dernier ligne avoir la fonction somme pour avoir le montant global.

merci d avance de votre aide

voici la macro que j ai fait:

Dim i As Integer
Dim j As Integer

j = 5
While Not ActiveWorkbook.Sheets("begin").Cells(j, 2).Value = ""
    j = j + 1
Wend

For i = 7 To j - 1
    Range("D" & i).Select
    ActiveCell.FormulaR1C1 = "=begin!R[-1]C[14]"
    Range("E" & i).Select
    ActiveCell.FormulaR1C1 = "=begin!R[-1]C[14]"
    Range("F" & i).Select
    ActiveCell.FormulaR1C1 = "=begin!R[-1]C[6]"
    Range("G" & i).Select
    ActiveCell.FormulaR1C1 = "=begin!R[-1]C[7]"
    Range("H" & i).Select
    ActiveCell.FormulaR1C1 = "=begin!R[-1]C[-1]"
    Next i
End


End Sub

michel_m · Answer

salut cb,

je n'ai pas bien compris où tu voulais inscrire la formule de somme: j'ai donc  fait les 2 cas par ligne et par colonne à toi de choisir

Sub ecrire_formules()
Dim derlig As Integer
Dim tablo, cptr As Integer, cptr2 As Byte
Dim formule As String

'initiaisation
    Sheets(2).Activate ' par prudence, actives la feuille où tu veux écrire les formules
    derlig = Sheets("begin").Range("B65536").End(xlUp).Row
    tablo = Array("=begin!R[-1]C[14]", "=begin!R[-1]C[14]", "=begin!R[-1]C[6]", "=begin!R[-1]C[7]", "=begin!R[-1]C[-1]")
    Application.ScreenUpdating = False

'écriture des formules
For cptr = 7 To derlig
    Range(Cells(cptr, 4), Cells(cptr, 8)) = tablo
    ' SI tu veux total par lignes
    formule = "=somme(D" & cptr & ":H" & cptr & ")"
    Cells(cptr, 9).FormulaLocal = formule
Next
'si tu veux total par colonnes
For cptr2 = 1 To 5
    col = Choose(cptr2, "D", "E", "F", "G", "H")
    formule = "somme(" & col & "7:" & col & derlig & ")"
    Cells(derlig + 1, col) = formule
Next
End Sub

Introduire la fonction somme dans une macro

1 réponse

Discussions similaires