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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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?