Ruban personnalisé, affichage bouton si condition remplis

Le 27/05/2015 à 15:35

Bonjour à tous,

J’ai développé une base de données sous VBA qui a deux principales fonctionnalités :

  • Celles liés à la gestion des données
    Celles liés à la consultation des données

Afin d’améliorer l’interface utilisateur, j’ai créé un ruban personnalisé à l’aide de custom UI. Pour informations je me suis aider d'un projet existant obtenu grâce à un bouquin que j'ai acheter, mais son adaptation ne fonctionne pas.

Voici ci-joint un aperçu du ruban et sa méthode de fonctionnement :

L’utilisateur choisi le type de fonctionnalité qu’il souhaite utiliser en définissant le type d’utilisateur qu’il est (soit num° 15 du schéma : gestion de données, soit num°16 du schéma : consultation°).

La fonctionnalité 15 est protégée par un mot de passe afin d’éviter que n’importe qui ne saisisse des données dans la base.

J’aimerai que les boutons 15 et 16 fonctionnent comme un bouton à bascule. Soit le 15 est sélectionné, soit le 16 est sélectionné (valeur par défaut) et qu’une surbrillance recouvre le bouton sélectionné.

Une fois le bouton 15 ou 16 sélectionné, j’aimerai que certains groupes de boutons s’affiche et d’autres pas. Ces liens correspondent au code couleurs visible sur le schéma ci-dessus :

  • Si bouton 16 sélectionné (sélectionné par défaut) : (GR1), GR5 , GR6 , GR7 et GR8
    Si bouton 15 sélectionné : tous les groupes sont visibles.

Pour résumer :

Le fonctionnement du script que je souhaite écrire est donc, si le bouton 15 est sélectionné, on affiche les groupes : GR2, GR3, GR4.

Ce que j’ai fait :

Voici le script saisi dans CUSTOM UI :

<customUI 
  xmlns="http://schemas.microsoft.com/office/2009/07/customui"
  onLoad="ChargeRuban" >

  <!-- Masque le ruban Office -->
  <ribbon startFromScratch="false">

  <tabs>

   <!-- Création d'un onglet personnalisé -->
   <tab id="OngletPerso" label="Optimisation ST" >

      <!-- Groupe Sélection utiliasteur -->
      <group id="Groupe1" label="Type d'utilisateurs">

      <!-- Boutons Bascule -->
      <toggleButton id="btdatagestion" label="Gestion des données" 
           imageMso="ControlsGallery"           
           size="large" onAction="TypeUtilisateurs"
           getPressed="Activation" />
      <toggleButton id="btConsultation" label="Consultation" 
           imageMso="ZoomPrintPreviewExcel" 
           size="large" onAction="TypeUtilisateurs"
           getPressed="Activation"/>
   </group>

   <!-- Groupe 2-->
   <group id="Groupe2" label="Chantiers" getVisible="SelectGroup">

      <!-- bouton 1 -->      
      <button id="btAjoutchantier" label="Ajouter un chantier" screentip="Ajouter un chantier."
          onAction="ajouter_un_chantier" 
          supertip="Utilisez ce bouton pour ajouter un nouveau chantier à la base de données." 
          size="large"
        imageMso="FileClose"/>

      <!-- bouton 2 -->    
      <button id="btEffacerchantier" label="Effacer un chantier" screentip="Effacer un chantier."
          onAction="effacer_un_chantier" size="large" 
          supertip="Utilisez ce bouton pour effacer un chantier à la base de données." 
          imageMso="CancelRequest"/>    
   </group>

   <!-- Groupe 3 -->      
   <group id="Groupe3" label="Sous-Traitants" getVisible="SelectGroup">    

      <!-- bouton 3 -->
      <button id="btAjoutst" label="Ajouter un sous-traitant" screentip="Ajouter un sous-traitant."
          onAction="ajout_sttraitants" 
          supertip="Utilisez ce bouton pour ajouter un nouveau sous-traitant à la base de données." 
          size="large" imageMso="GroupInvite"/>

      <!-- bouton 4 -->
      <button id="btAffiliation" label="Affiliation Chantier Sous-traitants" screentip="Affiliation Chantier Sous-traitants."
          onAction="affiliation_chantier_st" size="large" 
          supertip="Utilisez ce bouton pour lier un ou plusieurs sous-traitants à un chantier." 
          imageMso="MeetingsWorkspace"/>    

      <!-- bouton 5 -->
      <button id="btEvalst" label="Evaluer un sous-traitant" screentip="Evaluer un sous-traitant."
          onAction="evaluer_sttraitant" size="large" 
          supertip="Utilisez ce bouton pour saisir l'évaluation d'un sous-traitant." 
          imageMso="GroupDigitalSignaturesInfoPath"/>    

      <!-- bouton 6 -->    
    <button id="btModifierst" label="Modifier un sous-traitant" screentip="Editer la fiche renseignement d'un sous-traitant."
          onAction="modifier_st" size="large" 
          supertip="Utilisez ce bouton pour consulter ou modifier la fiche d'un ST." 
          imageMso="AccessTableContacts"/>

      <!-- bouton 7 -->    
    <button id="btEffacerst" label="Effacer un sous-traitant" screentip="Effacer un sous-traitant."
          onAction="effacer_sttraitant" size="large" 
          supertip="Utilisez ce bouton pour effacer un sous-traitant de la base de données." 
          imageMso="DistributionListRemoveMember"/>
   </group> 

   <!-- Groupe 4 -->      
   <group id="Groupe4" label="Offre" getVisible="SelectGroup">

      <!-- bouton 9 -->
      <button id="btPffre" label="Ajouter une offre" screentip="Ajouter une offre."
          onAction="ajout_une_offre" 
          supertip="Utilisez ce bouton pour ajouter une offre, rattaché à un chantier et à un sous-traitants." 
          size="large"
        imageMso="PwaDocumentLibrary"/>
   </group>

   <!-- Groupe 5 -->  
   <group id="Groupe5" label="Arborescense">

      <!-- bouton 8 -->
      <button id="btArborescence" label="Ouvrir Arborescence" screentip="Ouvrir Arborescence."
          onAction="arbo" 
          supertip="Utilisez ce bouton pour afficher l'arboresence." 
          size="large"
        imageMso="BulletsAndNumberingBulletsDialog"/>
   </group>

    <!-- Groupe 6 -->  
    <group id="Groupe6" label="Consultation" >

      <!-- bouton 10 -->
      <button id="btrenseignement" label="Renseignement sous-traitant" screentip="Renseignement sous-traitant."
          onAction="renseignement" 
          supertip="Utilisez ce bouton pour accèder aux différentes informations d'un sous-traitants (Fiche contact, Chantiers travaillés, feuilles d'évaluations)." 
          size="large"
        imageMso="EditBusinessCard"/>

      <!-- bouton 11 -->
      <button id="btouvrirfeuilleconsuloffre" label="Consulter les offres" screentip="Consulter les offres."
          onAction="feuille_offre" size="large" 
          supertip="Utilisez ce bouton pour accéder à la recherche avancée d'offres. Vous pourrez sélectionner différents filtres afin de consulter les offres correspondantes à vos critères." 
          imageMso="ExportTextFile" />

      <!-- bouton 12 -->
      <button id="btouvrirUFrechercheoffre" label="Rechercher les offres" screentip="Rechercher les offres."
          onAction="recherche_Uf_offre" size="large" 
          supertip="Utilisez ce bouton pour accéder à la recherche avancée d'offres. Vous pourrez sélectionner différents filtres afin de consulter les offres correspondantes à vos critères." 
          imageMso="FilterAdvancedByForm" />
  </group>

  <!-- Groupe 7 -->  
    <group id="Groupe7" label="Répertoire" >

      <!-- bouton 13 -->
      <button id="btrepertoire" label="Ouvrir le dossier Bible" screentip="Permet d'accéder au répetoire de l'outil."
          onAction="repertoire" 
          supertip="Utilisez ce bouton pour afficher le répertiore de cet outil." 
          size="large"
        imageMso="FileOpen" />
  </group>

  <!-- Groupe 8 -->  
  <group id="Groupe8" label="Aide" >

      <!-- bouton 14  -->
      <button id="btAide" label="Ouvrir l'aide" screentip="Ouvrir le guide d'utilisation de l'outil."
          onAction="aide" 
          supertip="Utilisez ce bouton pour afficher le guide utilisateur de l'outil." 
          size="large"
        imageMso="Info" />
  </group>

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

Voici celui écrit dans un module public sous VBA :

Option Explicit
Public ObjRuban As IRibbonUI
Public blnPort As Boolean

'Callback for customUI.onLoad
Sub ChargeRuban(ribbon As IRibbonUI)

' varaible objet pour utiliser le ruban
Set ObjRuban = ribbon

End Sub

'Callback for btdatagestion onAction
Sub TypeUtilisateurs(control As IRibbonControl, pressed As Boolean)

If control.ID = "btdatagestion" Then
    ActiveSheet.Select
Else
    ActiveSheet.Select
End If

'réaffiche le ruban
ObjRuban.Invalidate

End Sub

'Callback for btdatagestion getPressed MISE EN SURBRILLANCE DU BOUTON BASCULE SELECTIONNE 15 OU 16
Sub Activation(control As IRibbonControl, ByRef returnedVal)

'Je ne sais pas quelle propriété il faut saisir pour modifier la surbrillance du contrôle
'Voici la méthode

'If bouton 16 sélectionné alors
'    bouton 16. surbrillance = true
'    bouton 15. surbrillance = False
'Else                           'si le bouton 16 n'est pas sélectionné alors le bouton 15 l'est (caractère d'un togglebutton)
'    bouton 16. surbrillance = False
'    bouton 15. surbrillance = true
'End if

returnedVal = False
If control.ID = "Groupe2" Then
    returnedVal = True
End If
If control.ID = "Groupe3" Then
    returnedVal = True
End If
If control.ID = "Groupe4" Then
    returnedVal = True
End If

End Sub

'Callback for Groupe2 getVisible    MASQUE LES GROUPES SI BOUTON 15 SELECTIONNEE
Sub SelectGroup(control As IRibbonControl, ByRef returnedVal)

'écrire ici la procédure pour un mot de passe (à faire dans un deuxieme temps)

'Voici la méthode souhaité cocnernant l'affichage des controles (sans mot de passe dans un 1er temps

'If bouton 16 sélectionné alors         'on masque les groupes : GR2, GR3,GR4
'    GR2. visible = False
'    GR3. visible = False
'    GR4. visible = False
'Else
'    GR2. visible = True
'    GR3. visible = True
'    GR4. visible = True
'End if

returnedVal = True
If control.ID = "Groupe2" Then
    returnedVal = False
End If
If control.ID = "Groupe3" Then
    returnedVal = False
End If
If control.ID = "Groupe4" Then
    returnedVal = False
End If

End Sub

'Callback for btAjoutchantier onAction  BOUTON 1
Sub ajouter_un_chantier(control As IRibbonControl)
End Sub

'Callback for btEffacerchantier onAction    BOUTON 2
Sub effacer_un_chantier(control As IRibbonControl)
End Sub

'Callback for btAjoutst onAction    BOUTON 3
Sub ajout_sttraitants(control As IRibbonControl)
End Sub

'Callback for btAffiliation onAction    BOUTON 4
Sub affiliation_chantier_st(control As IRibbonControl)
End Sub

'Callback for btEvalst onAction    BOUTON 5
Sub evaluer_sttraitant(control As IRibbonControl)
End Sub

'Callback for btModifierst onAction    BOUTON 6
Sub modifier_st(control As IRibbonControl)
End Sub

'Callback for btEffacerst onAction    BOUTON 7
Sub effacer_sttraitant(control As IRibbonControl)
End Sub

'Callback for btPffre onAction    BOUTON 9
Sub ajout_une_offre(control As IRibbonControl)
End Sub

'Callback for btArborescence onAction    BOUTON 8
Sub arbo(control As IRibbonControl)
End Sub

'Callback for btrenseignement onAction    BOUTON 10
Sub renseignement(control As IRibbonControl)
End Sub

'Callback for btouvrirfeuilleconsuloffre onAction    BOUTON 11
Sub feuille_offre(control As IRibbonControl)
End Sub

'Callback for btouvrirUFrechercheoffre onAction    BOUTON 12
Sub recherche_Uf_offre(control As IRibbonControl)
End Sub

'Callback for btrepertoire onAction    BOUTON 13
Sub repertoire(control As IRibbonControl)
End Sub

'Callback for btAide onAction    BOUTON 14
Sub aide(control As IRibbonControl)
End Sub

Je suis perdu et n’arrive pas à savoir quelles propriétés changer afin d'arriver au résultat.

Si vous connaissez les propriétés de surbrillance, d'appeletion des contrôles et groupes et, "d'affichage/masquage de groupe", je suis tout ouïe !

Merci d'avance à ceux qui m'aideront !

Cordialement

Batoine

schema ruban
Le 27/05/2015 à 17:08

Bonjour,

Fournir le fichier SVP (une seule ligne de données devrait suffire)

A+

Le 27/05/2015 à 18:25

Bonjour,

J'ai mis un peu de temps à rendre le projet confidentiel et je rencontre un problème de poids du fichier. Mon fichier pèse 2340 Ko et dépasse les 300Ko que permet le module d'envoie de fichier d'Excel pratique.

Pouvez-vous me donner votre adresse mail, afin que je vous l'envoie par ce biais ?

Batoine.

Le 27/05/2015 à 18:57

Bonsoir,

Pour envoyer un mail cliquer sur l'enveloppe dans la partie droite du topic sous le nom de l'interlocuteur...

A+

Le 28/05/2015 à 09:23

Bonjour Batoine,

Si tu me le permets ... toutes mes Félicitations pour ton projet ...!!!

Le 28/05/2015 à 10:45

Bonjour James 007,

Merci beaucoup, ça fait plaisir. Je ne sais pas à partir de quoi vous me féliciter ?

Je ne connaissais pas l'existence de VBA il y a 6 mois. J'ai pu apprendre ce langage avec les cours de ce site et un bouquin. Ca a été long mais je vois enfin le bout de la conception de mon projet !

PS : @ Galopin01 : bonjour, je vous ai envoyé par mail le lien de téléchargement de mon fichier via wetransfer. (la taille maxi d'envoi de fichier dans la mail est de 200Ko)

Le 28/05/2015 à 13:56

Bonjour,

L'utilisation de ton projet étant pas facile, je me suis contenté de te faire une démo sur les toogleButton

Je suppose que ce que tu appelles surbrillance est la mise en évidence du bouton actif ?

Cette mise en surbrillance est le résultat du clic sur le bouton : Tu peux utiliser une variable pour que l'un soit "actif" quand l'autre non, mais cela ne me parait pas génial. A mon avis 2 toogleBoutons c'est pas top dans cette situation surtout si tu veux en plus greffer un Mot de passe... Mébon le fichier joint te donne une possibilité pour switcher entre l'un et l'autre...

A+

271testtoogleb.xlsm (14.24 Ko)
Le 28/05/2015 à 14:24
batoine a écrit :

Bonjour James 007,

Merci beaucoup, ça fait plaisir. Je ne sais pas à partir de quoi vous me féliciter ?

Je ne connaissais pas l'existence de VBA il y a 6 mois. J'ai pu apprendre ce langage avec les cours de ce site et un bouquin. Ca a été long mais je vois enfin le bout de la conception de mon projet !

Re,

Comme pour un iceberg ... quand on peut apercevoir la partie émergée ... on peut estimer la partie immergée ...!!!

Le 28/05/2015 à 17:16

Re galopin,Re James007,

@galopin01

Merci beaucoup, j'ai réussi à l'adapter à mon projet ! Ca fonctionne !

En revanche je n'arrive toujours pas à rendre visible, ou à cacher certains boutons. Je ne sais comment modifier la propriété visible du bouton. Avez-vous une idée de l'appel des boutons et de leurs propriétés à partir de VBA ?

@James007

Merci ça fait plaisir ! Belle métaphore au passage !

A+

Le 28/05/2015 à 17:27

RE,

Tu ne les modifieras pas directement à partir de VBA. A partir de VBA tu peux modifier une variable.

Ensuite se servir des callback pour lire les variables ad-hoc (en général des booléens) qui vont définir les propriétés.

A+

Le 29/05/2015 à 12:23

Bonjour à tous,

Merci galopin, je ne comprennais pas réellement le fonctionnement du ruban mais tout est plus simple après ton explication.

J'ai donc trouvé la solution en c=jouant avec l'état des boutons.

Voici le code Custom UI :

<customUI 
  xmlns="http://schemas.microsoft.com/office/2009/07/customui"
  onLoad="objRuban" >

  <!-- Masque le ruban Office -->
  <ribbon startFromScratch="false">

  <tabs>

   <!-- Création d'un onglet personnalisé -->
   <tab id="OngletPerso" label="Optimisation ST" >

      <!-- Groupe Sélection utiliasteur -->
      <group id="Groupe1" label="Type d'utilisateurs">

      <!-- Boutons Bascule -->
      <toggleButton id="btdatagestion" label="Gestion des données" 
           imageMso="ControlsGallery"           
           size="large"
         visible="true"
         onAction="typeutilisateurs"
           getPressed="Activation" />
      <toggleButton id="btConsultation" label="Consultation" 
           imageMso="ZoomPrintPreviewExcel" 
           size="large"
         visible="true"
         onAction="typeutilisateurs"
           getPressed="Activation"/>
   </group>

   <!-- Groupe 2-->
   <group id="Groupe2" label="Chantiers" getVisible="selectgroup">

      <!-- bouton 1 -->      
      <button id="btAjoutchantier" label="Ajouter un chantier" screentip="Ajouter un chantier."
          onAction="ajouter_un_chantier" 
          supertip="Utilisez ce bouton pour ajouter un nouveau chantier à la base de données." 
          size="large"
        imageMso="FileClose"/>

      <!-- bouton 2 -->    
      <button id="btEffacerchantier" label="Effacer un chantier" screentip="Effacer un chantier."
          onAction="effacer_un_chantier" size="large" 
          supertip="Utilisez ce bouton pour effacer un chantier à la base de données." 
          imageMso="CancelRequest"/>    
   </group>

   <!-- Groupe 3 -->      
   <group id="Groupe3" label="Sous-Traitants" getVisible="selectgroup">    

      <!-- bouton 3 -->
      <button id="btAjoutst" label="Ajouter un sous-traitant" screentip="Ajouter un sous-traitant."
          onAction="ajout_sttraitants" 
          supertip="Utilisez ce bouton pour ajouter un nouveau sous-traitant à la base de données." 
          size="large" imageMso="GroupInvite"/>

      <!-- bouton 4 -->
      <button id="btAffiliation" label="Affiliation Chantier Sous-traitants" screentip="Affiliation Chantier Sous-traitants."
          onAction="affiliation_chantier_st" size="large" 
          supertip="Utilisez ce bouton pour lier un ou plusieurs sous-traitants à un chantier." 
          imageMso="MeetingsWorkspace"/>    

      <!-- bouton 5 -->
      <button id="btEvalst" label="Evaluer un sous-traitant" screentip="Evaluer un sous-traitant."
          onAction="evaluer_sttraitant" size="large" 
          supertip="Utilisez ce bouton pour saisir l'évaluation d'un sous-traitant." 
          imageMso="GroupDigitalSignaturesInfoPath"/>    

      <!-- bouton 6 -->    
    <button id="btModifierst" label="Modifier un sous-traitant" screentip="Editer la fiche renseignement d'un sous-traitant."
          onAction="modifier_st" size="large" 
          supertip="Utilisez ce bouton pour consulter ou modifier la fiche d'un ST." 
          imageMso="AccessTableContacts"/>

      <!-- bouton 7 -->    
    <button id="btEffacerst" label="Effacer un sous-traitant" screentip="Effacer un sous-traitant."
          onAction="effacer_sttraitant" size="large" 
          supertip="Utilisez ce bouton pour effacer un sous-traitant de la base de données." 
          imageMso="DistributionListRemoveMember"/>
   </group> 

   <!-- Groupe 4 -->      
   <group id="Groupe4" label="Offre" getVisible="selectgroup">

      <!-- bouton 9 -->
      <button id="btPffre" label="Ajouter une offre" screentip="Ajouter une offre."
          onAction="ajout_une_offre" 
          supertip="Utilisez ce bouton pour ajouter une offre, rattaché à un chantier et à un sous-traitants." 
          size="large"
        imageMso="PwaDocumentLibrary"/>
   </group>

   <!-- Groupe 5 -->  
   <group id="Groupe5" label="Arborescense">

      <!-- bouton 8 -->
      <button id="btArborescence" label="Ouvrir Arborescence" screentip="Ouvrir Arborescence."
          onAction="arbo" 
          supertip="Utilisez ce bouton pour afficher l'arboresence." 
          size="large"
        imageMso="BulletsAndNumberingBulletsDialog"/>
   </group>

    <!-- Groupe 6 -->  
    <group id="Groupe6" label="Consultation" >

      <!-- bouton 10 -->
      <button id="btrenseignement" label="Renseignement sous-traitant" screentip="Renseignement sous-traitant."
          onAction="renseignement" 
          supertip="Utilisez ce bouton pour accèder aux différentes informations d'un sous-traitants (Fiche contact, Chantiers travaillés, feuilles d'évaluations)." 
          size="large"
        imageMso="EditBusinessCard"/>

      <!-- bouton 11 -->
      <button id="btouvrirfeuilleconsuloffre" label="Consulter les offres" screentip="Consulter les offres."
          onAction="feuille_offre" size="large" 
          supertip="Utilisez ce bouton pour accéder à la recherche avancée d'offres. Vous pourrez sélectionner différents filtres afin de consulter les offres correspondantes à vos critères." 
          imageMso="ExportTextFile" />

      <!-- bouton 12 -->
      <button id="btouvrirUFrechercheoffre" label="Rechercher les offres" screentip="Rechercher les offres."
          onAction="recherche_Uf_offre" size="large" 
          supertip="Utilisez ce bouton pour accéder à la recherche avancée d'offres. Vous pourrez sélectionner différents filtres afin de consulter les offres correspondantes à vos critères." 
          imageMso="FilterAdvancedByForm" />
  </group>

  <!-- Groupe 7 -->  
    <group id="Groupe7" label="Répertoire" >

      <!-- bouton 13 -->
      <button id="btrepertoire" label="Ouvrir le dossier Bible" screentip="Permet d'accéder au répetoire de l'outil."
          onAction="repertoire" 
          supertip="Utilisez ce bouton pour afficher le répertiore de cet outil." 
          size="large"
        imageMso="FileOpen" />
  </group>

  <!-- Groupe 8 -->  
  <group id="Groupe8" label="Aide" >

      <!-- bouton 14  -->
      <button id="btAide" label="Ouvrir l'aide" screentip="Ouvrir le guide d'utilisation de l'outil."
          onAction="aide" 
          supertip="Utilisez ce bouton pour afficher le guide utilisateur de l'outil." 
          size="large"
        imageMso="Info" />
  </group>

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

Voici le code VBA :

Option Explicit
Public RIB As IRibbonUI
Public disc As Boolean
Public gestion As Boolean
Public typeutilis
Public comptgestion As Long

'Callback for customUI.onLoad
Sub objRuban(ribbon As IRibbonUI)

' varaible objet pour utiliser le ruban
Set RIB = ribbon

End Sub

'Callback for btdatagestion onAction
Sub TypeUtilisateurs(control As IRibbonControl, pressed As Boolean)

disc = Not disc

'réaffiche le ruban
RIB.Invalidate

End Sub
'Callback for btdatagestion getPressed MISE EN SURBRILLANCE DU BOUTON BASCULE SELECTIONNE 15 OU 16
Sub Activation(control As IRibbonControl, ByRef returnedVal)

'If control.ID = "btdatagestion" Then
'    comptgestion = comptgestion + 1
'    If comptgestion > 1 Then
'        mdp_gestion_donnée.Show
'    End If
'    returnedVal = disc
'    typeutilis = Not gestion
'End If
'If control.ID = "btConsultation" Then
'    returnedVal = Not disc
'    typeutilis = gestion
'End If

'Fonctionne mais sans mot de passe
If control.ID = "btdatagestion" Then
    returnedVal = disc
    typeutilis = Not gestion
End If
If control.ID = "btConsultation" Then
    returnedVal = Not disc
    typeutilis = gestion
End If

End Sub

'Callback for Groupe2 getVisible    MASQUE LES GROUPES SI BOUTON 15 SELECTIONNEE
Sub SelectGroup(control As IRibbonControl, ByRef returnedVal)

Dim bouton_cliké, valeur_return

bouton_cliké = control.ID
valeur_return = returnedVal

If typeutilis = Not gestion Then
    returnedVal = True
    If control.ID = "Groupe2" Then
        returnedVal = False
    End If
    If control.ID = "Groupe3" Then
        returnedVal = False
    End If
    If control.ID = "Groupe4" Then
        returnedVal = False
    End If
ElseIf typeutilis = gestion Then
    returnedVal = False
    If control.ID = "Groupe2" Then
        returnedVal = True
    End If
    If control.ID = "Groupe3" Then
        returnedVal = True
    End If
    If control.ID = "Groupe4" Then
        returnedVal = True
    End If
End If

End Sub

'Callback for btAjoutchantier onAction  BOUTON 1
Sub ajouter_un_chantier(control As IRibbonControl)
End Sub

'Callback for btEffacerchantier onAction    BOUTON 2
Sub effacer_un_chantier(control As IRibbonControl)
End Sub

'Callback for btAjoutst onAction    BOUTON 3
Sub ajout_sttraitants(control As IRibbonControl)
End Sub

'Callback for btAffiliation onAction    BOUTON 4
Sub affiliation_chantier_st(control As IRibbonControl)
End Sub

'Callback for btEvalst onAction    BOUTON 5
Sub evaluer_sttraitant(control As IRibbonControl)
End Sub

'Callback for btModifierst onAction    BOUTON 6
Sub modifier_st(control As IRibbonControl)
End Sub

'Callback for btEffacerst onAction    BOUTON 7
Sub effacer_sttraitant(control As IRibbonControl)
End Sub

'Callback for btPffre onAction    BOUTON 9
Sub ajout_une_offre(control As IRibbonControl)
End Sub

'Callback for btArborescence onAction    BOUTON 8
Sub arbo(control As IRibbonControl)
End Sub

'Callback for btrenseignement onAction    BOUTON 10
Sub renseignement(control As IRibbonControl)
End Sub

'Callback for btouvrirfeuilleconsuloffre onAction    BOUTON 11
Sub feuille_offre(control As IRibbonControl)
End Sub

'Callback for btouvrirUFrechercheoffre onAction    BOUTON 12
Sub recherche_Uf_offre(control As IRibbonControl)
End Sub

'Callback for btrepertoire onAction    BOUTON 13
Sub repertoire(control As IRibbonControl)
End Sub

'Callback for btAide onAction    BOUTON 14
Sub aide(control As IRibbonControl)
End Sub

En espérant que cela serve aux prochains.

J'essaie désormais d'intégrer un mot de passe pour la fonction gestion de donnée. Mais c'est plus compliqué que ce que je pensais.

Je pense que je vais finalement me résoudre à enlever le togglebutton, par défaut afficher tous les groupes sauf les GR2, GR3, GR4 (et donc supprimer le bouton consultation). Puis si l'on clique sur le bouton gestion de donnée, un msgbox apparait avec une demande de saisi du mot de passe. Je pense pouvoir m'en sortir de cette manière.

Je vous tiendrais au courant.

A plus !

Batoine

Le 29/05/2015 à 12:26

Bonjour,

Très sympa de ta part de partager avec le Forum ... le gros gros boulot que tu as réalisé ... !!!

Rechercher des sujets similaires à "ruban personnalise affichage bouton condition remplis"