XL 2010 personnalisation ruban

[yves57]

bonjour à toutes et à tous,
je cherche à personnaliser le ruban avec Custom UI editor et je voudrais savoir si il est possible de récupérer les infos qui seraient stockés sur une feuille : genre( button id="btn1" label=feuil1 A2 size="large" onAction="RUNY" imageMso=feuil1 B2"
a bientôt
yves

 

[fanch55]

Bonjour,
déclaration à préciser pour le button :

<button id="Btn1"
    size="large"
    onAction="RUNY"
    screentip = "bla bla bla"
    getLabel="Get_Label"
    getImage="Get_Image"
/>

Code pour faire les chargements :

Sub Get_Label(control As IRibbonControl, ByRef Label)
    Select Case control.ID
        Case "Btn1":    Label = WorkSheets("feuil1").Range("A2")
        Case "....":    Label = "..."
        Case Else:      Label = "????"
    End Select
End Sub

[

Sub Get_Image(control As IRibbonControl, ByRef image)
    Select Case control.ID
        Case "Btn1":
            If InStr(Worksheets("feuil1").Range("B2"), "\") > 0 Then
                ' On peut charger une image à partir d'un dossier
                Set image = LoadPicture(Worksheets("feuil1").Range("B2"))
            Else
                ' Ou on peut indiquer le nom d'un msoid
                image = Worksheets("feuil1").Range("B2") ' "TraceError"
            End If
        Case "....":    image = "..."
        Case Else:      image = "????"
    End Select
    
End Sub

 

[fanch55]

Classeur joint à titre d'exemple

 

[yves57]

bonjour Fanch55, le forum,
hou la la, je suis désolé de ne pas avoir répondu plus tôt, Après 8 jours sans réponse, je pensais que mon sujet n'intéressait personne et j'ai cherché une autre méthode. Du coup je venais moins sur le forum.
je vais donc reprendre le sujet la ou j'avais abandonné et étudier ta solution
Merci beaucoup pour ta participation. et encore désolé pour cette réponse beaucoup trop tardive

 

[Hasco]

bonjour,

Après 8 jours sans réponse je pensais que mon sujet n'intéressait personne

Il arrive parfois qu'on passe à côté.
Dans ces cas là vous pouvez vous répondre à vous même pour remonter votre fil de discussion dans la liste.
Avec un petit mot "Coucou il y a quelqu'un ? " Ou tout autre chose sympa.

cordialement