Selectionner Manuellement une image et la coller

Bonjour à tous,

J ai une question, je souhaiterai que quand je lance la macro, une boite de dialogue s ouvre à la bonne page et me permettre de choisir une image puis de la copier collr sur une autre page

J´ai pour le moment ecris ça :

Sub Copy_paste_cells()

End Sub

Cette macro répond à ce que je veux faire mais seulement pour une cellule/plage de cellule et non pour une image

Avez vous des idées de modifications possibles

Si possible j aimerai aussi que l´image prenne la meme taille que la cellule dans laquelle elle est copiée

Merci par à avance

Jules

Bonjour,

ActiveSheet.Pictures.Paste.Select

Merci ça fonctionne.

Actuellement la macro permet de cliquer uniquement sur la cellule, ce qui marche mais serait il possible de faire en sorte de cliquer sur l image plutot ?

Si l'image est déjà sélectionnée alors

Selection.Copy
    Sheets("Sheet1").Select
    Range("E3:H11").Select
    ActiveSheet.Paste

non justement le but c est que j ai le choix entre plusieurs image que je clique sur une et que ce soit celle la qui soit copié/collé

Le problème c'est qu'il n'y à pas d'évènement " quand clic sur shape image" donc après sélection de ton image il n'y aura pas

de suite à ton code vba à moins ajouter un bouton pour valider la sélection de l'image.

Dans ce cas le code donné précédemment suffit pour le vba du bouton.