Bonjour à tous ,

J'ai simplifié mon problème pour être plus clair :
Voici un morceau de code VBA qui devrait m'afficher le résultat de l'addition de +0+1+2+3+4+5+6+7+8+9 faite en VBA dans la cellule A1
A l'affichage, Je n'obtiens pas le résultat attendu qui est 45, mais à l'affichage j'ai la chaine de caractères +0+1+2+3+4+5+6+7+8+9

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro_Addition_Serie()
    Dim compteur
    Dim SvgVal
    compteur = 1
    Range("A1").Value = 0
        Do
            SvgVal = Range("A1").FormulaR1C1
            If Left(SvgVal, 1) = "+" Then
                Range("A1").FormulaR1C1 = SvgVal & "+" & compteur
            Else
                Range("A1").FormulaR1C1 = "+" & CDbl(SvgVal) & "+" & compteur
            End If
            compteur = compteur + 1
        Loop Until compteur = 10
 
End Sub
L’idée est de faire une formule en VBA en allant piocher des données numériques à plusieurs endroits ( dans plusieurs classeurs (mais sans conserver les liaisons)) et d'afficher le résultat dans une cellule mais tout en conservant la formule avec les nombres d'origine (la formule =0+1+...+9 est plus explicite pour comprendre le résultat que d'avoir uniquement un total "45")

Quelqu'un aurait une solution à me proposer pour obtenir le résultat de cette formule ci-dessus dans la cellule "A1"

Je vous en remercie.
Cordialement.
Bernard