Passer une variable à une procédure appelé par onaction

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:

---

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:

---

1 2 3 4 5 6

Stabl(i, j).OnAction = "'ref_col_ligne(""4"")'"   Sub ref_col_ligne(n) MsgBox n End Sub

---

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:

Citation:

---

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

---

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

la syntaxe est celle ci qd il y a 2 arguments

Code:

---

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

---

donc ds mon cas pour tester la procédure

Code:

---

1 2 3 4 5

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

---

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

Code:

---

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. :aie:

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

ok Godzestla

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

Code:

---

1 2 3

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

---

sans résultat :?

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

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

Code:

---

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

---

Citation:

---

Envoyé par decondelite

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

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

Code:

---

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

---

---

Génial !!:king:

bravo

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

Code:

---

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

---

Voici le code complet

Code:

---

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

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

Code:

---

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. ;)

Je veux concaténer les deux arguments

merci

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:

  ---

  MaForme.OnAction = "MaProcédure"

  ---

• dans la procédure appelée
  
  Code:

  ---

  1 2 3

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

  ---

Cdlt