Discussion :

[florent77]

Bonjour à toutes et à tous,


J'ai 4 formes (base1, base2, base3, base4) :



J'ai affecté à chacune des 4 formes une procédure commune qui fait apparaître des stimuli (ex : le X jaune) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Procedure_commune()
 
   Dim i as Byte
 
   i = i + 1
 
   Worksheets("BD").Shapes("forme" & i).Copy : Worksheets("Test").Paste
 
End Sub

Est-il possible d'affecter une autre procédure à chacune des formes (qui sera différente pour chaque forme) ?

J'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Worksheets("Test").Shapes("base1").OnAction = "Procedure_base1"
Worksheets("Test").Shapes("base2").OnAction = "Procedure_base2"
....

mais cela écrase la procédure commune...


Si quelqu'un a une petite idée