XL 2016 Barre de Menus

Madmax33

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

Pièces jointes

  • SynthèseCouplesZ.xlsm
    770.6 KB · Affichages: 6

patricktoulon

XLDnaute Barbatruc
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 !!!
1692865018640.png





ensuite quand je vois ça dans ton xml
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

1692864758702.png


hoho!!:oops:
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
1692865699559.png

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


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
1692865961265.png


dans ton module callback je rajoute les callback get itemcount et label
1692866124913.png

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

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

Pièces jointes

  • SynthèseCouplesZ.zip
    956.8 KB · Affichages: 2

patricktoulon

XLDnaute Barbatruc
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:
<?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
VB:
'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
demo.gif

et voici la structure du fichier
demo.gif

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

Pièces jointes

  • SynthèseCouples.xlsm
    502 KB · Affichages: 2

Madmax33

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

Pièces jointes

  • SynthèseCouples.xlsm
    786 KB · Affichages: 2

Madmax33

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

Discussions similaires

Réponses
5
Affichages
715

Statistiques des forums

Discussions
313 296
Messages
2 096 914
Membres
106 786
dernier inscrit
Mgordat