[XL-2010] Transformer une expression textuelle de formule en formule active

[forrest55]

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?

[bbil]

je ne comprends, pas c'est quoi le problème de ton code ?
tu dis vouloir écrire dans la "cellule de droite" mais tu "écris" dans la cellule courante ..!

[gFZT82]

Bonjour,

J’ai testé ta procédure légèrement modifiée

Code :

1
2
3
4
5
6
Sub Ajout_Avant()
Dim cellule As Range
    For Each cellule In Selection
        cellule.Offset(0, 1) = "=" & cellule
    Next cellule
End Sub

La formule 8+5*1 est placée en A1.
Je sélectionne A1, je lance la procédure.
Elle me renvoie bien le résultat 13 en B1

Cordialement.

[Ormonth]

Bonjour,

tu raisonnes à l'envers, si tu veux un calcul, c'est la formule qu'il faut d’abord, ensuite si tu veux séparément avoir en clair son expression texte à côté, ce n'est pas compliqué :

Tu as un formule en C1 du genre :

Code :

 = A1*B1

En D1, tu fais : Onglet Formules, groupe Gestionnaire de noms, Définir un nom - comme nom tu indiques "FormuleEnClair", en bas dans Fait référence à , tu mets :

Code :

=LIRE.CELLULE(41;C1)

et OK

ensuite dans ton code VBA :

Code :

1
2
3
4
5
6
7
8
Sub toto()
Dim I As Long
 
For I = 1 To 15
    Cells(I, 4).Formula = "=FormuleEnClair"
Next I
 
End Sub

cordialement,

Didier