Discussion :

[Bercud]

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

=Addition_Serie(10)

[Pierre Fauconnier]

@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

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

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 ( 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).