OVH Cloud OVH Cloud

Afficher formule

13 réponses
Avatar
Manu
Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu

10 réponses

1 2
Avatar
RGI
Bonjour

avec ceci
dans un module

Function AfficheFormule(xCellule As Range)
AfficheFormule = xCellule.FormulaLocal
End Function

dans la cellule

¯ficheFormule(A1)

salutations

RGI


Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu





Avatar
anonymousA
Bonjour,

petite fonction personnalisée peut-être ?

Function trform(rng As Range)

trform = "'" & rng.Formula

End Function

A+

Manu wrote:
Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire u ne
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu


Avatar
Manu
Super, Merci

Manu

"RGI" a écrit dans le message de
news:
Bonjour

avec ceci
dans un module

Function AfficheFormule(xCellule As Range)
AfficheFormule = xCellule.FormulaLocal
End Function

dans la cellule

¯ficheFormule(A1)

salutations

RGI


Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire
une formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu






Avatar
anonymousA
D'ailleurs on peut omettre le """&


anonymousA wrote:
Bonjour,

petite fonction personnalisée peut-être ?

Function trform(rng As Range)

trform = "'" & rng.Formula

End Function

A+

Manu wrote:
Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu




Avatar
dre
Salut,

Par les anciennes macros XL4

Séectionner la cellule dans laquelle on veut afficher la formule (par
exemple D1).
Menu Insertion / Nom / Définir
Noms dans le classeur : au choix (par exemple TexteFormule)
Fait référence à : =LIRE.CELLULE(41;Feuil1!C1)
41 est le code pour renvoyer une formule en texte
Feuil1!C1 est la cellule contenant la formule
En C1 taper = et le nom retenu (TexteFormule dans l'exemple)
Valider

Cette procédure est valable pour toutes les cellules situées à droite des
cellules dont on veut lire la formule (comme D1 par rapport à C1).

Â+







Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu





Avatar
dre
Oups !

C'est en D1 qu'il faut taper : =TexteFormule

Â+



Salut,

Par les anciennes macros XL4

Séectionner la cellule dans laquelle on veut afficher la formule (par
exemple D1).
Menu Insertion / Nom / Définir
Noms dans le classeur : au choix (par exemple TexteFormule)
Fait référence à : =LIRE.CELLULE(41;Feuil1!C1)
41 est le code pour renvoyer une formule en texte
Feuil1!C1 est la cellule contenant la formule
En C1 taper = et le nom retenu (TexteFormule dans l'exemple)
Valider

Cette procédure est valable pour toutes les cellules situées à droite des
cellules dont on veut lire la formule (comme D1 par rapport à C1).

Â+







Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de faire une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes les
formules de la feuille.

Merci

Manu







Avatar
Michel Gaboly
Bonjour,

Enfin quelqu'un qui n'a pas oublié l'ancien langage ;-))

Comme le montre cet exemple, les anciennes fonctions macro, si elles ne s ont pas accessibles directement dans une
feuille de calcul, peuvent l'être par le biais des noms.

Rien n'empêche non plus de créer une ancienne feuille macro dans un c lasseur quelconque (Ctrl + F11 ou clic droit sur un
onglet, Insérer... et choisir Macro Microsoft Excel 4.0 ou Macro intl M S Excel 4.0).

C'est même encore dispo dans la Beta d'Excel 2007 !


Salut,

Par les anciennes macros XL4

Séectionner la cellule dans laquelle on veut afficher la formule (par
exemple D1).
Menu Insertion / Nom / Définir
Noms dans le classeur : au choix (par exemple TexteFormule)
Fait référence à : =LIRE.CELLULE(41;Feuil1!C1)
41 est le code pour renvoyer une formule en texte
Feuil1!C1 est la cellule contenant la formule
En C1 taper = et le nom retenu (TexteFormule dans l'exemple)
Valider

Cette procédure est valable pour toutes les cellules situées à dr oite des
cellules dont on veut lire la formule (comme D1 par rapport à C1).

Â+







Bonjour,

Si j'ai en A1 une formule quelquonque, est t'il possible en A2 de fair e une
formule qui aurait pour but d'afficher la formule de A1.

Je ne souhaite pas evidemment faire un CTRL " pour affficher toutes le s
formules de la feuille.

Merci

Manu







--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
Modeste
Bonsour® dre ;o)))
je préfére quand même celle-ci

Insertion - Nom - Définir : FormuleGauche
Fait référence à:
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1)))
' A adapter selon lesoins.
ici le colonne()-1 permet de lire la formule
qui est a gauche de la cellule ou l'on écrit alors simplement : =FormuleGauche

si l'on veut lire la formule qui est au dessus on definira alors
nom : FormuleSup
fait référence à :
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE()-1;COLONNE())))



--
@+
;o)))
Avatar
dre
Salut Modeste,

Le fait de ne pas mettre de valeurs aboslues ($) dans la formule donne le
même avantage, et la formule est plus courte.
A chacun son choix, il n'y a que le résultat qui compte (lol).

Â+




Bonsour® dre ;o)))
je préfére quand même celle-ci

Insertion - Nom - Définir : FormuleGauche
Fait référence à:
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1)))
' A adapter selon lesoins.
ici le colonne()-1 permet de lire la formule
qui est a gauche de la cellule ou l'on écrit alors simplement : =FormuleGauche

si l'on veut lire la formule qui est au dessus on definira alors
nom : FormuleSup
fait référence à :
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE()-1;COLONNE())))



--
@+
;o)))





Avatar
Manu
Merci à tous

Manu

"dre" a écrit dans le message de news:


Salut Modeste,

Le fait de ne pas mettre de valeurs aboslues ($) dans la formule donne le
même avantage, et la formule est plus courte.
A chacun son choix, il n'y a que le résultat qui compte (lol).

Â+




Bonsour® dre ;o)))
je préfére quand même celle-ci

Insertion - Nom - Définir : FormuleGauche
Fait référence à:
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1)))
' A adapter selon lesoins.
ici le colonne()-1 permet de lire la formule
qui est a gauche de la cellule ou l'on écrit alors simplement :
=FormuleGauche

si l'on veut lire la formule qui est au dessus on definira alors
nom : FormuleSup
fait référence à :
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE()-1;COLONNE())))



--
@+
;o)))







1 2