Discussion :

[DamKre]

Bonjour,

J'ai créé un ruban personnalisé.
Dans ce dernier, un groupe comprend des checkBox, des dropDown (liste déroulante) et des comboBox. Ces éléments me permettent d'appliquer certains filtres.

Dans ce groupe, j'ajoute un bouton pour réinitialiser ces filtres. En cliquant dessus, je souhaite que les valeurs choisies des checkBox, dropDown et comboBox s'effacent.

J'ai testé oMonRuban.Invalidate, mais cela ne fonctionne pas.

Comment réinitialiser ces valeurs ?

Merci de votre aide !

[Super2016]

Bonjour :

Ruban personnalisé : vous entendez un formulaire sur lequel sont inscrits les differents contrôles .

Un méthode serait d'utiliser la méthode d'Access : UNDO .

Me.undo .

CDT.

[DamKre]

Bonjour,

Merci de tenter d'apporter une réponse, mais je parle bien des éléments du ruban, un ruban qui est général pour la base de données, et non pas d'éléments de formulaires.

Du coup, je n'ai entretemps toujours pas trouvé de solution de mon côté.

[Jean-Philippe André]

Salut,

lorsque tu cliques sur ton reset, tu veux revenir à ton ruban d'origine ?

Tu peux utiliser un TempVar pour stocker ton ruban, et y faire reference


- passer par un pointeur dans l'event de chargement pour mettre la valeur
-passer par TempVar lors du reset ?

[DamKre]

Bonjour,

Je crois que tu as résumé, en effet.

Voici, par exemple, un élément du ruban :

Par défaut, la case n'est pas cochée, et aucun élément n'est choisi dans les listes.

Lorsque je clique sur "Réinitialiser les filtres", je souhaite en effet en revenir aux éléments par défaut (pas de case cochée, pas d'élément sélectionné).

Le tempvar dont tu parles, je le déclare uniquement dans la procédure ou dans le module du ruban ?

[Jean-Philippe André]

Salut,
Les tempvars ont la durée de vie de l'ouverture de la base il me semble, aussi tu peux tres bien gérer les valeurs avec les

Code :

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

TempVars.Add "Ruban", valeur

et

Code :

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

TempVars.Remove "Ruban"

un bout de code récupéré par ailleurs, qui devrait te permetttre d'avancer, mais que je n'ai pas pris le temps de tester, donc à vérifier :
Côté code 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
15
16
17
18
19
20
21
Option Explicit
Dim monRub As IRibbonUI
 
'Callback for customUI.onLoad
Sub ChargerRuban(ribbon As IRibbonUI)
Set monRub = ribbon
TempVars.add "Ruban", ObjPtr(ribbon) 'cette ligne peut poser probleme je pense, car ce n'est pas du vba pur, mais on doit pouvoir trouver l'équivalent
End Sub
 
 
Public Sub RefreshRibbon()
 
    If monRub Is Nothing Then
        Set monRub = GetRibbon(TempVars!Ruban)
    ' Else: Do nothing!
    End If
 
    On Error Resume Next
    monRub.Invalidate
    On Error GoTo 0
End Sub

'partie du getribbon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
#If VBA7 Then
    Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
#Else
    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
#End If
 
#If VBA7 Then
Function GetRibbon(ByVal lRibbonPointer As LongPtr) As Object
#Else
Function GetRibbon(ByVal lRibbonPointer As Long) As Object
#End If
 
    Dim objRibbon As Object
 
    Call CopyMemory(objRibbon, lRibbonPointer, LenB(lRibbonPointer))
 
    Set GetRibbon = objRibbon
    Set objRibbon = Nothing
End Function

[DamKre]

Bonjour,

Je dois être une quiche (quoique, c'est très bon aussi ^^), mais cela ne produit aucun effet.

Ce que j'ai fait, dans le module mod_ribbon :

Au début du module :

Code :

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

1
2
3
4
5
Option Compare Database
Public oMonRuban As IRibbonUI '-> Variable pour dire que c'est le ruban
[...] 
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Modification de Ribbon_OnLoad:

Code :

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

1
2
3
4
5
6
7
8
Sub Ribbon_OnLoad(ribbon As IRibbonUI)
On Error GoTo Erreurs
 
Set oMonRuban = ribbon
 
TempVars.Add "RubanApplication", ObjPtr(ribbon)
 
Exit Sub

Ajout d'une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function GetRibbon(ByVal lRibbonPointer As Long) As Object
 
Dim objRibbon As Object
 
    Call CopyMemory(objRibbon, lRibbonPointer, LenB(lRibbonPointer))
 
    Set GetRibbon = objRibbon
    Set objRibbon = Nothing
 
 
End Function

Et, au clic sur le bouton du ruban pour le réinitialiser :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Ribbon_OnAction(control As IRibbonControl)
On Error GoTo Erreurs
 
Select Case control.Id
    Case "button_Documents_ReinitialiserFiltres"
         If oMonRuban Is Nothing Then
            Set oMonRuban = GetRibbon(TempVars!RubanApplication)
        'Else: Do nothing!
        End If

Les éléments cochés et sélectionnés ne se sont pas réinitialisés.

J'ai sans doute dû mal suivre quelque chose, mais quoi ?