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

Question

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 Longderlig = Range("BF65536").End(xlUp).RowCells(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




Configuration: Windows 7 / Mozilla 11.0

f894009 · Answer

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

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

1 réponse

Votre réponse

Discussions similaires