XL 2016 Copier coller bouton

[Hoopsy]

Bonjour à tous,
Je fais appel à vos connaissances afin de savoir comment effectuer le copier/coller d'un bouton d'un onglet à l'autre tout en gardant sa position exacte.
Merci par avance pour vos réponses

 

[job75]

Bonjour Hoopsy,

Pour copier une Shape quelconque de Feuil1 à Feuil2 :

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+

 

[Hoopsy]

Bonjour Hoopsy,

Pour copier une Shape quelconque de Feuil1 à Feuil2 :

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+

Merci job75,
Je pensais tellement qu'il devait y avoir une simple manip déjà prévue...
Mais pas de soucis, je ferai l'essai demain au boulot.
Encore merci et bonne fin de dimanche