Affecter une macro à une forme depuis une autre macro
Bonjour !!
Premier post sur ce forum, en effet dans le cadre d'un stage de fin d'étude je me suis mis à travailler sur Excel VBA.
Dans le cadre de ce stage je dois essayer de simplifier des feuilles de calcul d'un client. Pour cela j'ai tout simplement crée des boutons lui permettant de ce déplacer de feuilles en feuilles.
Mais j'arrive à mon problème :
- dans plusieurs macro mes fonctions permettant de ce déplacer entre les feuilles.
- et dans une autre une créant des formes (triangles et rectangle) automatiquement à l'ajout d'une nouvelle feuille.
Mon problème étant donc de relier les macros créer précédemment avec les formes crées à l'ajout de la nouvelle feuille.
Je vous joint mon fichier test.
Si mes explications ne sont pas assez clair n'hésitez pas à me demander des précisions
En espérant que quelqu’un puisse m'aider à résoudre ce petit problème qui est une montagne pour un débutant comme moi
Bye !!
Bonjour,
A titre d'exemple:
Sub AffecterMacro()
Feuille1.Shapes("LeNomdeImage").OnAction = "LeNomdeMacro"
End SubEn espèrant que cela t'aide
Super cela a marché nickel pour mes flèches
Cependant je n'ai pas réussi à nommer mon rectangle avec .Name = .....
Mon code étant :
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 180, 30, 120, 45).TextFrame
.Characters.Text = "Page d'accueil"
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
.Name = "......" (ne marche pas ici)
End With
Je pensais le mettre juste avant le End With .
Peut être une autre proposition ?
Re,
Ravi d'apprendre que cela fonctionne ...
Pour attribuer un nouveau nom à ton rectangle ...tu pourrais tester le code suivant :
Sub TestBaptiste()
Dim ob As Object
Set ob = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 180, 30, 120, 45)
ob.Name = "LeNomdu Rectangle"
End SubEn espèrant que cela t'aide
Parfait !!! Merci beaucoup ca a marcher à la perfection