XL 2016 Copier coller bouton

job75 à dit:

Bonjour Hoopsy,

Pour copier une Shape quelconque de Feuil1 à Feuil2 :

VB:

Sub Copier_Shape()
Dim s As Shape, ss As Shape
Set s = Feuil1.Shapes("CommandButton1") 'nom de la Shape à adapter
s.Copy
With Feuil2 'CodeName de la feuille de destination
    .Paste Destination:=.[IV1]
    For Each ss In .Shapes
        If ss.TopLeftCell.Address = "$IV$1" Then ss.Top = s.Top: ss.Left = s.Left: Exit For
    Next
End With
End Sub

A+

Cliquez pour agrandir...