Gestion du ruban

B

boniteprobtp

XLDnaute Nouveau
Lors de création de mon ruban, je souhaite qu'une liste dynamique soit créé dés lors que j'utilise le bouton "Liste Items" afin d'obtenir la même liste que pour le bouton "Mon choix Item". Or si l'on passe bien dans le code de création, la génération semble être faite correctement, mais il n'y a pas de réinitialisation de ma liste (le généré est dans mon troisiéme bloc).

Voici le code XML permettant de créer le ruban

PHP: 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="ChargerRuban">
<ribbon startFromScratch="false">
<tabs>
<tab id="monBandeau" label="Utilisateur">
	<group id="Selection" label="Selection">
	<button id="critere"   
		label="choixCritere"    
		imageMso="PivotChartFilterShow"    
		size="normal"    
		onAction="dialogue"    
		screentip="choix critéres affichage" />
	</group>

	<group id="GR7" label="Aller à">
	<menu id="Menu01" label="Mon Choix Item" itemSize="normal">
		<menuSeparator id="RB30" title="CONCERTATION - Je qualifie"/>
		<button id="BUT30" 
			label="Abonnement Internet" 
			onAction="ActivationFeuille"/>
		<button id="BUT31" 	
			label="Renseignement des numéros de téléphone suite à contact téléphonique (si Adhérent)" 
			onAction="ActivationFeuille"/>
		<button id="BUT32" 
			label="Enrichissement des mails" 
			onAction="ActivationFeuille"/>
		<menuSeparator id="RB33" 	
			title="CONCERTATION - J'écoute et je raconte l'histoire de la relation"/>
		<button id="BUT33" 
			label="Détection des INA COURRIER (logistique + poste)" 
			onAction="ActivationFeuille"/>
		<button id="BUT34" 
			label="Détection des INA au téléphone" 
			onAction="ActivationFeuille"/>
		<button id="BUT35" 
			label="Détection des INA par le réseau" 
			onAction="ActivationFeuille"/>
		<button id="BUT36" 
			label="Saisie d'un commentaire lors de la détection des INA au téléphone" 
			onAction="ActivationFeuille"/>
		<button id="BUT37" 
			label="Saisie d'un commentaire lors des contacts téléphoniques" 
			onAction="ActivationFeuille"/>
		<button id="BUT38" 
			label="Saisie d'un commentaire à chaque action menée et lors du traitement des encours (Tous suivis et INA)" 
			onAction="ActivationFeuille"/>
		<menuSeparator id="RB39" 
			title="CONCERTATION - Je communique avec l'adhérent avec le média le plus approprié"/>
		<button id="BUT39" 
			label="Appels non décrochés (RONA)" 
			onAction="ActivationFeuille"/>
		<button id="BUT40" 
			label="Réalisation d'appels sortants lors du traitement de la demande de l'adhérent (hors INA) par ETP" 
			onAction="ActivationFeuille"/>
		<button id="BUT41" 
			label="Pourcentage d'appels sortants réalisés lors du traitement de GED/MAIL/AIDE de l'adhérent(hors INA)" 
			onAction="ActivationFeuille"/>
		<button id="BUT42" 
			label="Pourcentage  de mail envoyés lors du traitement de la demande de l'adhérent" 
			onAction="ActivationFeuille"/>
		<button id="BUT43" 
			label="Envoi de mail lors du traitement de la demande de l'adhérent par ETP" 
			onAction="ActivationFeuille"/>
		<menuSeparator id="RB44" 
			title="CONCERTATION - Je respecte mes engagements"/>
		<button id="BUT44" 
			label="Encours SUIVI GED traités à échéance avec commentaire si report" 
			onAction="ActivationFeuille"/>
	</menu>
	</group>

	<group id="AvancementLigne" label="Item Pilotage" >
		<button id="versHaut" 
			label="Premier" 
			image="DoubleFlecheHaut" 
			size="normal" 
			onAction="versLeHaut" 
			screentip="Premier Item Pilotage" />
		<button id="versBas" 
			label="Dernier" 
			image="DoubleFlecheBas"  
			size="normal"  
			onAction="versLeBas"  
			screentip="Dernier Item Pilotage"/>
		<separator id="sp1" />
		<button id="versPrec"  
			label="Precedent"  
			image="FlecheHaut"   
			size="normal"   
			onAction="versPrecedent"   
			screentip="Item Pilotage précédent"/>
		<button id="versSuiv"   
			label="Suivant"   
			image="FlecheBas"   
			size="normal"   
			onAction="versSuivant"   
			screentip="Item Pilotage suivant"/>
	</group>

	<group id="AvancementColonne" label="Type Indicateur" >
		<button id="versDebut"   
			label="Premier"   
			image="DoubleFlecheGauche"   
			size="normal"   
			onAction="versLeDebut"   
			screentip="Premier Indicateur" />
		<button id="versFin"   
			label="Dernier"   
			image="DoubleFlecheDroite"   
			size="normal"   
			onAction="versLaFin"   
			screentip="Dernier Indicateur" />
		<separator id="sp2" />
		<button id="versColPrec"   
			label="Precedent"   
			image="FlecheGauche"   
			size="normal"   
			onAction="versColonnePrecedente"   
			screentip="Indicateur précédent" />
		<button id="versColSuiv"   
			label="Suivant"   
			image="FlecheDroite"   
			size="normal"   
			onAction="versColonneSuivante"   
			screentip="Indicateur suivant" />
	</group>

	<group id="Menu" label="boite Menu">
		<dynamicMenu id="ListeDynamique"   
			label="Liste Items"   
			getContent="creationMenuDynamique"   
			invalidateContentOnDrop="true"   
			size="normal"   
			image="Jumelle" />
	</group>

</tab>
</tabs>
</ribbon>
</customUI>

Voici le code de l'implémentation du menu dynamic
PHP: 
Sub CreationMenuDynamique(ctrl As IRibbonControl, ByRef content)

'Sub CreationMenuDynamique(control As IRibbonControl)
    
    Dim lig As Integer, nb As Integer, top As Integer
    Dim i As Integer
    Dim chapitre As String
    Dim rubrique As String
    Dim Item As String
    Dim contenu As String
    
    'ouverture de la balise menu
    'contenu = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"
    contenu = "<menu "
    contenu = contenu & CreationAttribut("id", "Menu") & " "
    contenu = contenu & CreationAttribut("itemSize", "normal")
    contenu = contenu & " >"

    feuille = ActiveSheet.Name
    Dim indFeu As Integer
    indFeu = controlerFeuille(feuille)
    If indFeu = 0 Then Exit Sub
    i = Sheets("ParamExecution").Cells(1, 4).Value
    nb = i + Sheets("ParamExecution").Cells(indFeu, 4).Value
    top = Sheets("ParamExecution").Cells(indFeu, 8).Value
    For i = i To nb
        If LCase(Sheets("ParamExecution").Cells(i, top)) = "oui" Then
            rubrique = Sheets("ParamExecution").Cells(i, 1).Value + " - "
            rubrique = rubrique + Sheets("ParamExecution").Cells(i, 2).Value
            If Not chapitre = rubrique Then
                chapitre = rubrique
                contenu = contenu + creerChapitre(chapitre, i)
                Item = ""
            End If
            If Not Item = Sheets("ParamExecution").Cells(i, 3).Value Then
                Item = Sheets("ParamExecution").Cells(i, 3).Value
                contenu = contenu + creerItem(Item, i)
            End If
        End If
    Next i
    'fermeture de la balise
    contenu = contenu & "</menu>"
    Dim fic As String
    Dim nFic As Integer
    nFic = FreeFile()
    fic = "C:\Dossiers\Communs\EvolutionExcel\menuDynamic.txt"
    Open fic For Output As #nFic
    Dim enr As String
    enr = ""
    For i = 1 To Len(contenu)
        If Mid(contenu, i, 2) = "><" Then
            enr = enr + ">"
            Print #nFic, enr
            enr = ""
        Else
            enr = enr + Mid(contenu, i, 1)
        End If
    Next i
    Print #nFic, enr
    Close
    
End Sub

Voici le généré lors de l'événement du bouton

PHP: 
<menu id="Menu" itemSize="normal" >
<menuSeparator id="CHP30" title="CONCERTATION - Je qualifie"/>
<button id="BUT30" label="Abonnement Internet" tag="Abonnement Internet" onAction="ActivationFeuille"/>
<button id="BUT31" label="Renseignement des numéros de téléphone suite à contact téléphonique (si Adhérent)" tag="Renseignement des numéros de téléphone suite à contact téléphonique (si Adhérent)" onAction="ActivationFeuille"/>
<button id="BUT32" label="Enrichissement des mails" tag="Enrichissement des mails" onAction="ActivationFeuille"/>
<menuSeparator id="CHP33" title="CONCERTATION - J'écoute et je raconte l'histoire de la relation"/>
<button id="BUT33" label="Détection des INA COURRIER (logistique + poste)" tag="Détection des INA COURRIER (logistique + poste)" onAction="ActivationFeuille"/>
<button id="BUT34" label="Détection des INA au téléphone" tag="Détection des INA au téléphone" onAction="ActivationFeuille"/>
<button id="BUT35" label="Détection des INA par le réseau" tag="Détection des INA par le réseau" onAction="ActivationFeuille"/>
<button id="BUT36" label="Saisie d'un commentaire lors de la détection des INA au téléphone" tag="Saisie d'un commentaire lors de la détection des INA au téléphone" onAction="ActivationFeuille"/>
<button id="BUT37" label="Saisie d'un commentaire lors des contacts téléphoniques" tag="Saisie d'un commentaire lors des contacts téléphoniques" onAction="ActivationFeuille"/>
<button id="BUT38" label="Saisie d'un commentaire à chaque action menée et lors du traitement des encours (Tous suivis et INA)" tag="Saisie d'un commentaire à chaque action menée et lors du traitement des encours (Tous suivis et INA)" onAction="ActivationFeuille"/>
<menuSeparator id="CHP39" title="CONCERTATION - Je communique avec l'adhérent avec le média le plus approprié"/>
<button id="BUT39" label="Appels non décrochés (RONA)" tag="Appels non décrochés (RONA)" onAction="ActivationFeuille"/>
<button id="BUT40" label="Réalisation d'appels sortants lors du traitement de la demande de l'adhérent (hors INA) par ETP" tag="Réalisation d'appels sortants lors du traitement de la demande de l'adhérent (hors INA) par ETP" onAction="ActivationFeuille"/>
<button id="BUT41" label="Pourcentage d'appels sortants réalisés lors du traitement de GED/MAIL/AIDE de l'adhérent (hors INA)" tag="Pourcentage d'appels sortants réalisés lors du traitement de GED/MAIL/AIDE de l'adhérent (hors INA)" onAction="ActivationFeuille"/>
<button id="BUT42" label="Pourcentage  de mail envoyés lors du traitement de la demande de l'adhérent" tag="Pourcentage  de mail envoyés lors du traitement de la demande de l'adhérent" onAction="ActivationFeuille"/>
<button id="BUT43" label="Envoi de mail lors du traitement de la demande de l'adhérent par ETP" tag="Envoi de mail lors du traitement de la demande de l'adhérent par ETP" onAction="ActivationFeuille"/>
<menuSeparator id="CHP44" title="CONCERTATION - Je respecte mes engagements"/>
<button id="BUT44" label="Encours SUIVI GED traités à échéance avec commentaire si report" tag="Encours SUIVI GED traités à échéance avec commentaire si report" onAction="ActivationFeuille"/>
</menu>

Vous remerciant par avance pour toute aide qui pourrait me faire avancer.

Cordialement
 
Dernière édition:

Discussions similaires

K
  • Question
Affecter un lien hypertexte à un boutton dans le ruban personnalisé
Réponses
10
Affichages
3 K
kyasteph
K
apnart
  • Question
Ruban et info-bulles
Réponses
1
Affichages
879
apnart
apnart
A
  • Question
Personalisation du ruban
2
Réponses
22
Affichages
24 K
alexmesle
A
B
  • Question
masquer un controle dans un ruban personnel Excel
Réponses
14
Affichages
4 K
bonite
bonite
B
  • Question
Actualisation d'une liste dynamique dans un ruban personnel Excel
Réponses
0
Affichages
2 K
boniteprobtp
B
M
  • Question
ajout des barees de commandes dans excel 2007
Réponses
0
Affichages
1 K
mohamed driss
M
B
  • Question
ruban bouton
Réponses
5
Affichages
3 K
bloublou
B
A
  • Question
VBA et manipulation de ruban
Réponses
2
Affichages
10 K
soenda
soenda
_matt_44
  • Question
[MACRO] Erreur 400
Réponses
4
Affichages
2 K
_matt_44
_matt_44
M
[Excel 2007] saisir mot de passe dans le ruban et l'afficher sous forme d'astérisques
Réponses
0
Affichages
4 K
MichelXld
M

Membres actuellement en ligne

15 membres et 96 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 305
Messages
2 087 078
Membres
103 455
dernier inscrit
saramachado