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

Résolu
Koalacid Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   -  
Koalacid Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 714
 
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   Statut Membre Dernière intervention   2
 
Hello f894009,


Ca marche parfaitement bien, merci beaucoup!


Sincèrement,
0