Copie d'onglet avec les valeurs et non pas formules

[bolish]

bonjour à tous,

Lors d'une copie de feuille dans un nouveau classeur par le biais de :

sheets("xxx").copy

je souhaiterais que les données des cellules se copient en valeurs et non pas en formule (car cela crée des liens interfichiers non désirables etc...)

Du style, collage spécial pour les cellules :

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Y'a t'il une possibilité de faire de même pour la copie d'onglet?

D'avance merci!

 

[vbacrumble]

Re : Copie d'onglet avec les valeurs et non pas formules

Bonsoir


Oui c'est possible

Sub m()
With ActiveSheet.Cells
    With .SpecialCells(xlCellTypeFormulas)
    .Value = .Value
    End With
End With
End Sub

Ps: sujet déjà traité, utilises le moteur de recherche la prochaine fois avant de poster 😉

 

[bolish]

Re : Copie d'onglet avec les valeurs et non pas formules

En fait ce que je souhaite est encore pire!!!

Il faudrait que les cellules contenant des formules relatives à la feuille en questions restent des formules.

MAIS que les cellules contenant des formules relatives à d'autres feuilles (feuilles qui ne seront pas copiées dans le nouveau fichier) soient copiées sous forme de valeurs...

Je crois que je vais devoir trouver une autre solution car je doute que cela soit possible................

 

[Pierrot93]

Re : Copie d'onglet avec les valeurs et non pas formules

Bonsoir Bolich,

essaye comme ci-dessous :

With ActiveSheet.Cells
    .Copy
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial xlPasteFormats
End With

bonne soirée
@+

 

[vbacrumble]

Re : Copie d'onglet avec les valeurs et non pas formules

Re


Lis mon précédent message, tu as un début de réponse.

edition: bing collision en chaine , bonsoir Pierrot93