Introduire la fonction somme dans une macro
cb
-
cb -
cb -
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
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
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
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
-
merci beaucoup pour ton aide , je un autre probleme persone dans mon entourage ne reussi a d aide stp essaye,
j ai plusieurs tableau que je doit remplir a partir un grand tableau sur la base du non dans la colonne G EX: je voudrais que toute les ligne contenant le nom malek dans la colonne G soit mise dans un table pres definie.
merci d avance
-
