Formules somme() jusqu'à la première/dernière ligne

Résolu/Fermé
Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016 - 27 janv. 2016 à 11:13
Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016 - 27 janv. 2016 à 13:31
Bonjour,


J'aimerai faire la somme d'une colonne depuis la cellule située juste au-dessus de cellule où inscrire la somme, jusqu'à lla ligne 5 de la même colonne.

Un exemple: En BF il y a un intitulé de colonne en BF4, et une série de valeurs depuis BF5 inclus jusqu'à BF54 inclus. Alors il me faudrait une formule somme en BF55 pour la colonne.

Le petit hic c'est que le nombre de lignes peut varier.

Pour l'instant j'ai un truc mais il m'inscrit la somme en valeur alors que j'aimerai l'avoir en formule excel.

Sub ptete()

Dim derlig As Long

derlig = Range("BF65536").End(xlUp).Row
Cells(derlig + 1, 58) = Application.Sum(Range("BF5:BF" & derlig))


End Sub



J'ai bien essayé le formula = ...

Mais je suis pas assez bon pour mêler les RC qui sélectionne lignes et colonnes avec des EndXlUp ou Down...

Est-ce que quelqu'un connaît la bonne syntaxe pour ce genre de problème?

Sincèrement,

Koalacid




A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 janv. 2016 à 11:41
Bonjour,

Sub ptete()
    Dim derlig As Long
    
    With Worksheets("feuil1")
        derlig = .Range("BF65536").End(xlUp).Row
        .Cells(derlig + 1, 58).FormulaLocal = "=somme(BF5:BF" & derlig & ")"
    End With
End Sub
0
Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016 2
27 janv. 2016 à 13:31
Hello f894009,


Ca marche parfaitement bien, merci beaucoup!


Sincèrement,
0