extraire formule sur autre feuille

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #2

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]

 

Pièces jointes

• suiviformule_20060311113324.zip

  6.9 KB · Affichages: 34

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 11 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 11 Mars 2006

• #4

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]

 

Pièces jointes

• Recup_formule_autre_onglet.zip

  2.1 KB · Affichages: 33

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 11 Mars 2006

• #5

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]

 

Pièces jointes

• suiviformule_20060311121555.zip

  47.6 KB · Affichages: 15

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #6

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

 

Pièces jointes

• suiviformule_20060311165813.zip

  6.9 KB · Affichages: 15

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 11 Mars 2006

• #7

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]

 

Pièces jointes

• Cbv1.zip

  17.7 KB · Affichages: 30

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #8

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]

 

Pièces jointes

• suiviformule_20060311171914.zip

  6.9 KB · Affichages: 15

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #9

decidement ....

suis pas en forme aujourd'hui

esperons

horreur il fait 53 ko

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #10

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #11

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

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 11 Mars 2006

• #12

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+ 😉

 

Pièces jointes

• CB60_SuiviFormules.zip

  49.2 KB · Affichages: 37

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mars 2006

• #13

le presque est à traduire par:

nettement mieux

bravo Charly2 🙂

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 11 Mars 2006

• #14

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 11 Mars 2006

• #15

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

 

Vote positif 0 Vote négatif