Incrementer automatiquement un userform à une forme

Bonjour à tous, je solicite votre aide sur une question de codage VBA.

Je souhaite réaliser une application qui me permette de générer des formes (Dans mon cas de Ellipses) et d'attribuer automatiquement un userform à chaque fois que celles-ci sont générer.

Mon userform est déjà créer, il me permet de générer des références et de les ranger dans une plage de cellules.

J'ai également la macro qui me permet de créer mes formes et de les nommer avec une boucle For. (D'ailleurs sur ce point déjà un petit problème apparait, dans ma feuille tous les types de form sont nommer selon ma macro alors que je souhaite simplement nommer les formes du type Oval)

Mon problème majeur reste de devoir attribuer automatiquement mon userform à mes formes au moment où elles sont générées. Dans l'idée je souhaite coder l'action où l'on vient faire un click droit sur la forme et affecter une certaine macro qui appelle le userform

Si qqlq à déjà vu ce genre de fonction je suis plus que preneur.

Merci à vous

Bonjour,

il faudrait écrire la macro qui appel le UserForm, par exemple:

Sub Ouvrir_UserForm()
UserForm1.Show 0
End Sub
For i = 1 To 10
   With ActiveSheet
       Set Bouton = .Shapes.AddShape(msoShapeCube, l, t, w, h)
       With Bouton
         .OnAction = "Ouvrir_UserForm"   'appelle la macro Ouvrir_UserForm

Yes c'est parfait

Merci à toi bonne journée

Rechercher des sujets similaires à "incrementer automatiquement userform forme"