Discussion :

[patbou]

Bonjour,
Le titre n 'est certainement pas très claire mais je vais développer.

Je cherche à passer le nom d ' un objet shape lorsque celui ci est activé
(déclenchement de "l 'évenement" 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
Sub mise_en_page()
Dim i As Byte
Dim j As Byte

Const Rwidth = 45
Const Rheigth = 43
For i = 1 To 6
    For j = 1 To 7
       Set Stabl(i, j) = ActiveSheet.Shapes.AddShape(msoShapeOval, Cells(i + 1, j + 3).Left + (Cells(i + 1, j + 3).Height - Rheigth) / 2, Cells(i + 1, j + 3).Top + (Cells(i + 1, j + 3).Width - Rwidth) / 2, Rwidth, Rheigth)
       Stabl(i, j).Name = "t" & i & j
       Stabl(i, j).OnAction = "'ref_col_ligne(j)'"  'ICI 
          Next j
Next i

Pour passer par exemple la valeur 4 à la procédure "ref_col_ligne(n)"

Code :

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

1
2
3
4
5
6
 
Stabl(i, j).OnAction = "'ref_col_ligne(""4"")'"
 
Sub ref_col_ligne(n)
MsgBox n
End Sub

[decondelite]

Déjà la sytnaxe de OnAction est du type OnAction= "MaProcedure".

Ensuite, j'ai fait quelques tests, et il semblerait que VBA n'aime pas le passage d'arguments:

Erreur 1004: Cette formule est trop compliquée pour être affectée à un objet

Vois si tu ne peux pas contourner le problème.

[patbou]

la syntaxe est celle ci qd il y a 2 arguments

Code :

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

Stabl(i, j).OnAction = "'ref_col_ligne(""4""),(""2"")'"

donc ds mon cas pour tester la procédure

Code :

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

1
2
3
4
5
 
.....
Stabl(i, j).OnAction = "'ref_col_ligne(""4"")'"
ou
Stabl(i, j).OnAction = "'ref_col_ligne (4)'"

[Godzestla]

Bonjour,
si ton besoin ne couvre pas trop d'objets, tu peux ruser de la manière suivante :

Code :

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

1
2
 
Stabl(i, j).OnAction = "'ref_col_ligne_ij"

Et dans Ref_col_ligne_ij, tu initialises en dur tes parametres avant d'appeler la procédure originale Ref_col_ligne.

cela nécessite une procédure d'appel intermédiaire par objet.

Je vois que tu en as 42, donc c'est jouable.

[patbou]

ok Godzestla

par contre je n ai pas trouvé l 'écriture pour appeler les 42 procédures ...
j ai essayé

Code :

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

1
2
3
 
Stabl(i, j).OnAction = "'ref_col_ligne_" & i & j 
Stabl(i, j).OnAction = "'ref_col_ligne_ & i & j "

sans résultat

[decondelite]

C'est bon j'ai trouvé ton bonheur!
Testé et ça marche.

En plus avec ça tu n'as besoin que d'une seule procédure.

Code :

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

Stabl(i, j).OnAction = "'ref_col_ligne(""" & j & """)'"

[Godzestla]

C'est bon j'ai trouvé ton bonheur!
Testé et ça marche.

En plus avec ça tu n'as besoin que d'une seule procédure.

Code :

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

Stabl(i, j).OnAction = "'ref_col_ligne(""" & j & """)'"

Génial !!

[patbou]

bravo

donc qd vous voulez passer un argument à une procudure déclenché par le onaction

Code :

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

1
2
 
onaction = "'ref_col_ligne(""" & i & j & """)'"

Voici le code complet

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
24
 
Option Explicit
 
Dim Stabl(1 To 6, 1 To 7) As Shape
 
Sub mise_en_page()
Dim i As Byte
Dim j As Byte
 
Const Rwidth = 45
Const Rheigth = 43
For i = 1 To 6
    For j = 1 To 7
       Set Stabl(i, j) = ActiveSheet.Shapes.AddShape(msoShapeOval, Cells(i + 1, j + 3).Left + (Cells(i + 1, j + 3).Height - Rheigth) / 2, Cells(i + 1, j + 3).Top + (Cells(i + 1, j + 3).Width - Rwidth) / 2, Rwidth, Rheigth)
       Stabl(i, j).Name = "t" & i & j
       Stabl(i, j).OnAction = "'ref_col_ligne(""" & i & j & """)'"
    Next j
Next i
 
 
End Sub
Sub ref_col_ligne(n)
MsgBox " vous activer le bouton " & n
End Sub

Ceci permet de distniguer quel bouton a été actionné et d ' orienter le programme .

MERCI

[decondelite]

Si tu veux utiliser 2 arguments distincts ça donne ça:

Code :

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

Stabl(i, j).OnAction = "'ref_col_ligne(""" & i & """),(""" & j & """)'"

Ce que tu as donné concatène tes 2 caleurs en un seul argument: ce n'est peut-être pas l'idéal, et il se peut que tu aies besoin de les avoir séparés.

[patbou]

Je veux concaténer les deux arguments

merci

[fring]

Bonjour,

Pour info, si l'on veut savoir quelle est la forme qui a appelé la procédure, on peut également utiliser ceci :

• dans la procédure de création de la forme
  

  Code :

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

  MaForme.OnAction = "MaProcédure"

• dans la procédure appelée
  

  Code :

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

  1
  2
  3
  Sub MaProcedure()
  MsgBox Application.Caller '<-- renvoie le nom de la forme
  End Sub

Cdlt