dupliquer une feuille sans les formules en gardant la mise en forme (tableau nombre )

[GHISLAIN]

bonjour a tous

j'ai creer une tableau recevant des donnees que je souhaite sauvegarder sur une autre feuille .

j ai voulu copie copier la feuille avec ce code Sheets(Array("saignee")).Copy mais les formules, lien et macro sont egalement enregistrée ce que je ne souhaite pas

du coup j ai opté pour ces code ci dessus mais la tache me semble longue


'Worksheets("essai").Range("a1") = Worksheets("essai1").Range("a1")
'Worksheets("essai").Range("p1") = Worksheets("essai1").Range("p1")

'Worksheets("essai").Range("a2") = Worksheets("essai1").Range("a2")
'Worksheets("essai").Range("a3") = Worksheets("essai1").Range("a3")
'Worksheets("essai").Range("a4") = Worksheets("essai1").Range("a4")

'Worksheets("essai").Range("a6") = Worksheets("essai1").Range("a6")
'Worksheets("essai").Range("j6") = Worksheets("essai1").Range("j6")

etc

il y a t il une solution pour copier ma feuille integralement en gardant l integrité de la mise en forme , tableau , valeur police etc sans que cela ne copie les formules , lien et macro

merci a tous de votre aide

amicalement

ghislain

 

[Hippolite]

Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

Bonjour,
Tu fais une copie d'onglet suivi d'un copier/collage spécial valeurs :

    Workbooks("essai1.xls").Sheets("Feuil1").Copy Before:=Workbooks("essai.xls").Sheets(1)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues

A+

 

[GHISLAIN]

Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

bonjour Hippolite , merci de t etre penché sur mon fil

l action que je souhaite effectuer se passe dans le meme classeur
j ai donc modifie ton code de cette façon
toutefois le code cree une nouvelle feuille a chaque copie
je souhaiterai que la copie s effectue dans une feuille specifique en l occurance la feuille "copie "
Sheets("essai1").Copy Before:=Sheets("copie")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
merci de ton aide ainsi qu a tous

amicalement

ghislain

 

[Hippolite]

Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

Bonjour,
Si j'ai bien compris cette fois :

Sub CopieValeurs()
    Dim AdresseSel
    Sheets("copie").Activate
    ActiveSheet.UsedRange.Select
    AdresseSel = Selection.Address
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("essai1").Activate
    Range(AdresseSel).Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

A+

 

[GHISLAIN]

Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

re bonjour

je viens de tester le code proposé mais j ai une erreur 1004 a la ligne suivant

Selection.PasteSpecial Paste:=xlPasteValues

y a t il un moyen d y remedier ??

amicalement

ghislain

 

[Hippolite]

Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

Re,
Avec Excel 2003 je n'ai pas de problème.
essaie

Sub CopieValeurs()
    Dim AdresseSel
    Sheets("copie").Activate
    ActiveSheet.UsedRange.Select
    AdresseSel = Selection.Address
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("essai1").Activate
    Range(AdresseSel).Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

A+