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

  • Initiateur de la discussion Initiateur de la discussion bercud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bercud

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

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

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)
Bernard
une cellule ne peut afficher simultanement une formule et son résultat
- la formule est toujours visible dans la barre de formule
- la cellule affiche un format de la valeur contenue
😕 sans trop avoir compris le besoin et l'intéret
upload_2018-9-7_12-35-41.png


affichage différencié de la chaine et du résultat :
Function Eval(target As Range)
Application.Volatile
Eval = Evaluate("=" & target.Text)
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
6
Affichages
609
Retour