collage d'un objet

[f69815]

bonjour tout le monde,

dans une feuille j'ai créé un objet (1,33 par 26,33) et je désire le coller dans une autre feuille mais à un endroit bien précis, qui peut changer:
deux lignes en dessous de la dernière cellule renseigné (lign = Range('a65536').End(xlUp).Row + 1) et à 2 cm du bord.

j'ai le bout de code ci-dessous, mais il colle où il veut.
Sub Macro28()
Sheets('data').Select
ActiveSheet.Shapes('Group 2').Select
Selection.Copy
Sheets('edition').Select
ActiveSheet.Paste
End Sub

merci d'avance

 

[Jacques87]

Bonjour

essaie en sélectionnant la cellule où tu désires que le haut gauche de l'image se colle

Sub Macro28()
Sheets('data').Select
ActiveSheet.Shapes('Group 2').Select
Selection.Copy
Sheets('edition').Select
ActiveSheet.Range('B5').Select
ActiveSheet.Paste
End Sub

et tu pourras même paramétrer l'adresse de cette cellule

Bon courage

 

[f69815]

merci de ta réponse,
mais j'avais déjà essayé et cela ne fonctionne pas.

 

[Jacques87]

je ne comprends pas car j'ai essayé avec une image et je n'ai eu aucun problème
Quel est ton objet ?
A+

 

[MichelXld]

bonsoir F69815 , bonsoit Jacques

tu peux essayer ce type de procedure


Dim Ligne As Integer

Sheets('data').Shapes('groupe 2').Copy
Sheets('edition').Paste

Ligne = Sheets('edition').Range('A65536').End(xlUp).Row + 3
Sheets('edition').Shapes(Sheets('edition').Shapes.Count).Top = _
Sheets('edition').Cells(Ligne, 1).Top

Sheets('edition').Shapes(Sheets('edition').Shapes.Count).Left = _
Application.CentimetersToPoints(2)


bonne soirée
MichelXld

 

[f69815]

merci à tous pour vos réponses,

je vais retenir celle de MichelXld, elle me convient parfaitement et permet d'autres possibilitées.

merci à tous