extraire formule sur autre feuille

[CB60]

Bonjour le Forum,
S'il n'existait pas, il faudrait l'inventer ce Forum encore faut il en avoir les capacités!!!!
Aujourd'hui je recherche le moyen de faire ressortir les formule d'une feuille sur un autre feuille.
exemple:
feuille1 j'ai plusieurs formules , je souhaiterais que sur la feuille 2 pouvoir faire un état de toutes ces formules.
Je joint un exemple de ce que je souhaite.
Amicalement
Bruno [file name=suiviformule.zip size=4571]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/suiviformule.zip[/file]

 

[pierrejean]

bonjour Bruno

vois ci-dessous une fonction personnalisée qui te permet de recuperer dans une cellule la fonction ecrite dans une cellule nommee d'une feuille nommée (ecrite en texte)

attention a l'ecriture des noms de feuille et cellule [file name=suiviformule_20060311113324.zip size=7069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/suiviformule_20060311113324.zip[/file]

 

[andré]

Salut CB60,

Pour autant que j'ai compris ce que tu veux faire.

Il faut nommer tes formules.

Voici comment procéder :
En Feuil1, sélectionne avec le curseur la formule dans la barre de formule (fond noir et police blanche), dans le ' qui précède le =.
Bouton droit de la souris et copier.
Valide la formule en cliquant dans le barre de formule.
Menu Insertion / Nom / Définir
Noms dans le classeur : CelluleB14 (ou un autre nom à ton choix).
Fait référence à : Ctrl+V (pour coller la formule)
OK.

Dans la Feuil2, sélectionne la cellule dans laquelle tu veux copier la formule.
Touche clavier F3, sélectionne la formule par son nom / OK.
C'est le nom de la formule qui s'affichera dans la barre de formule, et le résultat dans la cellule.

Â+

EDITIUON :
Salut pierrejean, je ne t'avais pas vu.

Message édité par: andré, à: 11/03/2006 11:41

 

[Tibo]

Bonjour à tous,

Autre solution avec l'utilisation de la fonction LIRE.CELLULE

voir le fichier joint

Cette fonction LIRE.CELLULE doit impérativement être nommée.

Le plus simple est de voir l'exemple dans le fichier.

@+ [file name=Recup_formule_autre_onglet.zip size=2140]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recup_formule_autre_onglet.zip[/file]

 

[CB60]

Re bonjour
Merci Pierrejean, André et Tibo de vous être penché sur mon probléme.
Je vous ai mis une feuille 'récap' dans le fichier afin de vous faire voir le nombre de formule qui si trouve et ce que j'aimerais faire c'est que sur la feuille qui réceptionne les formules il y ai une macro qui vas regarder la feuille récap, et ensuite quelle me récupere les formules en m'indiquant les positions de celle ci, je ne sais pas si c'est possible?
Bruno [file name=suiviformule_20060311121555.zip size=48708]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/suiviformule_20060311121555.zip[/file]

 

[pierrejean]

hello Bruno
salut andré salut Tibo

il semble que ce soit possible

si probleme n'hesite pas à demander [file name=suiviformule_20060311165813.zip size=7069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/suiviformule_20060311165813.zip[/file]

Message édité par: pierrejean, à: 11/03/2006 17:00

 

[CB60]

PierreJean
Je ne vois pas comment il est possible de faire, il me semble que le fichier joint ne contient pas les éléments qui me permettre de réaliser ce que je souhaite.
Je mets en pièce jointe ce que Céléda m'avait mis dans une application et que je n'arrive pas à reproduire
Bruno [file name=Cbv1.zip size=18087]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cbv1.zip[/file]

 

[pierrejean]

hello

me suis planté sur le fichier
cette fois ce devrait etre bon [file name=suiviformule_20060311171914.zip size=7069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/suiviformule_20060311171914.zip[/file]

 

[pierrejean]

decidement ....

suis pas en forme aujourd'hui

esperons

horreur il fait 53 ko

Message édité par: pierrejean, à: 11/03/2006 17:31

 

[pierrejean]

bon pas moyen de ramener à moins de 50k

voici le code
à mettre dans le click d'un bouton de commande

si probleme on pourra passer en direct par mail

Sub recuperer()
ligne = 3
For n = 3 To 15
For m = 1 To 24
Sheets('Feuil1').Cells(ligne, 1) = Sheets('RECAP').Name
Sheets('Feuil1').Cells(ligne, 2) = Sheets('RECAP').Cells(n, m).Address
Sheets('Feuil1').Cells(ligne, 3) = ''' & CStr(Sheets('RECAP').Cells(n, m).FormulaLocal)
ligne = ligne + 1
Next m
Next n

End Sub

 

[pierrejean]

une variante qui evite les $ dans l'adresse de la cellule

Sub recuperer()
ligne = 3
For n = 3 To 15
For m = 1 To 24
Sheets('Feuil1').Cells(ligne, 1) = Sheets('RECAP').Name
Sheets('Feuil1').Cells(ligne, 2) = Sheets('RECAP').Cells(n, m).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Sheets('Feuil1').Cells(ligne, 3) = ''' & CStr(Sheets('RECAP').Cells(n, m).FormulaLocal)
ligne = ligne + 1
Next m
Next n

End Sub


ps: j'ais jeté un cil au fichier de céléda
et je n'ais absolument rien saisi !!!
pour moi c'est magique

 

[Charly2]

Bonjour à tous,

Une autre façon de procéder dans le fichier joint, presque identique à celle de pierrejean...

[file name=CB60_SuiviFormules.zip size=50422]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CB60_SuiviFormules.zip[/file]

A+

 

[pierrejean]

le presque est à traduire par:

nettement mieux

bravo Charly2

 

[CB60]

Bonsoir le Forum, Pierrejean, Charly et Tous les autres.
Dire merci c'est bien je le reconnais mais là j'ai envie de dire autres choses, mais je ne sais pas quoi.
Bravo, Genial et j'en passe!!!!!
Merci à vous
Bruno

 

[CB60]

OU est l'erreur?

Lorsque je lance la procedure le fichier m'indique une erreur et ce bloque sur cette ligne.

For Each Cellule In WS.Cells.SpecialCells(xlCellTypeFormulas).

J'ai installé la macro de Charly et malgré cette erreur sur la feuille je retrouve bien les formules d'une des feuilles.
Bruno