XL 2010 repetition de forme

[jeffe]

Bonjour le forum,
existe t il une fonction ou une astuce permettant de repeter une forme, (en spécifiant le nom de la forme et ses propriétés et le nombre de fois répétées)
comme pour la fonction REP("g";4)
merci

 

[phlaurent55]

Bonjour jeffe,

essaie ce code: il ne copie pas la forme mais il en crée

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

 

[jeffe]

Bonjour jeffe,

essaie ce code: il ne copie pas la forme mais il en crée

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

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?.

 

[phlaurent55]

Re,

tu peux t'inspirer de ce modeste fichier

à+
Philippe

 

[jeffe]

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

 

[phlaurent55]

Re,

une solution sans macro:

à+
Philippe

 

[jeffe]

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

 

[phlaurent55]

Re,

pour le fun

à+
Philippe