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
Partager