Copier une feuille sans formule

[Sophie11]

Bonjour,

J'ai une feuille d'un classeur contenant plein de formule, je souhetrais "extraire" cette feuille avec uniquement ces valeurs (sans ses formules)
Mon code est le suivant :

ActiveSheet.Copy
    Cells.Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Ce code ci-dessus fonction mais pour ma culture VBA je souhaiterais apprendre un code plus "propre" sans utiliser de selection si possible.

 

[CMoa]

Re : Copier une feuille sans formule

Bonjour Sophie11,le fil
Tu souhaites créer une nouvelle feuille dans un autre classeur ou sur le même?

Pour créer un autre classeur voici le code avec des valeurs "B2:E9" à adapter:

 Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    Range("B2:E9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D13").Select

 

[laetitia90]

Re : Copier une feuille sans formule

bonjour tous, le principe beaucoup de possibilitées!!

Sheets(2).Range("a1") = Sheets(1).Range("a1")

autre exemple en utilisant un tablo

Dim t As Variant
 t = Sheets(1).Range("a1:iv" & Range("a65536").End(xlUp).Row)
Sheets(2).Range("a65536").End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)) = t

il faut utiliser instruction with si tu lances pas la copy de ta feuille ect..

 

[Sophie11]

Re : Copier une feuille sans formule

fantastique merci !!!!