Copy Formulas

Bonjour,

J'aimerais avoir vos conseils sur une petite subtilité par rapport à ma macro. Je souhaite copier les formules d'un fichier pour les coller dans un fichier correspondant.

Exemple :

Je veux copier la formule B1 du fichier A dans C1 du fichier B

Fichier A, si B1=A1 --> fichier B, la cellule C1 = A1

Voici mon code, cela fonctionne mais je ne retrouve pas mes formules, j'ai #REF

Sub export()

Dim classeurSource As Workbook, classeurDestination As Workbook

Application.ScreenUpdating = False

'définir le classeur source
Set classeurSource = ThisWorkbook

If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub

Set classeurDestination = ActiveWorkbook

'copier les données de la "Sheet1" du classeur source vers la "Sheet1" du classeur destination
classeurSource.Sheets("Sheet1").Range("E2:E13").Cells.Copy

classeurDestination.Sheets("Sheet1").Range("A2:A13").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=True

'fermer le classeur source
Application.DisplayAlerts = False
classeurSource.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Je vous remercie

Bonjour

Cette instruction est un bug :

classeurSource.Sheets("Sheet1").Range("E2:E13").Cells.Copy

Remplace-la par :

classeurSource.Sheets("Sheet1").Range("E2:E13").Copy

OK ?

Bye !

Bonjour gmb,

Malheureusement, j’ai corrigé ce bug mais les formules ne s'exportent pas. A la place #REF ...

Bonjour, bonjour !

Si les formules n'avaient pas été copiées, rien n'apparaitrait dans les cellules ‼

Donc #REF veut dire que les formules ont bien été copiées et qu'elles sont fausses dans leur nouveau contexte !

Corriger manuellement une formule puis comparer avec la source, cela devrait aider à comprendre …

Ma formule est correcte.

Dans le fichier 1 :

B1=SI(A1=1;"OK";"NOK")
B2=SI(A2=1;"OK";"NOK")

Je souhaite seulement copier exactement ces formules dans le fichier 2 :

Copier Fichier1.B1 sur Fichier2.C1

Copier Fichier1.B2 sur Fichier2.C2

Pour que

C1=SI(A1=1;"OK";"NOK")
C2=SI(A2=1;"OK";"NOK")

Dis l'étudiant, t'as posé ta question dans combien de forums ?‼

La moindre des corrections est de prévenir et de poster un lien par forum

pour éviter de donner une réponse déjà présente sur un autre forum !