VBA [E-03] (Débutant,) ActiveCell & FormulaR1C1 = "=SUM
Bonjour le forum.
Etant débutant et après plusieurs recherches sur le site, je ne trouve pas la solution.
A partir de cette ligne : ActiveCell.Offset(0, 10).FormulaR1C1 = Sum?
J'aimerais calculer la somme des valeurs de la colonne (C:2) jusque la cellule active et afficher le résultat dans la colonne (K). Sachant qu'i n'y a pas de données dans chaques cellules de la colonne (C)
J'ai testé plusieurs combinaisons vue sur ce site mais sans succès.
Exemple:
Col (C) Col (K)
10,00 = 10,00
15,22 = 25,22
Vide = 25,22
25,00 = 50,22
Voici le début de code.
Code:
1
2
3
4
5
6
7
8
9
10
11
| Worksheets("Base").Select
Range("A1").Select
If ActiveCell.Offset(1, 0).Value <> "" Then Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Format(Txt_date.Value, "yyyy")
ActiveCell.Offset(0, 1).Value = Format(Txt_date.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 2).Value = Txt_MontantMensualite.Value
'
ActiveCell.Offset(0, 8).FormulaR1C1 = "=RC[-3]-RC[-2]" ' "Calcul" Montant net
ActiveCell.Offset(0, 9).FormulaR1C1 = "=RC[-1]/RC[-4]" ' "Calcul" Prix du litre
ActiveCell.Offset(0, 10).FormulaR1C1 = ? |
D'avance je remercie le forum.
Fadan
