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 : Sélectionner tout - Visualiser dans une fenêtre à part
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