Recherche macro pour sélection puis copie de données

[flosauveur69]

Bonjour à tous,

je recherche une macro qui demande à l'utilisateur grâce un msgbox de sélectionner une plage de cellules pour qu'ensuite la macro colle cette plage de cellules sur une cellule, ex:A1 (et que ça copie par la même occasion la plage de cellules autours de A1)

Merci de votre aide.

 

[job75]

Re : Recherche macro pour sélection puis copie de données

Bonjour flosauveur69,

C'est bien simple :

Sub CopiePlage()
On Error Resume Next 'si bouton Annuler
Application.InputBox("Sélectionnez une plage de cellules :", "Copier une plage", , , , , , 8).Copy [A1]
End Sub

A+

 

[flosauveur69]

Re : Recherche macro pour sélection puis copie de données

Merci,

après la sélection, j'aimerais que la macro me copie cette plage de cellule sur la feuille Rack_AV_AP_DVR!A2,

j'ai donc modifier la macro de la manière ci-après mais cela ne fonctionne pas. La macro me demande bien de sélectionner la plage de cellules puis je clique sur OK et rien.

Merci d'avance.

Sub CopiePlage()
On Error Resume Next 'si bouton Annuler
Application.InputBox("Sélectionnez une plage de cellules :", "Copier une plage", , , , , , 8).Copy [Rack_AV_AP_DVR!A2]
End Sub

 

[JNP]

Re : Recherche macro pour sélection puis copie de données

Bonjour le fil 🙂,
Remplace [Rack_AV_AP_DVR!A2]
par

Sheets("Rack_AV_AP_DVR").[A2]

Bon courage 🙂
PS : Alors Job, il était bon mon gâteau 😛 ?

 

[job75]

Re : Recherche macro pour sélection puis copie de données

Bonsoir Jean-Noël,

Un très grand merci pour ce superbe gâteau, je n'avais pas encore été sur le salon 🙂

A+