Malheureusement certaines des cellules de mes feuilles sont liees a d'autres par des fonctions. Par consequent lorsque j'utilise la macro ci dessus, toutes les cellules comportant des renvois vers d'autres feuilles deviennent erronées.
Ma question est donc la suivante : comment modifier mon code ci-dessus pour que ma feuille copiée dans un nouveau tableur soit copiée en valeur ?
J'ai essaye :
Private Sub CommandButton1_Click()
Sheets(Array("LSR")).).End(xlUp).value = Sheets(LSR).Cells(1, 1).value
Application.Dialogs(xlDialogSaveAs).Show
Private Sub CommandButton1_Click()
Sheets(Array("LSR")).Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial xlValues
Application.CutCopyMode = False
Application.Dialogs(xlDialogSaveAs).Show
End Sub
J'ai essaye :
Private Sub CommandButton1_Click()
Sheets(Array("LSR")).).End(xlUp).value = Sheets(LSR).Cells(1, 1).value
Application.Dialogs(xlDialogSaveAs).Show
Cependant ton code ne marche pas, les valeurs ne sont pas copiées et m'affichent 0 dans toutes les cellules qui ont des formules liées a d'autres feuilles...