selection de cellule avec msgbox

bahnini mohamed · 27 Juin 2013

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 · 27 Juin 2013

Re : selection de cellule avec msgbox

Bonjour,

essaye ceci :

Code:

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 · 27 Juin 2013

Re : selection de cellule avec msgbox

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

selection de cellule avec msgbox

bahnini mohamed

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

bahnini mohamed

XLDnaute Occasionnel

Discussions similaires