Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 personnalisation ruban

yves57

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour,
déclaration à préciser pour le button :
HTML:
<button id="Btn1"
    size="large"
    onAction="RUNY"
    screentip = "bla bla bla"
    getLabel="Get_Label"
    getImage="Get_Image"
/>
Code pour faire les chargements :
VB:
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
[
VB:
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
 
Dernière édition:

yves57

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…