Discussion :

[Nephyline]

Re-bonjour !

Je souhaiterais pouvoir affecter une macro selon la ligne cliquée dans la combobox du ruban.
Le contenu de cette dernière change à chaque fois que l'utilisateur change de feuille, je ne peux donc pas faire une conditionnelle avec les valeurs.
J'ai donc cherché à récupérer les numéro d'index qui eux ne changeront pas, quel que soit le contenu de la liste. Cependant, à chaque fois, il me sort le label, je ne comprends pas comment l'obliger à me renvoyer l'index (le numéro de la ligne)

De plus, je ne trouve pas comment appeler une macro dans OnChange (ChangeCombo)

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    'Attribue un id à chaque élément
Sub GetItemID(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = "strID " & index + 1
 
End Sub
 
'Callback for Combo1 onChange
Sub ChangeCombo(control As IRibbonControl, text As String)
    'Renvoie l'élément sélectionné dans la combobox
    If text = "strID 1" Then
        'Appel macro Siege
    ElseIf text = "strID 2" Then
        'Appel macro ChantierA
    ElseIf text = "strID 3" Then
        'Appel macro ChantierB
    ElseIf text = "strID 4" Then
        'Appel macro ChantierC
    ElseIf text = "strID 5" Then
        'Appel macro ChantierD
    ElseIf text = "strID 6" Then
        'Appel macro ChantierE
    ElseIf text = "strID 7" Then
        'Appel macro ChantierF
    ElseIf text = "strID 8" Then
        'Appel macro ChantierG
    ElseIf text = "strID 9" Then
        'Appel macro ChantierH
    ElseIf text = "strID 10" Then
        'Appel macro ChantierI
    ElseIf text = "strID 11" Then
        'Appel macro ChantierJ
    ElseIf text = "strID 12" Then
        'Appel macro ChantierK
    ElseIf text = "strID 13" Then
        'Appel macro ChantierL
 
    End If
 
End Sub

Merci de votre attention.

[Nephyline]

J'ai réussi à obtenir ce que je voulais en remplaçant mon contrôle par une liste déroulante Dropdown
Malheureusement, cette dernière ne se met pas à jour sur activation, comme le fait une combobox avec le contrôle InvalidateContentOnDrop.

Savez-vous s'il est possible d'actualiser un contrôle de type dropdown lorsque l'on clique dessus ?

Dans l'attente de vos lumières, merci de votre attention.