Somme dans une macro

Bonjour à tous,

J'ai un code pour copier des données d'un fichier (fichier_ouvert) et les coller dans un autre fichier (fichier_référence). De plus, ce code me permet de décaler les données d'une colonne à chaque fois que je clique sur le bouton:

Set CS = Workbooks("Fichier_ouvert.xlsx")

Set OS = CS.ActiveSheet

Set CD = Workbooks("Fichier_reférence.xlsm")

Set OD = CD.ActiveSheet

Set DEST = IIf(OD.Range("D40") = "", OD.Range("D40"), OD.Cells(40, Application.Columns.Count).End(xlToLeft).Offset(0, 1))

DEST.Select

OS.Range("P59").Copy DEST

J'aimerai, grâce à ce code, copier une somme de données présente dans le fichier "fichier_ouvert" et coller la valeur de cette somme dans la cellule D40 du "fichier référence".

Sauriez-vous comment faire?

Merci d'avance

bonjour

Excel possède d'origine la fonction +

donc tu recopies des données (moi je le fais sans VBA), puis tu crées la somme avec un =SOMME() ou bien =...+...

ce sera bien plus simple, plus fiable et plus durable

Effectivement, c'est peut être plus simple.

Par contre, je ne sais pas quelle est la syntaxe pour écrire cette somme. J'ai essayé plusieurs syntaxe différente, mais toujours erreur d'exécution 1004.

Si j'ai bien compris ce que tu m'as dit, je dois pouvoir écrire une somme à l'aide de + sur cette ligne, à la place du P59:

OS.Range("P59").Copy DEST

Mais par contre, où faut-il mettre le =?