Discussion :

[DenisHen]

Bonjour à la communauté...

Voilà, n'ayant rien trouvé, je me permets cette petite question.

Comment, dans un code VBA d'une Sub quelquonque, on peut savoir si le CheckBox du ruban est à Vrai ou Faux ?

Voici un petit extrait de mon XML :

Code :

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

<checkBox id="LstChk1" label="Recherche aussi les Archives" onAction="XmlChkArchive"/>

Et ma Sub qui le contrôle :

Code :

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

1
2
3
4
5
6
7
Sub XmlChkArchive(control As IRibbonControl, pressed As Boolean)
    If pressed = True Then
        Range("CleArchives").Value = "Oui"    'Archives actives
    Else
        Range("CleArchives").Value = "Non"    'Archives inactives
    End If
End Sub

Mais j'aimerais surtout interroger la valeur du CheckBox depuis une autre Sub...

Si quelqu'un a un conseil ou une astuce, je suis preneur...

Denis...

[parmi]

Bonjour,

Une solution serait de créer une ou des variables booléennes en Public auxquelles tu te réfères dans ton programme.

Code :

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

1
2
3
4
5
6
7
8
Public MaVar as boolean
Sub XmlChkArchive(control As IRibbonControl, pressed As Boolean)
    If pressed = True Then
        MaVar = True
    Else
        MaVar = False
    End If
End Sub

[DenisHen]

Bonjour, et merci pour cette réponse.

Maintenant, mon problème est de savoir comment connaitre cette variable lors de l'ouverture du XLSM.

Merci encore...

Denis...

[parmi]

Dans ton XML tu as donné un nom à ton ruban

Code :

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

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="NomDuRuban_onLoad">

Dans ton code, tu peux utiliser la méthode

Code :

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

1
2
3
Sub NomDuRuban_onLoad(ribbon As IRibbonUI)
   ....
End Sub

Quand tu coches/décoches, tu peux mettre la valeur Vrai/Faux dans un onglet masqué (si nécessaire)

[DenisHen]

Bonjour parmi, et merci pour ton aide.

En fait, mon ruban n'avait pas de nom...

Mais comment fixer la variable "pressed" dans un Sub qui n'en n'a pas ?

Merci encore.

Denis...