Re : VBA : Copie d'une forme existant et collage dans un endroit au choix
Bonsoir à tous, Hasco
Un petit plus avec une version "paramétrée"
Lance la macro test
(tu peux changer le nom de la forme ou la cellule de destination)
Code:
Sub test()
Copy_SHP "Soleil_1", "A15"
End Sub
Code:
Private Sub Copy_SHP(NomSHP, Rng$)
Dim sh As Shape
Set sh = ActiveSheet.Shapes(NomSHP)
sh.Copy: Range(Rng).Select: ActiveSheet.Paste: Range(Rng).Select
End Sub