'callback created by [[''creatorRibbonX'']]
'[createRibbonX Application] created by (''patricktoulon'')
'Version 2023 4.9.9.X.X
'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
'Nom du projet:[C:\Users\patricktoulon\Desktop\CreatorRibbonX V4.9 et V5.0\creatorRibbonX 4.9.9.X\reprise d un customUI_23-05-2024_10 19 22\exemple.xml]
'créé le:[23/05/2024]
'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
'l'event ribbon Load_Image
Public Sub Ribbon_loadImage(imageId As String, ByRef image)
Set image = LoadPicture(ThisWorkbook.Path & "\images\" & imageId)
End Sub
'procedure {getvisible} du tab[ID:''tab_1'' Label:''BUDGET COMPTE PHILIPPE'']'dans le parent [provix3'' ]
'valeur par defaut
Sub tab_1_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = True
End Sub
'procedure {onAction} du bouton [ID:''button_17'' Label:''Ouvrir un Fichier'']'dans le parent [group_9'' Label:''Ouvrir'']
Sub Ouvrir_un_Fichier_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Ouvrir un Fichier
End Sub
'procedure {onAction} du bouton [ID:''button_11'' Label:''Tableau de Bord'']'dans le parent [group_6'' Label:''Accueil'']
Sub Tableau_de_Bord_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Tableau de Bord
End Sub
'procedure {onAction} du bouton [ID:''button_3'' Label:''Ferme sans sauvegarder'']'dans le parent [group_1'' Label:''Contrôle Fermeture'']
Sub Ferme_sans_sauvegarder_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Ferme sans sauvegarder
End Sub
'procedure {onAction} du bouton [ID:''button_1'' Label:''Sauvegarde sans quitter'']'dans le parent [group_1'' Label:''Contrôle Fermeture'']
Sub Sauvegarde_sans_quitter_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Sauvegarde sans quitter
End Sub
'procedure {onAction} du bouton [ID:''button_2'' Label:''Sauvegarde et quitter'']'dans le parent [group_1'' Label:''Contrôle Fermeture'']
Sub Sauvegarde_et_quitter_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Sauvegarde et quitter
End Sub
'procedure {onAction} du bouton [ID:''button_6'' Label:''Agrandir l'écran'']'dans le parent [group_4'' Label:''Fenêtre'']
Sub Agrandir_l() 'écran_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Agrandir l'écran
End Sub
'procedure {onAction} du bouton [ID:''button_7'' Label:''Diminuer l'écran'']'dans le parent [group_4'' Label:''Fenêtre'']
Sub Diminuer_l() 'écran_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Diminuer l'écran
End Sub
'procedure {onAction} du bouton [ID:''jourtoday'' ]'dans le parent [group_10'' Label:''Date du jour'']
Sub jourtoday_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID '
End Sub
'procedure {getLabel} du button[ID:''jourtoday'' ]'dans le parent [group_10'' Label:''Date du jour'']
'valeur par defaut
Sub jourtoday_getLabel(control As IRibbonControl, ByRef label)
Dim Jour$, ecsp$
Jour = WeekdayName(Weekday(Date, vbUseSystemDayOfWeek))
ecsp = Application.Rept(".", (15 - Len(Jour)) / 2)
label = " " & UCase(Jour)
End Sub
'procedure {onAction} du bouton [ID:''datos'' ]'dans le parent [group_10'' Label:''Date du jour'']
Sub datos_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID '
End Sub
'procedure {getLabel} du button[ID:''datos'' ]'dans le parent [group_10'' Label:''Date du jour'']
'valeur par defaut
Sub datos_getLabel(control As IRibbonControl, ByRef label)
Dim D$
D = "[ " & Format(Date, "dd / mm / yyyy") & " ]"
label = D
End Sub
'procedure {onAction} du bouton [ID:''button_8'' Label:''Enregistrer une dépense'']'dans le parent [group_5'' Label:''Gestions des Dépenses'']
Sub Enregistrer_une_dépense_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Enregistrer une dépense
End Sub
'procedure {onAction} du bouton [ID:''button_9'' Label:''Journal des dépenses'']'dans le parent [group_5'' Label:''Gestions des Dépenses'']
Sub Journal_des_dépenses_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Journal des dépenses
End Sub
'procedure {onAction} du bouton [ID:''button_5'' Label:''JANVIER'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub JANVIER_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'JANVIER
End Sub
'procedure {onAction} du bouton [ID:''button_18'' Label:''FEVRIER'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub FEVRIER_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'FEVRIER
End Sub
'procedure {onAction} du bouton [ID:''button_19'' Label:''MARS'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub MARS_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'MARS
End Sub
'procedure {onAction} du bouton [ID:''button_20'' Label:''AVRIL'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub AVRIL_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'AVRIL
End Sub
'procedure {onAction} du bouton [ID:''button_27'' Label:''MAI'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub MAI_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'MAI
End Sub
'procedure {onAction} du bouton [ID:''button_28'' Label:''JUIN'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub JUIN_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'JUIN
End Sub
'procedure {onAction} du bouton [ID:''button_29'' Label:''JUILLET'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub JUILLET_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'JUILLET
End Sub
'procedure {onAction} du bouton [ID:''button_30'' Label:''AOUT'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub AOUT_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'AOUT
End Sub
'procedure {onAction} du bouton [ID:''button_31'' Label:''SEPTEMBRE'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub SEPTEMBRE_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'SEPTEMBRE
End Sub
'procedure {onAction} du bouton [ID:''button_32'' Label:''OCTOBRE'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub OCTOBRE_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'OCTOBRE
End Sub
'procedure {onAction} du bouton [ID:''button_33'' Label:''NOVEMBRE'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub NOVEMBRE_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'NOVEMBRE
End Sub
'procedure {onAction} du bouton [ID:''button_34'' Label:''DECEMBRE'']'dans le parent [menu_1'' Label:''Changer le mois'']
Sub DECEMBRE_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'DECEMBRE
End Sub
'procedure {onAction} du bouton [ID:''button_21'' Label:''Calculatrice'']'dans le parent [group_3'' Label:''utilitaires'']
Sub Calculatrice_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Calculatrice
End Sub
'procedure {onAction} du bouton [ID:''button_22'' Label:''Bouton libre'']'dans le parent [group_3'' Label:''utilitaires'']
Sub button_22_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Bouton libre
End Sub
'procedure {onAction} du bouton [ID:''button_23'' Label:''Bouton libre'']'dans le parent [group_3'' Label:''utilitaires'']
Sub button_23_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Bouton libre
End Sub
'procedure {onAction} du bouton [ID:''button_15'' Label:''Base de Données'']'dans le parent [group_7'' Label:''Administration'']
Sub Base_de_Données_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Base de Données
End Sub
'procedure {onAction} du bouton [ID:''button_16'' Label:''Feuille de Calcul'']'dans le parent [group_7'' Label:''Administration'']
Sub Feuille_de_Calcul_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Feuille de Calcul
End Sub
'procedure {onAction} du bouton [ID:''button_14'' Label:''Tableau TCD'']'dans le parent [group_7'' Label:''Administration'']
Sub Tableau_TCD_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Tableau TCD
End Sub
'procedure {onAction} du bouton [ID:''button_12'' Label:''Supprime toutes les cases'']'dans le parent [box_1'' ]
Sub Supprime_toutes_les_cases_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Supprime toutes les cases
End Sub
'procedure {onAction} du bouton [ID:''button_10'' Label:''Décoche toutes les cases'']'dans le parent [box_1'' ]
Sub Décoche_toutes_les_cases_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Décoche toutes les cases
End Sub
'procedure {onAction} du bouton [ID:''button_13'' Label:''Lie toutes les cases'']'dans le parent [box_1'' ]
Sub Lie_toutes_les_cases_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Lie toutes les cases
End Sub
'procedure {onAction} du bouton [ID:''button_24'' Label:''Imprimante'']'dans le parent [group_11'' Label:''Impréssion'']
Sub Imprimante_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Imprimante
End Sub
'procedure {onAction} du bouton [ID:''button_25'' Label:''Export PDF'']'dans le parent [group_11'' Label:''Impréssion'']
Sub Export_PDF_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Export PDF
End Sub
'procedure {onAction} du bouton [ID:''button_26'' Label:''Bouton libre'']'dans le parent [group_11'' Label:''Impréssion'']
Sub button_26_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Bouton libre
End Sub
'procedure {onAction} du bouton [ID:''button_4'' Label:''Visual Basic Editor'']'dans le parent [group_2'' Label:''Code VBA'']
Sub Visual_Basic_Editor_Click(control As IRibbonControl)
MsgBox " vous avez cliqué sur le [button] id:" & control.ID 'Visual Basic Editor
End Sub
. J'ai donc bien compris que je n'ai pas fini de le modifier, car je découvre au quotidien la puissance et l'utilisation de CreatorRibbonX ImageMso merci pour cette création très utile pour les débutants,
