XL 2016 Vba: copier et coller sans formule

Guismo33 · 3 Août 2018

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 · 3 Août 2018

bonjour,

va voir du coté du PasteSpecial

Kael_88 · 4 Août 2018

Le forum,@Guismo33 ,@vgendron ,

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

VB:

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

ce qui donne:

VB:

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 · 27 Août 2018

Kael_88 à dit:
Le forum,@Guismo33 ,@vgendron ,

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

VB:

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

ce qui donne:

VB:

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 · 27 Août 2018

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

VB:

  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

XL 2016 Vba: copier et coller sans formule

Guismo33

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Kael_88

XLDnaute Occasionnel

Guismo33

XLDnaute Occasionnel

F22Raptor

XLDnaute Impliqué

Discussions similaires

XL 2016 Vba: copier et coller sans formule

Guismo33

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Kael_88

XLDnaute Occasionnel

Guismo33

XLDnaute Occasionnel

F22Raptor

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency