XL 2013 Programmation copier coller +

[Stev28fr]

Bonjour,
Je suis à la recherche d'une aide pour une programmation, je vais essayer d'être le plus clair possible.
Je souhaite avoir un bouton VBA avec les actions suivantes :
Lorsque je clic sur le bouton une fenêtre s'ouvre avec deux liste cote à cote.
La première liste permet de sélectionner les cases a copier selon des choix definies (Choix 1 = C4:C8 ; Choix 2 C10:C14....) et la seconde liste permet de choisir dans les quels cases coller les données selon la liste defini.

EXEMPLE :
Liste I
Choix 1 = copie de C1:C10 // Choix 2 = copie de D1: D10 // Choix 3 = copie de E1:E10
Liste II
Choix 1 = coller dans F1:F10 // Choix 2 =A1:A10 // etc...


Merci de votre aide !

 

[James007]

Bonjour,

Pour qu'un contributeur puisse te donner un coup de main ...le plus simple est de joindre un fichier test ...

 

[Staple1600]

Bonsoir le fil,

En attendant le fichier, peut-être une piste à explorer...ou pas.

Sub Copie()
Dim Source As Range, vDestination As Range
Set Source = Application.InputBox("Sélection cellules à copier", "Test", , , , , , 8)
Set vDestination = Application.InputBox("Sélection de la cellue où coller", "Test", , , , , , 8)
Source.Copy vDestination.Item(1)
End Sub