Dans la colonne a j'ai des chiffres et des cellules vides
Exemple a1: a10 = 30
Dans la cellule a11 je veux la somme
a12:a16 = 50
Dans la cellule a17 je veux la somme
il doit le faire automatiquement suite à un programme
Le problème : il aditionne toutes les valeurs, même les cellules ou il y a
formule

la procédure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Parcourir()
Range("a1").End(xlDown).Select
 
Set valeurs = Range("a1", [A1].End(xlDown))
 
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1 'ligne +1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
With ActiveCell
 
ActiveCell.FormulaR1C1 = "=sum(R[-" & valeurs.Count & "]C:R[-1]c)"
    ActiveCell.Select
    End With
End Sub