Sum avec variable colonne

Fermé
BoJav Messages postés 49 Date d'inscription mardi 23 février 2021 Statut Membre Dernière intervention 17 février 2022 - 17 févr. 2022 à 14:17
BoJav Messages postés 49 Date d'inscription mardi 23 février 2021 Statut Membre Dernière intervention 17 février 2022 - 17 févr. 2022 à 16:01
Bonjour,

Je n'arrive pas à trouver la bonne syntaxe pour faire une somme sur les cellules d'un ligne qui commence en colonne 5 (E) et fini à une colonne donc le numéro est variable.

Ce code me renvoie 0

Sub CongeSumCode()

Dim LCblOne As Integer      'La dernière colonne non vide du bloc
Dim LCS As Integer          'La colonne où sera calculer la somme

Dim LRcg As Integer         'LastRow de la liste


    LRcg = Range("A1000").End(xlUp).Row
    LCblOne = Range("E7").End(xlToRight).Column
    LCS = LCblOne + 2
    
    Cells(8, LCS).Formula = WorksheetFunction.Sum(Cells(8, 5), Cells(8, LCblOne))
    

End Sub


Egalement, je voudrais que soit écrit dans la Cells(8,LCS) la formule plutôt que le résultat.
NB. LCblOne va changer lors d'ajout de colonne entre la numéro5 et le numéro de la LCbl1

D'avance merci


Configuration: Windows / Chrome 98.0.4758.82
A voir également:

4 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
17 févr. 2022 à 14:28
Bonjour

Essaie comme ça
Cells(8, LCS) = WorksheetFunction.Sum(Range(Cells(8, 5), Cells(8, LCblOne)))

cDLMNT
0
BoJav Messages postés 49 Date d'inscription mardi 23 février 2021 Statut Membre Dernière intervention 17 février 2022
17 févr. 2022 à 15:02
Perfect ! Merci

Et si je voulais que la formule de cette somme soit écrite dans la cellule afin que la somme se calcule automatiquement dès qu'une valeur d'une des cellules composant cette somme varie?
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
17 févr. 2022 à 15:22
dim adr as string
adr = Range(Cells(8, 5), Cells(8, LCblOne)).Address
Cells(9, LCS).Formula = "=sum(" & adr & ")"

Cdlmnt
0
BoJav Messages postés 49 Date d'inscription mardi 23 février 2021 Statut Membre Dernière intervention 17 février 2022
17 févr. 2022 à 16:01
Super ! merci!
0