Discussion :

[rakhann974]

Bonjour,

Je suis actuellement sur un projet de feuille de travail pour l'entreprise ou je travaille.
J'aimerai aborder 2 problèmes que j'ai rencontré.

J'ai créé 2 onglets personnalisés

• exploitation JOUR
• exploitation Mensuel

Sous excel 2010 ils s'affichent correctement, mais pas sous Excel 2007. J'ai essayé avec

Code xml :

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

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

qui semble correspondre à la version 2007

et

Code xml :

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

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

qui semble correspondre à la version 2010 ( pour rappel, celle ci fonctionne)

Le 2ème point :

j'aimerai pouvoir afficher une valeur d'une cellule d'une feuille, par exemple une date qui se trouverai dans la cellule I3 de la feuille 2, dans le ruban.

En xlm j'ai placé ceci :

Code xml :

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

1
2
3
4
<!--affiche la date d'activation de la fiche-->
                   <group id="datejour" label="Date de Contrôle">
                        <labelControl id="labelControl1" getLabel="MAJDATECONTROL"/>
                   </group>

sous vba j'ai placé ce callback

Code :

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

1
2
3
4
'Callback for Combo1 getItemCount
Sub MAJDATECONTROL(control As IRibbonControl, ByRef  label)
     labelcontrol1 = Feuil2.Range("I3")
End Sub

j'ai certainement loupé quelque chose ou bien ce n'est pas possible ?

Merci d'avance pour toutes vos lumières

Ja nee

[rakhann974]

Le 2ème point :

j'aimerai pouvoir afficher une valeur d'une cellule d'une feuille, par exemple une date qui se trouverai dans la cellule I3 de la feuille 2, dans le ruban.

En xlm j'ai placé ceci :

<!--affiche la date d'activation de la fiche-->
<group id="datejour" label="Date de Contrôle">
<labelControl id="labelControl1" getLabel="MAJDATECONTROL"/>
</group>

sous vba j'ai placé ce callback

Code :

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

1
2
3
4
'Callback for Combo1 getItemCount
Sub MAJDATECONTROL(control As IRibbonControl, ByRef  label)
     labelcontrol1 = Feuil2.Range("I3")
End Sub

j'ai certainement loupé quelque chose ou bien ce n'est pas possible ?

J'ai réussi, par hasard à afficher la valeur que je souhaitais dans un labelbox du ruban.
je vous joins le code qui pourrai servir à d'autre

Code :

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

1
2
3
4
'Callback for Combo1 getItemCount
Sub MAJDATECONTROL(control As IRibbonControl, ByRef returnedVal)
returnedVal = Feuil2.Range("I3")
End Sub