Copier les formules seulement

Bonjour.
Qu'est-ce qui est copié avec les formules ?
Cordialement.
Daniel
"Chadenet" <vcc6@wanadoo.fr> a écrit dans le message de news:
%232v%23ZESLFHA.3832@TK2MSFTNGP12.phx.gbl...

Bonjour,

Je voudrais copier les formules d'une feuille dans un nouveau dossier et
j'ai beau aller sur "collage spécial", "formules uniquement", je n'obtiens
pas ce résultat. Merci pour votre aide.

J'ai un tableau avec une certaine quantité de calculs que je voudrais
recopier dans un autre dossier, avec ses seules formules. Lorsque je vais
sur "collage spécial", je ne sais quel choix faire. Je voudrai le même
tableau avec tous les calculs pour pouvoir ensuite entrer de nouveaux
chiffres. Merci

Bonjour Chadenet,

Cette procédure copie seulement les formules de la feuil1 du classeur dans lequel la macro est présente vers la feuil2
du classeur2.xls. (exactement dans les mêmes cellules) À toi d'adapter le nom du classeur et des feuilles.

'-------------------------------------
Sub CopierSeulementLesFormules()

Dim A As XlCellType
A = xlCellTypeFormulas

With ThisWorkbook.Worksheets("Feuil1")
For Each c In .UsedRange.SpecialCells(A)
With Workbooks("Classeur2.xls")
With .Worksheets("Feuil2")
With .Range(c.Address)
.Formula = c.Formula
End With
End With
End With
Next
End With

End Sub
'-------------------------------------


Salutations!





"Chadenet" <vcc6@wanadoo.fr> a écrit dans le message de news: %23$FQPFYLFHA.3296@TK2MSFTNGP15.phx.gbl...
J'ai un tableau avec une certaine quantité de calculs que je voudrais
recopier dans un autre dossier, avec ses seules formules. Lorsque je vais
sur "collage spécial", je ne sais quel choix faire. Je voudrai le même
tableau avec tous les calculs pour pouvoir ensuite entrer de nouveaux
chiffres. Merci