Lister formules d'un onglet

[roby]

Bonjour le forum

Existe-t-il une macro qui pourrait rapatrier (lister) toutes les formules existantes d'une feuille vers un nouvel onglet ?

Merci d'avance Roby

 

[karakoman1]

Re : Lister formules d'un onglet

Bonjour Efgé
Je ne suis pas un grand spécialiste du VBA
J'arrive bien à le faire fonctionner par la fenetre vba, mais je n'arrive pas a lier le code a un bouton de commande
Merci de ton aide

 

[Efgé]

Re : Lister formules d'un onglet

Re
J"avais édité mon, post :

Encore plus simple (méthode testée) : déplacer la feuille "Formules" dans le classeur a traiter

Tu ouvre mon exemple et le classeur que tu veux traiter.
Click droit sur l'onglet Formules
Deplacer ou copier
Cocher créer une copie
Dans lla liste tu choisi ton classeur
Le tour est joué

Cordialement

 

[karakoman1]

Re : Lister formules d'un onglet

Malheureusement, chez moi c'est la seule feuille que la fonction copier ou déplacer est grisée et par un simple copier coller, il me dit qu'il ne peut pas copier coller car il n'y a pas la même quantité de lignes et de colonnes.
Bizzzzzare

 

[Efgé]

Re : Lister formules d'un onglet

Re
Essai avec ce classeur...
Cordialement

 

[karakoman1]

Re : Lister formules d'un onglet

Merci Efgé
Ca fonctionne NICKEL
Une petite amélioration serait elle possible?
En fait, il rapatrie les formules en anglais, même si les formules de départ sont en francais.
Ce serait la cerise sur le gateau.
A bientôt

 

[Efgé]

Re : Lister formules d'un onglet

Bonjour au fil, bonjour karakoman1,
Pour les formules en "Français" remplace

.Cells(X, 3) = "'" & C.Formula

par

.Cells(X, 3) = "'" & C.FormulaLocal

Cordialement

 

[JCGL]

Re : Lister formules d'un onglet

Bonjour à tous,
Salut FG,

Joli travail l'ami...

A++
A + à tous

 

[karakoman1]

Re : Lister formules d'un onglet

Je confirme les commentaires de JCGL
EXCELLENT travail l'ami
Il me tarde d'en arriver à votre niveau
Au plaisir de te relire dans les differentes discutions

 

[toune21]

Re : Lister formules d'un onglet

Bonjour Efgé, à tous,

Je viens de charger votre fichier,
Créer une copie dans mon classeur, donc l'onglet se nomme bien Formules et j'ai une erreur 1004

Option Explicit
Private Sub CommandButton1_Click()
Dim F As Worksheet, C As Range, CTest As Range, X&
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
With Sheets("Formules")
.../...
et la macro s'arrète ici
For Each C In F.Cells.SpecialCells(xlCellTypeFormulas)
....
End Sub

Pourriez-vous m'expliquer pourquoi, SVP
Cordialement,

 

[JCGL]

Re : Lister formules d'un onglet

Bonjour à tous,
Bonjour MMadeleine,

Ton fichier ne serait-il pas en lecture seule ?

Bise
A + à tous

 

[toune21]

Re : Lister formules d'un onglet

Bonjour JC,

Non, ..il écrit... aussi, je plaisante, mais non il n'est pas en lecture !
A plus

 

[JCGL]

Re : Lister formules d'un onglet

Bonjour à tous,

Peux-tu faire un fichier test et le déposer ?

A + à tous

 

[toune21]

Re : Lister formules d'un onglet

Re,

Je viens de faire le test sur un autre fichier.
Par contre j'ai placé l'onglet Formules en 2ème position, par rapport à mes autres onglet,
Et ça marche, pour ce fichier,
mais pas sur le premier, évidement ou j'ai besoin des formules.
Je vais titillier....

 

[toune21]

Re : Lister formules d'un onglet

Re,

Non il est trop gros, c'est mon fichier compta.
Comme je l'ai dit ci dessus, je vais tatonner.... avec douceur.
Merci
Bises