XL 2016 Vba: copier et coller sans formule

[Guismo33]

Bonjour à tous,
en cherchant sur le forum, j'ai réussis a faire ma macro, elle fonctionne mais
je voudrais faire un copier et coller sans les formules, ce qui n'est pas la cas ici
je fait appel car la je sèche.


Dim i As Integer, lig As Long, lig2 As Long
With Sheets("R2")
col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Range("Selection2").Copy Destination:=.Cells(3, col)
.Cells(3, col) = .Range("a1").Value

End With


merci

bien à vous

 

[vgendron]

bonjour,

va voir du coté du PasteSpecial

 

[Kael_88]

Le forum,@Guismo33 ,@vgendron ,

il te suffit de rajouté cette ligne avant la ligne de copy

.Range("Selection2").Formula = .Range("Selection2").Value

ce qui donne:

Dim i As Integer, lig As Long, lig2 As Long
With Sheets("R2")
col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1

.Range("Selection2").Formula = .Range("Selection2").Value

.Range("Selection2").Copy Destination:=.Cells(3, col)
.Cells(3, col) = .Range("a1").Value

End With

cordialement

 

[Guismo33]

Le forum,@Guismo33 ,@vgendron ,

il te suffit de rajouté cette ligne avant la ligne de copy

.Range("Selection2").Formula = .Range("Selection2").Value

ce qui donne:

Dim i As Integer, lig As Long, lig2 As Long
With Sheets("R2")
col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1

.Range("Selection2").Formula = .Range("Selection2").Value

.Range("Selection2").Copy Destination:=.Cells(3, col)
.Cells(3, col) = .Range("a1").Value

End With

cordialement

Bonjour kael,

de retour de vacance, cela fonctionne je vous remecie.

bien à vous

 

[F22Raptor]

J'ajoute cette solution intéressante, avec sa source

  Dim rng As Range
'Grab Some Data and Store it in a "Range" variable
  Set rng = Worksheets("Sheet1").Range("A1:Z100")
'Transfer Values to same spot in another worksheet (Mimics PasteSpecial Values Only)
  Worksheets("Sheet2").Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value

https://www.thespreadsheetguru.com/the-code-vault/best-way-to-copy-pastespecial-values-only-with-vba