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
A voir également:
- Introduire la fonction somme dans une macro
- Fonction si et - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fonction somme excel - Guide
- Somme si couleur - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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
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
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