Fonction somme VBA
NINO
-
Doudou95 Messages postés 1897 Date d'inscription Statut Membre Dernière intervention -
Doudou95 Messages postés 1897 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis nouveau sur le forum et en VBA Excel. Je souhaiterais à la suite d'un code définir dans une cellule la somme d'une colonne qui sera déterminé à partir de données qui pourront varier.
Voici le début de mon code:
Dim C
Dim F
Dim Po
Dim rt
Dim n
C = Range("b1").Value
F = Range("b2").Value2
Po = Range("b3").Value
rt = Range("b4").Value
n = Range("b5").Value
Range("a8").Select
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Value = C * Po
ActiveCell.Offset(0, 2).Value = 1 / (1 + rt) ^ ActiveCell.Value
ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 1).Value * ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Select
Loop
Activecell.Offset(0,3).Value= (là je souhaiterais faire la somme de l'ensemble des cellules du dessus)
J'espère avoir été assez clair merci pour votre aide.
Je suis nouveau sur le forum et en VBA Excel. Je souhaiterais à la suite d'un code définir dans une cellule la somme d'une colonne qui sera déterminé à partir de données qui pourront varier.
Voici le début de mon code:
Dim C
Dim F
Dim Po
Dim rt
Dim n
C = Range("b1").Value
F = Range("b2").Value2
Po = Range("b3").Value
rt = Range("b4").Value
n = Range("b5").Value
Range("a8").Select
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Value = C * Po
ActiveCell.Offset(0, 2).Value = 1 / (1 + rt) ^ ActiveCell.Value
ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 1).Value * ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Select
Loop
Activecell.Offset(0,3).Value= (là je souhaiterais faire la somme de l'ensemble des cellules du dessus)
J'espère avoir été assez clair merci pour votre aide.
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
même réponse que pour le sujet qui te précède, pas besoin de vba utilise les formules Excel :
http://www.ybet.be/formation_excell/ -
D8: 5,714
D9: 5,442
D10: 91,567
A partir du programme la cellule se place en D11 et je voudrais à partir de VBA mettre en D11 la somme D8 + D9 + D10. -
Merci mais les cellules D8, D9 et D10 sont données en exemple le code me place sur une cellule (exemple cellule D11) et là je souhaite faire la somme de toutes les cellules du hauts.
j'avais vu quelque chose comme ca qui correspond à peut prêt à ce que je voudrais faire mais ca ne fonctionne pas
range("d11").formula= "=Sum(R[-" & maxrow & "]C:R[-1]C)"
