IRibbonControl : récupérer un "control" du ruban en fonction de son ID

**Thal000** · 05/08/2013, 16h10

Bonjour,

j'ai crée un ruban personnalisé suivant le tutoriel de Silkyroad

j’obtiens donc ceci :

J'arrive sans problème a modifier l'état (checked/unchecked) des checkboxes qui sont dans le ruban quand la valeur d'une cellule change (en l’occurrence la cellule contenant Oui/Non associée).

Cependant pour manipuler les controls j'ai jusqu'à présent utilisé des procédure de la forme

Code :

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

1
2
3
4
5
Sub MaProcedure(control as IRibbonControl, [...])
 
[...]
 
End Sub

J'avais donc a ma disposition le control en argument.

Ce que je désire faire maintenant c'est, au lancement du classeur Excel, pouvoir mettre l'état des checkboxes à checked si la cellule associée est à oui (et à unchecked si la cellule associée est à non). Pour ce faire, il me faut pouvoir récupérer l'objet control des checkboxes. Savez-vous s'il y a une fonction (ou tout autre moyen) pour obtenir l'objet en fonction de son ID?

D'avance merci

**philoul** · 05/08/2013, 19h03

Bonjour,

Pas sûr d'avoir bien compris la question : n'est-ce pas justement ce qui est expliqué au chapitre V du tutorial en question...

Fonction de rappel Onload mis en première ligne du Xml ruban, toutes les fonctions du tutorial et le bout de code ci-dessous à mettre dans les feuilles contenant les valeurs du ruban :

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
 
'Evenement Change dans la feuille de calcul.
Private Sub Worksheet_Change(ByVal Target As Range)
    'Vérifie si la cellule A1 est modifiée et si la cellule contient la valeur 1.
    If Target.Address = "$A$1" And Target = 1 Then
        boolResult = True
    Else
        boolResult = False
    End If
 
    'Rafraichit le bouton personnalisé
    If Not objRuban Is Nothing Then objRuban.InvalidateControl "Bouton1"
End Sub

en complément s'il y a besoin de faire une initialisation à l'ouverture du classeur il suffit de générer dans l'objet "ThisWorkBook" la macro :

Code :

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

1
2
3
Private Sub Workbook_Open()
' Mise à jour de toutes les check box en fonction des cellules destination
end Sub

Ais-je répondu à la question ?

**Thal000** · 06/08/2013, 10h27

Bonjour,

merci pour ces précisions mais ce n'est pas exactement ce que je recherche.

Je cherche au lancement du classeur à mettre la checkbox Titre à checked si la cellule K42 est à oui et à unchecked si elle est à non.

Si je mets dans la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
If Sheets("Listes").Range("K42").Value = "Oui" Then    
        boolResult = True  
    Else
        boolResult = False
    End If
 
 
    If Not objRuban Is Nothing Then objRuban.InvalidateControl "CBTitre"
end Sub

La checkbox se désactive quelque soit la valeur de la cellule K42. Par ailleurs je ne trouve pas la procédure/propriété qui permet de modifier l'état de la checkbox.

En fait ce qu'il me faudrait c'est un handle vers la checkbox afin que je puisse la manipuler.

J'espère ne pas passer à coté d'une solution évidente.

Merci

Rebonjour,

j'ai expérimenté de mon coté et je pense avoir trouvé une bonne piste.

Pour l'instant j'arrive à activer ou désactiver au lancement les checkboxes. Ce que je veux maintenant c'est pouvoir non pas les activer/désactiver mais les checker/unchecker.

Mais dans l'exemple il s'agit d'activer le bouton :

Code :

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

1
2
3
Sub Bouton1_Enabled(control As IRibbonControl, ByRef returnedVal)
    returnedVal = boolResult
End Sub

Où peut on trouver plus d'infos sur le widget checkbox?

**EngueEngue** · 06/08/2013, 10h30

Code :

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

1
2
Bouton1=True
Bouton1=False

**Thal000** · 06/08/2013, 11h01

Je ne comprend pas bien votre réponse. Qu'est-ce que Bouton1? Dois-je le déclarer? Est il déclaré dans le xml?

N'y a-t-il pas moyen de faire quelque chose comme:

Code :

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