copier des formes automatiques

[paul87]

Bonsoir à tous, bonsoir le Forum,
dans une feuille j'ai besoin pouvoir lorsque je clique sur le bouton2 par exemple de pouvoir copier la forme auto "Rectangle 1" autant de fois que de cellules sélectionnées.
je sais le faire avec les cellules elles mêmes, (cf bouton1) mais pas avec les formes auto
idéalement il faudrait que la forme auto s'adapte automatiquement à la largeur/hauteur de la cellule sélectionnée (car dans mon appli finale toutes les cellules n'auront pas les mêmes dimensions)....je ne sais pas si c'est possible...
Merci par avance pour vos conseils

 

[skoobi]

Re : copier des formes automatiques

Bonsoir paul87,

Voici une proposition:

Sub Macro1()
  For Each cell In Selection
    ActiveSheet.Shapes("Rectangle 1").Copy
    cell.Select
    ActiveSheet.Paste
    With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
      .Height = .TopLeftCell.Height
      .Width = .TopLeftCell.Width
    End With
  Next
End Sub

 

[paul87]

Re : copier des formes automatiques

re bonsoir,
et merci beaucoup..
c'est parfaitement ça!!
MERCI skoobi