Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

bouton de barreperso (in)actif selon onglet sélectionné

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rastafouette

XLDnaute Occasionnel
Bonjour,

Tout est presque dans le titre.

J'ai donc une barre perso avec des controlpopup et des controlbutton (d'ailleurs en partie issue de qqun d'ici, mais je ne sais plus uqi).
Et je voudrais à peu près ceci :
- le controlpopup "A" visible et actif qque soit l'onglet selectionné
- le controlpopup "B" visible et actif quand l'onglet "Original" est sélectionné (mais visible et inactif quand un autre onglet est selectionné)
- le controlbutton "C" visible et actif quand l'onglet "Charges" est sélectionné (mais visible et inactif quand un autre onglet est selectionné)
- sur les onglets "projet1" "projet2" etc, seulement les boutons A et D actifs

Mais je cale, alors je fais appel à vous...

Merci d'avacne bcp !
 
Re : bouton de barreperso (in)actif selon onglet sélectionné

Bonjour


En utilisant la procédure
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
a = Sh.Name
End Sub
En fonction de la valeur a on affiche une Barre d'outils.

JP
 
Re : bouton de barreperso (in)actif selon onglet sélectionné

Bonjour tous

Merci JP

J'ai donc mis :
exemple :
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If ActiveSheet.Name = "Original" Then
        Application.CommandBars("Ma barre d'outils perso").Controls("Supprimer").Enabled = False
    Else
        Application.CommandBars("Ma barre d'outils perso").Controls("Supprimer").Enabled = True
    End If
End Sub

J'ai une petite question en plus :

Sachant que ma barre supprimer est un controlpopup, comment puis-je uniquement rendre disabled un des boutons qui découle de celui-ci ?? (j'ai essayé les autres caption et ça bug)
 
Re : bouton de barreperso (in)actif selon onglet sélectionné

Re,

J'ai trouvé 😛, j'avais pas cherché assez... 😉 (Pas bien réveillée ce matin)

Code:
   If ActiveSheet.Name = "Original" Then
        Application.CommandBars("Ma barre d'outils perso").Controls("Projet Théorique").Controls("Modifier Projet Théorique").Enabled = False
    Else
        Application.CommandBars("Ma barre d'outils perso").Controls("Projet Théorique").Controls("Modifier Projet Théorique").Enabled = True
    End If

Merci !
Et bonne journée à tous !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
Réponses
6
Affichages
1 K
P
R
Réponses
8
Affichages
1 K
R
A
Réponses
0
Affichages
1 K
Abominatutor
A
N
Réponses
2
Affichages
1 K
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…