XL 2019 Restitution cellule

[risch_cyril]

Bonjour,
mon code devrait restituer une valeur numérique, mais il me restitue du texte. Comment cela se fait t-il ?

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
        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

 

[risch_cyril]

Il s'agit normalement de la somme des cellules C168 des classeurs contenant le mots Gestion*

 

[Dranreb]

Bonjour.
Il manque .FormulaR1C1 derrière .Offset(n + 1, 1)
Sinon il assume .Value, qui peut éventuellement marcher quand même si c'est une formule en notation A1, mais pas R1C1. La ligne absolue serait plus simple, non ?

.Offset(n + 1, 1).FormulaR1C1 = "=SUM(R2C:R[-2]C)"

 

[job75]

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.

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

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+

 

[Valtrase]

Attention au format des cellules....
test avec formule = AUJOURDHUI()

 

[risch_cyril]

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+

La ligne qu'il manque pause probléme lors de l'éxecution de la macro ça me la met en jaune donc sur un autre ticket quelqu'un ma dit qu'elle nétait pas nécessaire j'ai actuellemtn se code ci dessou mais le résultat dans la case est toujours affiché comme "gestion_2021" et non pas la somme (résultat en E2 de la feuille tableau)

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]

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.

 

[risch_cyril]

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.

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

 

[job75]

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

Vous faites vraiment n'importe quoi sur ce forum, il faut suivre :

https://www.excel-downloads.com/threads/cellules-fusionnees.20058244/#post-20438523

 

[job75]

Vous intervenez sur ce forum depuis 2 jours et vous en êtes au 23ème post.

Jamais vous n'avez joint le moindre fichier, vous vous moquez du monde !