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
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