Copier Coller une Image

Bonjour, j'ai plusieurs image nommé par des noms, j'ai ensuite une liste déroulante dans K29 qui comporte le nom des mes images j'aimerais dans vba qu'en fonction du de la cellule K29 cela copie l'image de ce même nom qui est dans la même feuille et que ca le colle. J'ai un code mais ce code ne copie colle pas il déplace simplement, si quelqu'un a une piste merci bien.

Sheets("Page de garde").Shapes.Range(Array(Range("K29"))).Select
 Selection.ShapeRange.Left = [N29].Left
 Selection.ShapeRange.Top = [N29].Top

Ps : ce code la ne marche pas car mes cellules sont fusionner de K29 à P29

 Sheets("Page de garde").Shapes.Range(Array(Range("K29"))).copy
 Range("N29:N29").Select
 ActiveSheet.Paste

Bonjour,

Un test en m'aidant de l'enregistreur de macro à priori le past se ferait sur la feuille active et pas directement sur le range :

Sub DEP()
With Worksheets("Page de garde")
    .Shapes(Range("K29")).Copy
    .Range("N29").Select
    .Paste
End With
End Sub

Cdlt,

Bonjour,

Si c'est juste un souci de fusion, alors tu as juste à enlever cette (maudite) fusion et le tour est joué, non ?

essai

Merci beaucoup, bon je voulais essayer sans enlever la fusion mais bon pourquoi chercher compliqué !

Tu devrais surtout, à chaque fois que possible, éviter la fusion.
(Je te l'accorde, en cas de liste déroulante sur plusieurs colonnes, c'est pas facile)

Rechercher des sujets similaires à "copier coller image"