XL 2016 Barre de Menus

[Madmax33]

bonjour,
j'ai créé un fichier de synthèse de données pour des utilisateurs plus ou moins aguerris.
j'utilise une Barre de menu personnalisée avec des boutons qui fonctionnent.
je souhaiterai créé une liste déroulante dans ma barre pour filtrer mon tableau, mais je voudrais que les infos soient une liste prédéfinie, située sur autre feuille.
je bute sur le sujet.
merci pour votre aide

 

[Zon]

Salut ,

Il te manque le getcount et le getlabel de cmb1 .

Bon si tu preferes, on a sur XLD le createribbon de Patrick de la rade.. ICI

A+++

 

[patricktoulon]

patrick de la rade

 

[Madmax33]

Grand merci à tous les 2.

 

[patricktoulon]

re
bon! j'ai dézipé ton xlsm
quand je vois cette structure je me dis là on au moins du customUI et backstage
je me dis woawouh!!! c'est chaud !!!

ensuite quand je vois ça dans ton xml

<!-- Created with IDBE RibbonCreator 2021 (Version: 1.1001) -->
<!--                http://www.RibbonCreator2021.com               -->

ben je suis curieux alors j'y vais même pas peur

et je vois ceci

hoho!!
bon allez c'est pas le dernier exe a nous faire ça je télecharge
bon c'est vrai defender de W10 le pétarde aussi tot directement dans les downloads
bon allez même pas peur je déactive defendeur et le smart
je re télécharge
la quand même car je suis pas dingue
je fait un petit coup de cleaner et un viruscan
pan!! il me le pétarde aussi

bon ok
je reviens sur ton fichier
je regarde de plus prêt
pas de backstage juste 3 a boutons et une combo
là j'ai mes sourcils qui commence a friser
ajouter autant de fichier pour ça c'est susse qui pète

ben j'ouvre un peut les rels et xml (toujours pareil même pas peur )
déjà le customUi.xml pas enregistré en UDF_8 et ça le customUI n'aime pas

mais je vais un peu plus loin dans mon investigation
et je trouve ceci

mais qu'est ce que quoi ce truc ????

bon allez ne soyons pas médisant reprenons le xml
et mettons lui la combobox en dynamique sur ta range listebanc
et tout ça à la main

dans ton module callback je rajoute les callback get itemcount et label

bon ben normalement on a tout
j'enregistre re zip en xlsm
voila normalement j'ouvre le classeur et ma combo dans le ruban se remplira automatiquement au clic sur le dropbutton

ben walouh!! je n'ai plus de ruban
je re contrôle tout 3 fois tout est bon

conclusion quand tu fais ton ruban avec cette app ben tu ne peux plus le toucher avec une autre app ni même a la main car le hachage ne correspond plus

je ne vais aller plus loin je pense pas que ça soit nécessaire
LOL

 

[Madmax33]

ouah !
bon j'ai bien compris que l'utilitaire dont je me suis servis n'est pas top.
j'ai tout recommencer avec le tien, c'est beaucoup plus fluide.
c'est ok pour la liste déroulante, maintenant je cherche ton tuto sur les toggle boutons pour allumer/éteindre la surbrillance en fonction de leur appui, j'ai une petite idée...
encore merci pour tes tutos, ils sont TOP !

 

[patricktoulon]

re
tiens ce que tu a essayé c'est le creatorribbonx imageMso
mais vous n'avez pas le allimage
donc je te l'ai refait completement au propre avec tes icons que j'ai réussi a récupérer en déactivant mon antivirus dans le dezip du fichier
il te faut tout recoder dans les callbacks
mais au moins c'est propre et.... ROULEMENT de tambour... compatible 2007 à 2021
donc ton projet xml

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CustomUIOnLoad">
    <!--creatorRiBBonX application V 5.1 10-06-2023-->
    <!--DEVELOPPED BY patricktoulon  a 10-06-2023-->
    <!--project Ribbon name :PROJET MADMAX33-->
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tab_1" label="AIA DE BORDEAUX">
                <group id="group_0" label="Groupe N° 1">
                    <button id="button_1" onAction="button_1_Click" tag="QUITTER" label="QUITTER" image="Image0" size="large"/>
                    <button id="button_2" onAction="button_2_Click" tag="IMPRIMER" label="IMPRIMER" image="Image1" size="large"/>
                    <separator id="separator_1"/>
                    <button id="button_3" onAction="button_3_Click" label="RAZ" tag="RAZ" image="Image2" size="large"/>
                    <comboBox id="comboBox_1" onChange="comboBox_1_onChange" invalidateContentOnDrop="true" getItemCount="comboBox_1_GetItemCount" getItemLabel="comboBox_1_GetItemLabel" label="Choix du ban " image="Image3"/>
                    <separator id="separator_2"/>
                    <button id="button_4" onAction="button_4_Click" label="Vers etCoBeQua" tag="Vers etCoBeQua" image="Image4" size="large"/>
                    <button id="button_5" onAction="button_5_Click" label="Visu Banc" tag="Visu Banc" image="Image5" size="large"/>
                    <button id="button_6" onAction="button_6_Click" label="VisuCouple" tag="VisuCouple" image="Image6" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

les callback dans le fichier

'callback created by [[''creatorRibbonX'']]
'[createRibbonX Application] created by (''patricktoulon'')
'Version 2023  All Images 5.1
'POUR MEMO 4 fonctions importantes à connaitre pour les controls dynamiques
'L 'objet IRibbonUI possède 4 méthodes :
'1° myribbon.Invalidate() qui actualise en une seule fois tous les contrôles personnalisés du classeur.
'2° myribbon.InvalidateControl("Id du control") qui actualise un contrôle particulier (ControlID correspond à l'identificateur unique du contrôle).
'3° myRibbon.ActivateTab ("id de l'onglet à activer")qui active l'onglet désigné par son ID dans les parenthèses
'4° myRibbonInvalidateControlMso ("Id de l'element"(onglet/group/control) )qui actualise  l'element désigné par son ID dans les parenthèses


'l'event ribbon onLoad
Public myRibbon As IRibbonUI ' {Variable pour l'object ribbon}

'Callback for customUI.onLoad
Sub CustomUIOnLoad(ribbon As IRibbonUI)
Set myRibbon = ribbon
 End Sub

'procedure {onAction} du bouton QUITTER
Sub button_1_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_1"
End Sub

'procedure {onAction} du bouton IMPRIMER
Sub button_2_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_2"
End Sub

'procedure {onAction} du bouton RAZ
Sub button_3_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_3"
End Sub

'procedure {onChange} de la comboBox 'Choix du banc
Sub comboBox_1_onChange(control As IRibbonControl, text As String)
MsgBox text
End Sub

'procedure  {getItemCount} de la comboBox 'Choix du ban
Sub comboBox_1_GetItemCount(control As IRibbonControl, ByRef returnedVal)
returnedVal = Range("ListeBancs").Rows.Count
End Sub

'procedure  {getItemLabel}  de la comboBox 'Choix du ban
Sub comboBox_1_GetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = Range("ListeBancs").Cells(index + 1)
End Sub

'procedure {onAction} du bouton   Vers etCoBeQua
Sub button_4_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_4"
End Sub

'procedure {onAction} du bouton  Visu Banc
Sub button_5_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_5"
End Sub

'procedure {onAction} du bouton  VisuCouple
Sub button_6_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id: button_6"
End Sub

et il a la même gueule que ton fichier original

et voici la structure du fichier

quest ce que c'est bien quand c'est propre FFFFiiiiUUUU......

 

[patricktoulon]

pour le switch toglebutton

CreatorRibbonX ImageMso 2023 V4.9.X

Les xml ne passent pas, les voici en zip

excel-downloads.com

 

[Madmax33]

je n'ai pas vu ta réponse et tout ton travail, je suis partit de mon coté avec tes tutos, et voilà ce que ca donne.
je suis super content du résultat.
je vis charger ton fichier pour m'en inspirer
je vais me répetter, mais encore un GRAND merci !

 

[patricktoulon]

la structure de ton fichier reprend le même schmilblick
vire moi ce dossier customui.XML

 

[Madmax33]

et oui, je l'ai bien viré, mais toutes mes requêtes ont disparu avec !!
Donc j'ai refait mes requêtes et le répertoire est revenu, je suppose qu'il y a un lien
un peu plus haut, tu parles de l'utilitaire AllImage que tu as créé, il y a moyen de se le procurer ?
en tout cas l'autre version va super bien.