XL 2010 repetition de forme

phlaurent55

Nous a quittés en 2020

Repose en paix

• 11 Janvier 2017

• #2

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

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 12 Janvier 2017

• #3

phlaurent55 à dit:

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

Cliquez pour agrandir...

Bonjour phlaurent55, le forum.
c'est que que j'ai fait avec l'enregistreur (enfin, presque pareil...) tu arrives à les positionner les unes au dessus des autres.
mais la, je ne vois pas comment je pourrais faire pour passer tout ça en paramètres?.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Janvier 2017

• #4

Re,

tu peux t'inspirer de ce modeste fichier

à+
Philippe

 

Pièces jointes

• 111.xlsm

  14.3 KB · Affichages: 38

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 12 Janvier 2017

• #5

Hello, merci de ce modeste fichier.
je vous met ce que je voudrais réaliser, presque comme un diagramme de gant, mais avec une forme

 

Pièces jointes

• dmh_rico.xlsm

  20.7 KB · Affichages: 35

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Janvier 2017

• #6

Re,

une solution sans macro:

à+
Philippe

 

Pièces jointes

• 111.xlsx

  13.2 KB · Affichages: 46

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 13 Janvier 2017

• #7

Yes, c'est super, merci beaucoup, reste plus qu'à comprendrendre la formule, c'est pas gagné
je te remercie beaucoup du temps passé.
jf

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Janvier 2017

• #8

Re,

pour le fun

à+
Philippe

 

Pièces jointes

• 111.xlsx

  13.3 KB · Affichages: 35

Vote positif 0 Vote négatif