XL 2019 Restitution cellule

Dranreb à dit:

Il manque .FormulaR1C1 derrière .Offset(n + 1, 1)

Cliquez pour agrandir...

job75 à dit:

Bonjour rish_cyril, Bernard,

Il s'agit (à peu près) du code que je vous ai donné, il manque cependant une ligne pour l'effacement.

Donc comme je l'ai déjà dit vous modifiez mes codes et fichiers, alors débrouillez-vous.

Non, ce n'est pas nécessaire, comme il y a des crochets dans la formule VBA sait qu'elle est du type R1C1.

A+

Cliquez pour agrandir...

Sub Calcul()
Dim chemin$, fichier$, a(), n&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "gestion*.xlsx")
ReDim a(1 To Rows.Count, 1 To 2)
While fichier <> ""
    n = n + 1
    a(n, 1) = fichier
    a(n, 2) = "=SUM('" & chemin & "[" & fichier & "]" & "Janvier:Décembre'!C168)" 'formule de liaison
    fichier = Dir
Wend
'---restitution---
With Feuil1 'CodeName à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[E2] '1ère cellule de destination, à adapter
        If n Then .Resize(n, 2) = a
        .Offset(n + 1, 1).FormulaR1C1 = "=SUM(R2C:R[-2]C)"
        If n Then
            .Offset(n + 1) = "Total"
            .Offset(n + 1, 1) = "=SUM(R[" & -n - 1 & "]C:R[-2]C)"
        End If
    End With
    With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub

job75 à dit:

Sur ce fil ça marche très bien chez moi :

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

Bien sûr si vous bricolez le code ça ne marchera pas.

Cliquez pour agrandir...

risch_cyril à dit:

Vous n'avez pas de cellules fusionnées vous et c'est ca qui pose probleme

Cliquez pour agrandir...