Afficher le résultat d'un calcul "fait en VBA" dans une cellule

Version imprimable

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:

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

Je ne sais pas si tu veux afficher le résultat ou l'opération.
Alors je t'ai mis les deux : le résultat en A1 et l'opération en A2

Code:

1
2
3
4
5
6
7
8
9
Sub Macro_Addition_Serie()
    Dim compteur As Long
    Range("A1").Value = 0
    Range("A2").Formula = "=0"
    For compteur = 1 To 10
        Range("A1").Value = Range("A1").Value + compteur
        Range("A2").Formula = Range("A2").Formula & "+" & compteur
    Next compteur
End Sub

07/09/2018, 10h55
Pierre Fauconnier

1 pièce(s) jointe(s)

Salut.

Transforme ta sub en fonction et tu pourras l'utiliser dans une formule Excel.

Tiens cependant compte d'une restriction: cette fonction ne peut pas altérer le classeur. En d'autres termes, elle ne peut que traiter l'information.

Cela dit, fais bien la différence entre les différentes façons de renvoyer le "contenu" d'une cellule, car il y a une différence entre .Value et .Formula

Pièce jointe 409798

bonjour

Code:

1
2
3
4
5
Public Function Addition_Serie(compteur)
    Dim x&, compte&
    For x = 1 To compteur: compte = compte + x: Next x
    Addition_Serie = compte
End Function

formule

Citation:

=Addition_Serie(10)

07/09/2018, 11h26
Pierre Fauconnier

1 pièce(s) jointe(s)

@Patrick

je crois que la formule n'était là que pour expliquer la demande (récupérer une valeur dans une cellule), parce sinon, pour ce calcul, il n'est nul besoin de boucle, ni même de VBA, que l'on parte de 1 ou d'une autre valeur ;)

Pièce jointe 409803

Citation:
Envoyé par Bercud
Bonjour à tous ,

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

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 ( sans conserver les liaisons)) et de faire afficher le résultat dans une cellule tout en conservant la formule avec les nombres d'origine (plus explicite pour comprendre le résultat)

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
Bonjour Messieurs,

C'est excellent. Vous m'avez bien aidé. Ce problème est résolu.
Ceci est parfait : Range("A2").Formula = Range("A2").Formula & "+" & compteur

Les autres réponses m'aideront mais dans un autre contexte .

Ici mon problème était de créer une formule dans une cellule, mais cette formule se construit au fur et à mesure dans le VBA et elle s'allongera avec des boucles et des tests, tout en conservant la formule déjà existante dans la cellule (mais pas en partant uniquement de la dernière valeur du résultat). A la fin c'est la valeur du résultat du calcul qui m'intéresse mais je veux comprendre comment il se forme (= conserver la formule complète).

Un grand merci.

Bernard
Devise : Il vaut mieux 1 qui sait que 10 qui cherchent, ne serait ce les dix meilleurs ... ( Je suis ni l'un ni l'autre).