ruban Tester checkbox

salut
je créé un ruban pour un fichier excel
j'ai disposé un checkbox
je voudrais à l'aide d'un bouton, tester si la case à cocher est bien cochée ou non.

je sais déclencher une action au clic sur la checkbox mais pas tester si elle est cochée dans une autre procédure liée à un autre contrôle

code xml

Code:

---

1 2 3

<checkBox id="CheckBox1" label="Option" onAction="Validation" />

---

code vba associé à la checkbox

Code:

---

1 2 3

Sub Validation(control As IRibbonControl, pressed As Boolean) MsgBox control.ID & vbCrLf & pressed End Sub

---

code vba associé au bouton

Code:

---

1 2 3

Sub test(ByVal control As IRibbonControl) 'si la case est cochée ... alors .... sinon ..... End Sub

---

j'espère etre clair

si vous avez des idées ...

merci
jp

bonsoir

Tu pourrais envoyer le contenu de l'argument 'pressed' dans une variable Public et réutiliser cette variable dans l'autre procédure.


bonne soirée
michel

Ok Merci encore une fois !
pour ceux que ca intéresse

Mon xml

Code:

---

1 2 3 4 5

[...] <checkBox id="CheckBox1" label="Option" onAction="Validation"/> <button id="bt023" label="test Cba" onAction="test"/> [...]

---

code VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Dim p As Boolean   Sub Validation(control As IRibbonControl, pressed As Boolean) p = pressed End Sub   Sub test(control As IRibbonControl) If p = False Then MsgBox "false !!" Else MsgBox "true!!!" End If End Sub

---

merci !

JP