XL 2016 Copier coller bouton

Hoopsy · 10 Octobre 2021

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 · 10 Octobre 2021

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+

job75 · 10 Octobre 2021

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+

Hoopsy · 10 Octobre 2021

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+

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

XL 2016 Copier coller bouton

Hoopsy

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

Hoopsy

XLDnaute Nouveau

Discussions similaires