copier des formes automatiques

paul87 · 16 Décembre 2008

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 · 16 Décembre 2008

Re : copier des formes automatiques

Bonsoir paul87,

Voici une proposition:

Code:

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 · 16 Décembre 2008

Re : copier des formes automatiques

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

copier des formes automatiques

paul87

XLDnaute Impliqué

Pièces jointes

skoobi

XLDnaute Barbatruc

paul87

XLDnaute Impliqué

Discussions similaires

copier des formes automatiques

paul87

XLDnaute Impliqué

Pièces jointes

skoobi

XLDnaute Barbatruc

paul87

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency