Transformer une expression textuelle de formule en formule active
Bonjour,
Je planche sur un problème depuis un moment et je n'arrive toujours pas à trouver de solutions.
J'aimerai créer une macro qui me permette de placer le signe = devant une formule.
Exemple: j'ai dans ma cellule le contenu suivant : 8+5*1
je voudrai créer un macro qui me copie le contenu de cette cellule dans la cellule de droite puis me place le signe = devant afin que la macro me renvoie le résultat.
En faisant ça, je peux toujours avoir en vue la formule et dans la case d'à côté le résultat qu'elle renvoie
Mon but est de pouvoir imprimer la page avec le calcul et le résultat affichés.
J'ai trouvé cette macro qui fonctionne avec plusieurs caractères mais pas avec le signe =.
Code:
1
2
3
4
5
6
| Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = "=" & cellule
Next cellule
End Sub |
J'ai trouvé une autre solution en insérant un espace avant le signe = comme ceci:
Code:
1
2
3
4
5
6
7
|
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = " =" & cellule
Next cellule
End Sub |
ça fonctionne, seulement maintenant il faudrait continuer cette macro en supprimant l'espace qui se trouve avant le signe égale, c'est donc à ce moment là que je suis bloqué et que je ne trouve pas de solutions.
Est-ce-que quelqu'un peut m'aider SVP?
