Discussion :

[jpo]

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 :

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

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

code vba associé à la checkbox

Code :

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

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

code vba associé au bouton

Code :

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

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

[SilkyRoad]

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

[jpo]

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

Mon xml

Code :

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

1
2
3
4
5
[...]
<checkBox id="CheckBox1"
                  label="Option"
                  onAction="Validation"/>
<button id="bt023" label="test Cba" onAction="test"/> [...]

code VBA

Code :

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

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