Sub creeimage()
For i = 1 To 15
Set s = Sheets(1).Shapes.AddShape(msoShapeOval, 50, 27 * i - 25, 50, 25)
Next i
End Sub
Bonjour phlaurent55, le forum.Bonjour jeffe,
essaie ce code: il ne copie pas la forme mais il en crée
Code:Sub creeimage() For i = 1 To 15 Set s = Sheets(1).Shapes.AddShape(msoShapeOval, 50, 27 * i - 25, 50, 25) Next i End Sub
à+
Philippe