[VBA-E] GEstion des shapes

Bonjour à tous,
je viens de m'inscrire car je recherche désespérement une réponse à mon problème. J'espère que vous allez pouvoir m'aider.

Je ne maitrise pas trop VBA mais j'ai quelques notions. Je m'en sers au boulot pour me faciliter la vie mais là je galère!

Je vous expose mon problème. Je travaille dans les calculs simples de supports de tuyauteries. J'ai donc différents profilés métaliques, des ancrages (chevilles) de différentes tailles, de différents fournisseurs etc etc.

Mon but est calculé à partir de tout cela la tenue du support si je le soumet à un effort que je rentre.



J'ai crée une feuille de calculs. Sur celle-ci je choisi différents paramètres (précédement expliqué rapidement).


Niveau calcul par de souci, par contre je voudrais représenter avec des petits schémas de principes les profilés... Avec les outils tout simple de dessin d Excel je crée donc les différents schémas que je peux rencontrer et suivant ma sélection de profilé, je souhaiterai qu'il m'affiche le bon schéma représentatif.
Pour chaque schéma je fais mes 3 4 traits, 2 3 lignes en pointiillé (représentation grossière) et je groupe tout avec l'outil grouper.

A ce moment là en haut à gche d'excel, il me donne un numéro de groupe (ex groupe 285)


Ma question est la suivante : existe t il quelques part un endroit ou excel ou vba stock ces dessins? Pourquoi pour le premire groupe ne me donne t il pas le nom "groupe 1"? Bref comment gère t on ces shapes. existe t il une bibliothèque? y' at il un moyen plus simple? avec les clipboard?

Voilà tout, mon explication est un peu bourrine et très confuse. Mais je galère pour appeler ces groupes car sous VBA d'un onglet à l'autre le nom de groupe change.

Merci de votre aide

Déjà deux indications.
Pour récupérer le nom de tous tes dessins

Code:

---

1 2 3 4

For Each LeDessin In Worksheets("Feuil1").Shapes NomShape = LeDessin.Name MsgBox LeDessin.Name Next

---

Pour modifier la position verticale du dessin selectionné

Code:

---

1 2 3 4

NomShape = Selection.Name With Worksheets("Feuil1") .Shapes.Range(NomShape).Top = 12 End With

---

A+

Moi je te conseillerais de renommer tes shapes si tu n'en as pas beaucoup.

Je peux aussi te proposer un truc sympa que j'ai créé. C'est une série de procédure qui permettent de faire du dessin avec excel. Engros tu as des cellules cibles dans lesquelles tu rentre hauteur, largeur,position verticale et horizontale pour chacunes de tes formes (qui doivent rester simple (rectangle ou ellipse)) et le code te redimensionne automatiquement tes shapes.

Imaginons que la taille de tes supports soit liée à un paramètre (même s'il y en a sûrement plus :)), il suffirait que tu changes ce paramètre pour que tu es un beau dessin de ton support à l'échelle. Si tu changes le paramètre en question, le dessin se redimensionne automatiquement.

Tu me dis si ça t'intéresses