Garder les formules d'un tableau

A

AUBELIX

Guest
Bonsoir à tous.
Je reviens à vous pour un problème qui me préocupe:
J'ai un tableau 'RECAP' qui comme son nom l'indique récapitule les saisies de 12 feuilles.
1 par mois. Les feuilles portent le nom du mois suivi de l'année.
janvier-05 etc....pour l'année 2005.
Chaque année, je regénère des feuilles avec mois et année. janvier-06.
Les ancciennes sont effacées, pour laisser place aux nouvelles.
De ce fait, mon tableau 'RECAP' m'affiche #VALEUR!.
J'ai trouvé un moyen de garder les formules en remplaçant le '=' par un 'x'.
Après création de mes nouvelles feuilles, je substitue le 'x' par un '='.
Mes formulers sont de nouveau bonnes. Avez-vous une solution plus simple ?
Par avance merci de votre aide.

Je vous joints un fichier exemple.

' Sauvegarder_les_Formules_de_RECAP Macro
' Remplace le = des formules par un x
Sheets('RECAP').Select
Range('C3:L16').Select
Selection.Replace What:='=', Replacement:='x', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

' Regenerer_Formules_RECAP Macro
Sheets('RECAP').Select
Range('C3:L16').Select
Selection.Replace What:='x', Replacement:='=', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


;) [file name=SauvegarderFormules.zip size=9713]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SauvegarderFormules.zip[/file]
 

Pièces jointes

  • SauvegarderFormules.zip
    9.5 KB · Affichages: 16
B

bebere

Guest
bonsoir Aubelix
j'espère que ce qui suit t'aidera

Dim Plage As Range, Tbl
Sub FormulesDansTableau()
Set Plage = Sheets('Recap').Range('C3:F16')
Tbl = Plage.Formula
' ce que tu as a faire içi
DansTableauDansFeuille
End Sub

Sub TableauDansFeuille()

With ThisWorkbook.Sheets('Recap')
.Range('C3', .Cells(UBound(Tbl, 1), UBound(Tbl, 2))).Value = Tbl
End With
End Sub

à bientôt :)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG