vous avec une boucle avec une variable Ligne et Ligne=Ligne+1 qui remplit
des cellules d'une colonne avec des valeurs numériques et vous voulez
insèrer la fonction SOMME d'Excel dans la cellule de la ligne suivante (la
dernière), laquelle fonction somme devant sommer tout ce qui est au dessus ?
Je n'ai pas trouvé.
Je refais, c'est pas clair : mon VBA rempli des cellules d'une colonne PRIX
à partir d'un Recordset. Je voudrais insérer la fonction somme dans la
cellule de la même colonne, ligne suivante, quand il a fini le recordset, et
faire la somme des prix. Or, il me semble que les instrucions du type
Formula n'acceptent pas les variables (Ligne). Me gourje ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Sub zz() x = 10: z = 5 'remplit A1:Ax et met la formule avec SOMME en Ax+1 For i = 1 To x Cells(i, "A") = z z = z + 1 Next Cells(x + 1, "A") = "=SUM(A1:A" & x & ")" End Sub
AV
Sub zz()
x = 10: z = 5 'remplit A1:Ax et met la formule avec SOMME en Ax+1
For i = 1 To x
Cells(i, "A") = z
z = z + 1
Next
Cells(x + 1, "A") = "=SUM(A1:A" & x & ")"
End Sub
Sub zz() x = 10: z = 5 'remplit A1:Ax et met la formule avec SOMME en Ax+1 For i = 1 To x Cells(i, "A") = z z = z + 1 Next Cells(x + 1, "A") = "=SUM(A1:A" & x & ")" End Sub
AV
JB
D 1 Total 2 4 800,00 3 3 500,00 4 3 790,00
Range("D1").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Count ActiveCell.End(xlDown).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[-" & n & "]C:R[-1]C)"
Cordialement JB
D
1 Total
2 4 800,00
3 3 500,00
4 3 790,00
Range("D1").Select
n = Range(ActiveCell, ActiveCell.End(xlDown)).Count
ActiveCell.End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & n & "]C:R[-1]C)"
