Discussion :

[muska78]

Bonjour, je souhaite copier une feuille dans une nouvelle feuille d'un même classeur. Mais je ne souhaite prendre que les valeurs de la feuille d'origine et pas les formules.

Pour l'instant j'ai fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Notes").Copy after:=Sheets(ThisWorkbook.Sheets.Count)

mais cela copie les formules inclues dans les feuilles
J'ai essayé ça mais sans succès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Notes").Copy
Sheets.Add After:=Sheets(Sheets.Count)
a = ThisWorkbook.Sheets.Count
Sheets(a).Name = Nom
Sheets(a).PasteSpecial Paste:=xlPasteValues

[Le Pierre]

bonjour

ajoute ce bout de code après la ligne qui duplique la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Cells.Select
    Selection.Copy
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select

c'est un simple collage spécial --> valeurs

à plus

[fring]

Bonjour tlm,

Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Sheets.Add after:=Sheets(Sheets.Count)
 
Sheets(1).Cells.Copy
Sheets(Sheets.Count).Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select
End Sub

[muska78]

Bonjour et merci pour vos réponses.

Le code fonctionne mais je voudrai conserver le format de la feuille d'origine. J'ai écris ceci mais cela ne fonctionne pas : "la méthode paste special de la range à échoué".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(1).Cells.Copy
Sheets(Sheets.Count).Range("A1").PasteSpecial Paste:=xlValuesAndNumberFormats, skipBlanks:=False, Transpose:=False
Sheets(Sheets.Count).Range("A1").PasteSpecial Paste:=xlPasteFormats, skipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

[muska78]

C'est bon j'ai trouvé, j'était pas très loin...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets.Add after:=Sheets(Sheets.Count)
 
Sheets(1).Cells.Copy
Sheets(Sheets.Count).Range("A1").PasteSpecial Paste:=xlValues
Sheets(Sheets.Count).Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

Merci encore à ceux qui m'ont aidé.