copier des cellules non contigües

[philipperun]

Bonjour 🙂,

Bravo pour le site et la qualité des intervenants.

Mon pb : J'ai cherché à réaliser ce WE une macro qui me permettrait de faire ceci:
1 je me positionne sur une cellule dans un tableau
2 je lance "ma macro", qui :

a - copie la celulle active, les quatre cellules adjacentes à droite, et la ... 13ème à droite vers :

b - une cellule activée par la souris (après une question msg box en bonne et due forme (comme dit le Capitaine Crochet) : "je colle où?), chaque cellule copiée étant copiée à son rang par rapport à la nouvelle cellule active

c - efface les valeurs d'origine en (a)

Ben.... Après avoir reporté la faute sur les gosses qui voulaient jouer sur mon pc, force m'est de reconnaître que je n'y parviens pas (ils ne sont pas là ce matin 😱)))

Donc, help, s'il vous plaît, et d'avance, merci.

Philippe

 

[manuel]

Bonjour philipperun et le forum,

Voici pour la macro, j'espère que cela t'ira .
Mon bonjour aux gosses ;-)

Manuel

Sub déplacement()
'déplace des cellules


Dim origine As Range, destination As Range

Set origine = ActiveCell
Set destination = Application.InputBox(prompt:="çà va où ?", Type:=8)

origine.Copy destination
origine.Offset(0, 1).Resize(4, 1).Copy destination.Offset(0, 1)
origine.Offset(12, 1).Copy destination.Offset(12, 1)

origine.Clear
origine.Offset(0, 1).Resize(4, 1).Clear
origine.Offset(12, 1).Clear


End Sub