Discussion :

[electrosat03]

Salut à tous,

Dans un classeur, je voudrais avoir un onglet perso afin de placer 3 choix (pour l'instant) qui ouvrirais différentes feuilles de mon classeur.
J'ai le prg suivant pour effectuer le Xml, je le trouve un peu basic mais bon.

voici le xml

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
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="tabMenuVente" label="Menu Vente">
        <group id="grpActions" label="Actions">
 
          <!-- Bouton Effectuer Vente -->
          <button id="btnVente" 
                  label="Effectuer Vente" 
                  imageMso="Calculator" 
                  size="large" 
                  onAction="Open_Vente"/>
 
          <!-- Bouton Ajouter Produit -->
          <button id="btnProduit" 
                  label="Ajouter Produit" 
                  imageMso="TableInsert" 
                  size="large" 
                  onAction="Ajouter_Produit"/>
 
          <!-- Bouton Résumé Caisse -->
          <button id="btnResume" 
                  label="Résumé Caisse" 
                  imageMso="ChartInsert" 
                  size="large" 
                  onAction="Ouvrir_Resume_Caisse"/>
 
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Le problème, c'est que les images ne s'affichent pas, à part Calculator.
comment faire

Merci

[Nain porte koi]

Hello,

pour un prog un peu moins basique y'a ça https://excel-downloads.com/resource...n.1447/updates

[Valtrase]

Bonjour à tous,
Pour ma part je n'arrive pas à reproduire votre problème !
Votre version d'Excel ne comporte peut-être pas ces images !
Pour un fonctionnement minimum vous devez :

• Insérer un module pour les Callbacks.
• Définir la procédure pour le onAction des boutons (voir exemple xlm)
• Définir la procédure sur chargement du ruban (Pour sauvegarder le Handle du ruban, garder un référence au ruban et autres...)
• l'espace de nom à été mis à jour utilisez la dernière version. (Selon votre version d'Excel)

Plus généralement :

• Éviter les underscores pour les noms de procédures (Ceux-ci étant plutôt réservés pour les méthodes et procédures des contrôles
• Suivez une convention de nommage
  
  • Pour les variables le camel case est populaire avec le premier mot en minuscule exemple 'monBudget'
  • Pour les procédures, fonctions, constantes le PascalCase est recommandé exemple 'CalculFondDeCaisse'
  • Donner des noms explicites. Et éviter les raccourcis. (nommer : 'CalculFondDeCaisse' et pas 'CalcFondCaiss')
  
  

Voici un exemple de fichier xlm mis à jour :

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
<!--Mettez à jour l'espace de nom. Une version plus récente est disponible !-->
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"
          onLoad="OnRibbonLoad">
    <ribbon>
        <tabs>
            <tab id="tabMenuVente"
                 label="Menu Vente"
                 visible="true">
                <group id="grpActions"
                       label="Actions">
                    <!-- Bouton Effectuer Vente -->
                    <button id="btnVente"
                            label="Effectuer Vente"
                            imageMso="Calculator"
                            size="large"
                            onAction="OpenVente"/>
                    <!-- Bouton Ajouter Produit -->
                    <button id="btnProduit"
                            label="Ajouter Produit"
                            imageMso="TableInsert"
                            size="large"
                            onAction="AjouterProduit"/>
                    <!-- Bouton Résumé Caisse -->
                    <button id="btnResume"
                            label="Résumé Caisse"
                            imageMso="ChartInsert"
                            size="large"
                            onAction="OuvrirResumeCaisse"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Et un exemple du module Callbacks minimum :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
'@ModuleDescription "Callbacks for CustonUI."
'@IgnoreModule
'@Folder "Ribbon"
Option Explicit
 
Private mUIRibbon As Office.IRibbonUI
 
#If VBA7 Then
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef destination As Any, _
                                                                                    ByRef SOURCE As Any, _
                                                                                    ByVal Length As Long)
#Else
    Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef destination As Any, _
                                                                            ByRef SOURCE As Any, _
                                                                            ByVal Length As Long)
#End If
 
#If VBA7 Then
    Private Function GetRibbon(ByVal lRibbonPointer As LongPtr) As Object
#Else
    Private Function GetRibbon(ByVal lRibbonPointer As Long) As Object
#End If
    Dim RibbonTemp As Object
    CopyMemory RibbonTemp, lRibbonPointer, LenB(lRibbonPointer)
    Set GetRibbon = RibbonTemp
    Set RibbonTemp = Nothing
End Function
 
'@Description "Function to be run when loading ribbons."
Public Sub OnRibbonLoad(Ribbon As IRibbonUI)
    Set mUIRibbon = Ribbon
    mUIRibbon.ActivateTab "tabMenuVente"
 
    ' // Save the Ribbon Handle
        sys_Settings.Range("sysvr_RibbonHandle").Value = CStr(ObjPtr(mUIRibbon))
 
End Sub
 
'@Description "Recovers the ribbon if lost."
Sub RefreshRibbon(Optional ByVal ControlID As String = "")
    If mUIRibbon Is Nothing Then
        #If VBA7 Then
                    Set mUIRibbon = GetRibbon(CLngPtr(sys_Settings.Range("sysvr_RibbonHandle").Value))
        #Else
                    Set mUIRibbon = GetRibbon(CLng(sys_Settings.Range("sysvr_RibbonHandle").Value))
        #End If
        If ControlID = vbNullString Then
            mUIRibbon.Invalidate
        Else
            mUIRibbon.InvalidateControl ControlID
        End If
    Else
        If ControlID = vbNullString Then
            mUIRibbon.Invalidate
        Else
            mUIRibbon.InvalidateControl ControlID
        End If
    End If
End Sub
 
Public Sub OpenVente(control As IRibbonControl)
    MsgBox "Bouton " & control.ID & " Cliqué !"
End Sub
 
Public Sub AjouterProduit(control As IRibbonControl)
    MsgBox "Bouton " & control.ID & " Cliqué !"
End Sub
 
Public Sub OuvrirResumeCaisse(control As IRibbonControl)
    MsgBox "Bouton " & control.ID & " Cliqué !"
End Sub

Vous avez la possibilité d'utiliser des images personnelles (par exemple images 32*32 pixels en *.png) qui seront peut-être plus adaptées que les images intégrées d'Excel.
Vous pouvez aussi tenter de changer d'image Mso exemple :

• DataFormAddRecord
• SourceControlAddObjects

Et :

• CitationMark
• CreateStoredProcedure
• CalculateSheet

Testez avec ce fichier, bonne programmation.
Pièce jointe 669725

Et pour créer votre ruban vous avez : Assistant ruban pour Office

[deedolith]

Hello,

Autre application WYSIWYG très utile:
assistant-ruban

[Valtrase]

Bonjour à tous,
@Deedolith,

Et pour créer votre ruban vous avez : Assistant ruban pour Office

S'il passe à coté c'est qu'il le fait exprès...

[patmeziere]

Bonjour
dans mon creatorRibbonX imageMso

tu a le dialog xlicondialog3

tu peux chercher ton icon

• par version d'Excel
• par categorie(groupe)
• par type(button,gallery,toggleButton,etc..

ou
par une partie du nom
ou
par la première lettre avec les touches de A à Z en passant par les particulier _xxxx

la liste d'icone contient toute les listes d'icon à jour dans le fluent mars 2025 y compris ceux pour MAC

si tu trouve pas ton icon la dedans ben alors c'est que le nom est mal orthographié il y a plus de 8600 ref d'icon

Attention selon la version le même icon peut être dessiné différemment

en tout cas dans mon creator ton projet ressort bien les 3 icones



j'ajoute que mon creator créer le fichier compatible 2007 à 2024
car je cré deux xml un pour 2007 l'autres pour les versions superieures et que les xml sont en standalone
autrement dit le shemas xml employé est automatiquement choisi en fonction de votre version d'excel