'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