copier des cellules sélectionées et les collées

[papirus]

Bonjour le forum

J'aimerais pourvoir copier par VBA le contenu d'un range de cellules qui sont préalablement sélectionnées manuellement et ensuite les collées dans un autre range de cellules dans un endroit prédéterminé.

Merci

Papirus

 

[jeromegmc]

Salut,

Tu peux essayer ça, et dis moi si c'est ce que tu veux:

Option Explicit

Sub test()

Dim mycells1, mycells2 As Range
Dim cells As Range
Dim i, cellules, cell(100)
Set mycells1 = Application.InputBox(prompt:='Sélectionnez la plage de cellules à copier.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
i = 1
For Each cellules In mycells1
cell(i) = cellules.Value
i = i + 1
Next

i = 1
Set mycells2 = Application.InputBox(prompt:='Sélectionnez la plage de cellules de destination.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
    

For Each cellules In mycells2
cellules.Value = cell(i)
i = i + 1
Next

End Sub

A+

 

[Papirus]

Bonjour le forum
Bonjour jeromegmc

C'est cool

Merci, ça fait exactement ce que je voulais

a+

 

[Papirus]

Bonjour le forum
Bonjour jeromegmc

C'est cool

Merci, ça fait exactement ce que je voulais

a+