help sur macro vba copy/paste

Question

Bonjour,


Je souhaiterais adapter les macros Copy et Paste ci-dessous,
afin de pouvoir s&#233;lectionner plusieurs cellules en m&#234;me temps.
(Copy et Paste se faisant sur diff&#233;rentes feuilles)


Merci d'avance de votre aide.


Claude  -  [mailto:e.zen@online.fr e.zen@online.fr]


___________________________________________


Sub CreatePopupMenu()
Dim MaBarre As CommandBar
DelPopupMenu
Set MaBarre = Application.CommandBars.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton
.Controls(1).OnAction = "CopyFormula"
.Controls(1).Caption = "Copier"
.Controls.Add Type:=msoControlButton
.Controls(2).OnAction = "PasteFormula"
.Controls(2).Caption = "Coller"
End With
MaBarre.ShowPopup
End Sub
___________________________________________


Sub CopyFormula()
Dim x As New DataObject
x.SetText ActiveCell.Formula
x.PutInClipboard
End Sub
___________________________________________


Sub PasteFormula()
On Error Resume Next
Dim x As New DataObject
x.GetFromClipboard
ActiveCell.Formula = x.GetText
End Sub
___________________________________________


Sub DelPopupMenu()
On Error Resume Next
Application.CommandBars("ClicDroit").Delete
End Sub

jpleroisse · Answer

Sub Copier()
Range("A1:A4").Copy Sheets(2).Range("D1")
End Sub

Essaie si tu peux adapter cette macro &#224; ton code

jpleroisse

Help sur macro vba copy/paste

1 réponse

Discussions similaires