Bonjour,
J'ai une image "Plein03" qui est stockée par exemple en A1 de la feuille "Table".
Je veux la copier en "AM7" et qu'elle reste en "A1"
Je sais la déplacer avec le code ci-dessous, ça va très vite, mais je n'ai plus d'image référence en A1 puisque je l'ai seulement déplacée.
Si j'utilise la solution bestiale de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Deplace() Dim F As Worksheet Dim T As Range Set F = Sheets("Table") Set T = ws.Range("AM7") With F.Shapes("Plein03") .LockAspectRatio = msoFalse .Top = T.Top .Left = T.Left .Height = T.Height .Width = T.Width End With End Sub
Ca marche, mais c'est terriblement long !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Range("A1").Select Selection.Copy Range("AM7").Select ActiveSheets.Paste
Comment faire ?
Merci
Se
Partager