selection de cellule avec msgbox

[bahnini mohamed]

salut tout le monde
le code pour copier coller et:

Sub CopierCollerDifferenceRégul()
Range("a1:d6").Select
Selection.Copy
Range("a10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

je veut coller cette plage à différents position
comment faire pour avoir une inputbox ou je peut enter les coordonnes de la cellule pour coller les données (dans cette exemple la cellule "A10")

 

[Pierrot93]

Re : selection de cellule avec msgbox

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim c As Range
On Error Resume Next
Set c = Application.InputBox("Destination des cellules copiées...", Type:=8)
On Error GoTo 0
If Not c Is Nothing Then Range("a1:d6").Copy c
End Sub

bonne journée
@+

 

[bahnini mohamed]

Re : selection de cellule avec msgbox

merci mon ami
c'est parfait, super
bon journée