XL 2019 Somme de cellules

Marine_blatz · 25 Juin 2021

Bonjour,

j'aurai besoin de votre aide svp

Dans la cellule E2 de la feuille tableau du classeur investissements, je souhaite faire la somme suivante

Somme de: C168 -->De tout les mois (janvier:decembre) -->de chaque classeur portant le terme "gestion_"*

je vous laisse un document ci joint pour effectuer la macro en question si vous pouviez la nommer "somme_RAI" cela serait sympatique

merci d'avance Marine.B

Pièces jointes

Hasco · 25 Juin 2021

Re bonjour,

Je vous ai répondu dans l'autre fil :

XL 2019 - Somme de cellules depuis différents classeurs

Bonjour, j'aurai besoin de votre aide messieurs, et mesdame. Dans la cellule E2 de la feuille tableau du classeur investissements, je souhaite faire la somme suivante Somme de: C168 -->De tout les mois (janvier:decembre) -->de chaque classeur portant le terme "gestion_"* je vous laisse un...

www.excel-downloads.com

Cordialement

job75 · 25 Juin 2021

Bonsoir Marine_blatz, Roblochon,

Curieux que ce soit le même problème que celui de ce fil :

https://www.excel-downloads.com/thr...llule-dans-un-fichier.20058116/#post-20437323

A+

Hasco · 26 Juin 2021

Bonjour,

Oui curieux...

cordialement

job75 · 26 Juin 2021

Bonjour Marine_blatz, Roblochon, le forum,

Téléchargez les fichiers joints dans le même dossier (le bureau).

Puisqu'il faut regrouper toutes les sommes en Tableau!E2 on utilise cette macro dans ThisWorkbook :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, v, s#
chemin = Me.Path & "\"
fichier = Dir(chemin & "gestion*.xlsx")
While fichier <> ""
    v = ExecuteExcel4Macro("SUM('" & chemin & "[" & fichier & "]" & "Janvier:Décembre'!R168C3)") 'formule de liaison sur C168
    If IsNumeric(v) Then s = s + v
    fichier = Dir
Wend
Sheets("Tableau").[E2] = s 'restitution
End Sub

Elle se déclenche quand on ouvre ou active le fichier.

A+

XL 2019 Somme de cellules

Marine_blatz

XLDnaute Nouveau

Pièces jointes

Pièces jointes

Hasco

XLDnaute Barbatruc