Discussion :

[Nephyline]

Bonjour,

J'ai un contrôle DropDown dans un ruban qui se remplit dynamiquement selon le contenu de certaines cellules de la feuille active.
J'essaye depuis plusieurs jours d'actualiser ce contrôle de façon à ce que son contenu soit mis-à-jour lorsque l'utilisateur change de feuille.
J'ai finalement ajouté un bouton (dans ce même ruban) qui ajoute une valeur bidon dans une cellule vide pour que la mise-à-jour se fasse sur clic/actualisation de la feuille.

Mais j'ai plus l'impression de me perdre que de vraiment avancer...

Pouvez-vous m'aider, s'il vous plaît ?

Module :

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
Option Explicit
 
Public objRuban As IRibbonUI
Public boolResult As Boolean
 
'Callback for customUI.onLoad
'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
    Set objRuban = ribbon
End Sub
 
Sub btn_OnAction(control As IRibbonControl)
 
    Range("A80").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A81").Select
 
End Sub

Code ajouté dans chaque feuille :

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
'Option Explicit
 
'Evenement Change dans la feuille de calcul.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Address(0, 0) = "A81" Then
        boolResult = True
'    Else
'        boolResult = False
    End If
 
    'Rafraichit le bouton personnalisé
    If Not objRuban Is Nothing Then objRuban.InvalidateControl "dropDown1"
 
End Sub

[Arkham46]

bjr

pas bien sûr d'avoir tout compris mais :

- j'utiliserais plutôt l'événement SheetActivate dans ThisWorkbook pour lancer un InvalidateControl du dropDown au changement de feuille

- pour le remplissage de la liste, ActiveSheet permet de trouver la feuille active

[Nephyline]

Merci beaucoup Arkham !

J'ai résolu mon problème ! J'obtiens bien une mise à jour sur le changement de feuille :

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ThisWorkbook.RibbonUI.InvalidateControl ("dropDown1")
End Sub

J'ai quand même gardé le bouton d'actualisation si l'utilisateur change une valeur du contenu dynamique pour qu'il n'ait pas à changer de feuille.