Améliorer un code vba

[totontitus]

Bonjour,

Serait-il possible avec ce code ci-joint de copier aussi les formules
puisque dans l'actuel les formules ne sont pas copier

Sub CopyValuesAndNumberFormats()
Dim CopyRng As Range, PasteRng As Range
xTitleId = "KutoolsforExcel"
Set CopyRng = Application.Selection
Set CopyRng = Application.InputBox("Ranges to be copied :", xTitleId,
CopyRng.Address, Type:=8)
Set PasteRng = Application.InputBox("Paste to (single cell):", xTitleId,
Type:=8)
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteValuesAndNumberFormats
PasteRng.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub


Merci

Cordialement

[Michel__D]

Bonjour,

Voir l'aide sur la méthode .PasteSpecial pour voir quels paramêtres sont possibles.

[MichD]

Bonjour,

Un petit exemple. Copier le contenu (textes + formules) de la plage
"A1:C3" de l'onglet Feuil1 vers l'onglet Feuil2

'-------------------------------
Sub Test()
Dim T As Variant

with Worksheets("Feuil1"
T = .Range("A1:C3").Formula
End With

With Worksheets("Feuil2")
.Range("A1").Resize(UBound(T, 1), UBound(T, 2)) = T
'A1 = La première cellule de la plage où doit se faire la copie
End With

End Sub
'-------------------------------

MichD