J'aimearis pouvoir afficher mes formules de calcul en texte
exemple dans C1 je saisie une formule "=A2+A3-B2" et j'aimearis pouvoir
afficher la formule sous forme de texte en C2, mais que celi ce fasses
automatiquement et que si je change la formule en C1, le texte formule
change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Une fonction VBA qui fait ce travaille. C1 je saisie une formule "¢+A3-B2" afficher la formule sous forme de texte en C2 =LireFormule(RéférenceCellule, LangageLocal) =LireFormule(A1) RéférenceCellule - ref valide d'une cellule LangageLocal - donne la formule en langage locale ou US (défaut True) denis p.
Function LireFormule(RéférenceCellule As Range, Optional LangageLocal _ As Boolean = True) As String Application.Volatile 'Adapté par Patrick Penet d'après Modeste GeeDee sur MPFE If LangageLocal = True Then If RéférenceCellule.HasArray Then LireFormule = "{" & RéférenceCellule.FormulaLocal & "}" Else LireFormule = " " & RéférenceCellule.FormulaLocal End If Else If RéférenceCellule.HasArray Then LireFormule = "{" & RéférenceCellule.Formula & "}" Else LireFormule = " " & RéférenceCellule.Formula End If End If End Function ----------------------------------------------------------------- "Jean-Pierre" a écrit dans le message de news:41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Merci pour votre aide.
JP
Une fonction VBA qui fait ce travaille.
C1 je saisie une formule "¢+A3-B2"
afficher la formule sous forme de texte en C2
=LireFormule(RéférenceCellule, LangageLocal)
=LireFormule(A1)
RéférenceCellule - ref valide d'une cellule
LangageLocal - donne la formule en langage locale ou US (défaut True)
denis p.
Function LireFormule(RéférenceCellule As Range, Optional LangageLocal _
As Boolean = True) As String
Application.Volatile
'Adapté par Patrick Penet d'après Modeste GeeDee sur MPFE
If LangageLocal = True Then
If RéférenceCellule.HasArray Then
LireFormule = "{" & RéférenceCellule.FormulaLocal & "}"
Else
LireFormule = " " & RéférenceCellule.FormulaLocal
End If
Else
If RéférenceCellule.HasArray Then
LireFormule = "{" & RéférenceCellule.Formula & "}"
Else
LireFormule = " " & RéférenceCellule.Formula
End If
End If
End Function
-----------------------------------------------------------------
"Jean-Pierre" <jp@free.fr> a écrit dans le message de
news:41b490d1$0$8111$8fcfb975@news.wanadoo.fr...
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte
exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir
afficher la formule sous forme de texte en C2, mais que celi ce fasses
automatiquement et que si je change la formule en C1, le texte formule
change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Une fonction VBA qui fait ce travaille. C1 je saisie une formule "¢+A3-B2" afficher la formule sous forme de texte en C2 =LireFormule(RéférenceCellule, LangageLocal) =LireFormule(A1) RéférenceCellule - ref valide d'une cellule LangageLocal - donne la formule en langage locale ou US (défaut True) denis p.
Function LireFormule(RéférenceCellule As Range, Optional LangageLocal _ As Boolean = True) As String Application.Volatile 'Adapté par Patrick Penet d'après Modeste GeeDee sur MPFE If LangageLocal = True Then If RéférenceCellule.HasArray Then LireFormule = "{" & RéférenceCellule.FormulaLocal & "}" Else LireFormule = " " & RéférenceCellule.FormulaLocal End If Else If RéférenceCellule.HasArray Then LireFormule = "{" & RéférenceCellule.Formula & "}" Else LireFormule = " " & RéférenceCellule.Formula End If End If End Function ----------------------------------------------------------------- "Jean-Pierre" a écrit dans le message de news:41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Merci pour votre aide.
JP
Rai
Bonsoir JP,
Avec VBA (à inclure dans un module du VBE) : Function voir(target As Range) voir = target.Formula End Function
ensuite tu utilises ta fonction personnalisée comme toute fonction 'normale' : =voir(A2) ' t'affichera la formule qui se trouve en A2, avec mise à jour dès changement
Bonne soirée
Rai
"Jean-Pierre" a écrit dans le message de news: 41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Merci pour votre aide.
JP
Bonsoir JP,
Avec VBA (à inclure dans un module du VBE) :
Function voir(target As Range)
voir = target.Formula
End Function
ensuite tu utilises ta fonction personnalisée comme toute fonction 'normale' :
=voir(A2) ' t'affichera la formule qui se trouve en A2, avec mise à jour dès changement
Bonne soirée
Rai
"Jean-Pierre" <jp@free.fr> a écrit dans le message de news: 41b490d1$0$8111$8fcfb975@news.wanadoo.fr...
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte
exemple dans C1 je saisie une formule "=A2+A3-B2" et j'aimearis pouvoir
afficher la formule sous forme de texte en C2, mais que celi ce fasses
automatiquement et que si je change la formule en C1, le texte formule
change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Avec VBA (à inclure dans un module du VBE) : Function voir(target As Range) voir = target.Formula End Function
ensuite tu utilises ta fonction personnalisée comme toute fonction 'normale' : =voir(A2) ' t'affichera la formule qui se trouve en A2, avec mise à jour dès changement
Bonne soirée
Rai
"Jean-Pierre" a écrit dans le message de news: 41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Merci pour votre aide.
JP
Jean-Pierre
OK merci à tous
JP
"Jean-Pierre" a écrit dans le message de news: 41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
Merci pour votre aide.
JP
OK merci à tous
JP
"Jean-Pierre" <jp@free.fr> a écrit dans le message de news:
41b490d1$0$8111$8fcfb975@news.wanadoo.fr...
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte
exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir
afficher la formule sous forme de texte en C2, mais que celi ce fasses
automatiquement et que si je change la formule en C1, le texte formule
change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
"Jean-Pierre" a écrit dans le message de news: 41b490d1$0$8111$
Bonjour
J'aimearis pouvoir afficher mes formules de calcul en texte exemple dans C1 je saisie une formule "¢+A3-B2" et j'aimearis pouvoir afficher la formule sous forme de texte en C2, mais que celi ce fasses automatiquement et que si je change la formule en C1, le texte formule change en C2.
J'ai déjà vu ça quelque part mais je ne retrouve pas.
