Discussion :

[hobine]

Bonjour,
je bloque depuis hier sur un détail de ma macro, c'est pourquoi je me redonne vers vous.
J'ai une macro (voir ci-dessous) qui copie une image dans une feuille X pour une feuille Y. Jusqu’à tout se passe sauf qu'il me colle l'image à une cellule non désirée. depuis je ne parviens pas à déplacer l'image à la position voulue, comment?

cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 ActiveWindow.Visible = False
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    ActiveSheet.Shapes("Picture 4").Select
    Selection.Copy
    Sheets("Graphiques").Select
 
    Selection.Left = Range("A1").Left
    Selection.Top = Range("A1").Top
    ActiveSheet.Paste
'ActiveSheet.Shapes("Picture 4").Select
'    Selection.Cut
  '  Selection.Left = Range("A1").Left
  '  Selection.Top = Range("A1").Top
  '  ActiveSheet.Paste

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim I As Shape
    Set I = Sheets("Feuil1").Shapes("Picture 4")
    I.Copy
    Sheets("Graphiques").Select
    Range("A1").Select
    ActiveSheet.Paste

[hobine]

Bonjour,
encore une fois de plus un grand merci pour ton soutien.
cependant, ta macro marche surper sauf qu'il ne positionne pas l'image exactement sur le range("A1") plutot à partir du range A2
et j'essaye ta macro en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.Left = Range(pospic5).Left
 Selection.Top = Range(pospic5).Top

l'imagine se retrouve vers la cellule N3, pourrez vous m'expliquer pourquoi s'il vous plaît?

Sur le principe, ça marche. Merci infiniment

cordialement

[Daniel.C]

Avec le code précédent, le coin supérieur gauche de l'image se trouvait dans la cellule A1. Avec le code suivant, il est positionné exactement en haut et à gauche de la cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim I As Shape
    Set I = Sheets("Feuil1").Shapes("Picture 4")
    I.Copy
    Sheets("Graphiques").Select
    Range("A1").Select
    ActiveSheet.Paste
    Selection.Left = [A1].Left
    Selection.Top = [A1].Top