Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion GHISLAIN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GHISLAIN

XLDnaute Impliqué
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
 
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 :
Code:
    Workbooks("essai1.xls").Sheets("Feuil1").Copy Before:=Workbooks("essai.xls").Sheets(1)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
A+
 
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
 
Re : dupliquer une feuille sans les formules en gardant la mise en forme (tableau nom

Bonjour,
Si j'ai bien compris cette fois :
Code:
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+
 
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
 
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
Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…