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

[MarcelG]

Bonjour,

Je ne vois pas le rapport entre les 2 codes.
D'autre part, dans le premier, à quoi sert la variable i? Aucune boucle n'est gérée.
Peux-tu nous en dire davantage?

Plus généralement, j'ai une préférence pour les contrôles ActiveX boutons de commande.
Mais c'est un choix.

[florent77]

Bonjour Marcel merci à toi,


La variable i permet d'incrémenter les différentes formes que je vais copier dans la base de données ("BD").

Pour être plus clair j'ai essayé ceci avec OnAction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Procedure_commune()
 
   Dim i as Byte
 
   i = i + 1
 
   Worksheets("BD").Shapes("forme" & i).Copy : Worksheets("Test").Paste
 
   Worksheets("Test").Shapes("base1").OnAction = "Proc_Base1"
   Worksheets("Test").Shapes("base2").OnAction = "Proc_Base2"
 
End Sub
 
 
Sub Proc_Base1()
......
End Sub
 
 
Sub Proc_Base2()
.......
End Sub

Mais les secondes procédures (Proc_Base1 et 2) viennent écraser la procédure commune.

Pour les contrôles active X, je suis d'accord avec toi mais les formes (base1, base2 etc) sont un peu plus complexes que celles que je présente ici et je ne sais pas s'il est possible d'insérer des formes personnalisées dans des contrôles active X?

[MarcelG]

Salut,

La variable i permet d'incrémenter les différentes formes

Là non. i reste figé à 1.

Pourrais-tu retourner le code complet des procédures Proc_base1 et Proc_base_2, s'il te plaît.

[unparia]

Bonjour

La variable i permet d'incrémenter

Que nenni, puisqu'elle est déclarée en début de procédure et donc = 0 à ce moment, puis 1 (toujours) à la suite de l'ajout de 1 ...

[florent77]

Au temps pour moi :

Code :

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

1
2
Option Explicit
Public i As Byte

En début de code...

Au lieu de :

Code :

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

Dim i as Byte

Sinon voici le style de procédures simplettes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Proc_Base1()
 
   Worksheets("Cotation").Range("C4").Value = "base1"
 
End Sub
 
 
Sub Proc_Base2()
 
   Worksheets("Cotation").Range("C4").Value = "base2"
 
End Sub

[eriiic]

Bonjour à tous,

il faut des simples cotes quotes en plus (il me semblait bien trouver qq chose bizarre en validant mon post, mais impossible de mettre le doigt dessus :-) ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
    ActiveSheet.Shapes("base1").OnAction = "'Procedure_commune 1'"
    ActiveSheet.Shapes("base2").OnAction = "'Procedure_commune 2'"
End Sub
 
Sub Procedure_commune(param As Long)
Debug.Print param
    'code commun
    '...
    Select Case param
    Case 1: Procedure_base1
    Case 2: Procedure_base2
    End Select
    'code commun
    '...
End Sub

eric