Comment faire en sorte que mes boutons personnalisés ajoutés au menu
n'apparaissent que sur le classeur actif et non à tous les classeurs
présentement ouverts ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
re,
utlises les evenements worbook_activate et worbook_deactivate du module thisworkbook.
A+
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
re,
utlises les evenements worbook_activate et worbook_deactivate du module
thisworkbook.
A+
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu
n'apparaissent que sur le classeur actif et non à tous les classeurs
présentement ouverts ?
utlises les evenements worbook_activate et worbook_deactivate du module thisworkbook.
A+
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
MichDenis
Bonjour Caroline,
2 façons de faire :
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site. Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul. et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$ Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
Bonjour Caroline,
2 façons de faire :
A )
Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta
barre d'outils
'-------------------
Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
'-------------------
End Sub
Private Sub Workbook_Deactivate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
End Sub
'-------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: eLh4e.27508$g_5.688604@wagner.videotron.net...
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu
n'apparaissent que sur le classeur actif et non à tous les classeurs
présentement ouverts ?
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site. Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul. et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$ Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
Caroline L.
Bonjour MichDenis,
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur classeur) : il faut changer le True par False dans le Private Sub Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer !!!
Dernière question : si je veux placer le classeur sur un autre ordinateur, est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie Caroline
"MichDenis" a écrit dans le message de news: OZ8#
Bonjour Caroline,
2 façons de faire :
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta
barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
Bonjour MichDenis,
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit
ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur
classeur) : il faut changer le True par False dans le Private Sub
Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer
!!!
Dernière question : si je veux placer le classeur sur un autre ordinateur,
est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OZ8#ilVOFHA.3156@TK2MSFTNGP15.phx.gbl...
Bonjour Caroline,
2 façons de faire :
A )
Tes boutons tu les crées par programmation et tu les places sur une barre
d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures
que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la
feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre
d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de
modifier le nom de la barre d'outils pour celui de ta
barre d'outils
'-------------------
Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
'-------------------
End Sub
Private Sub Workbook_Deactivate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
End Sub
'-------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
eLh4e.27508$g_5.688604@wagner.videotron.net...
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu
n'apparaissent que sur le classeur actif et non à tous les classeurs
présentement ouverts ?
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur classeur) : il faut changer le True par False dans le Private Sub Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer !!!
Dernière question : si je veux placer le classeur sur un autre ordinateur, est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie Caroline
"MichDenis" a écrit dans le message de news: OZ8#
Bonjour Caroline,
2 façons de faire :
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta
barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
MichDenis
Bonjour Caroline,
Si tu as attaché ta barre d'outils au fichier, elle le suivra comme n'importe quelle donnée saisie dans une feuille de calcul. La seule façon de l'enlever ou de la modifier, est de faire la procédure inverse de celle que tu as utilisée pour la créer.
Salutations!
"Caroline L." a écrit dans le message de news: Nxi4e.28160$ Bonjour MichDenis,
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur classeur) : il faut changer le True par False dans le Private Sub Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer !!!
Dernière question : si je veux placer le classeur sur un autre ordinateur, est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie Caroline
"MichDenis" a écrit dans le message de news: OZ8#
Bonjour Caroline,
2 façons de faire :
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta
barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
encore merci pour toute l'aide apportée :-))))
Caroline
Bonjour Caroline,
Si tu as attaché ta barre d'outils au fichier, elle le suivra comme n'importe quelle donnée saisie dans une feuille de calcul. La
seule façon de l'enlever ou de la modifier, est de faire la procédure inverse de celle que tu as utilisée pour la créer.
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: Nxi4e.28160$g_5.723295@wagner.videotron.net...
Bonjour MichDenis,
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit
ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur
classeur) : il faut changer le True par False dans le Private Sub
Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer
!!!
Dernière question : si je veux placer le classeur sur un autre ordinateur,
est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie
Caroline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OZ8#ilVOFHA.3156@TK2MSFTNGP15.phx.gbl...
Bonjour Caroline,
2 façons de faire :
A )
Tes boutons tu les crées par programmation et tu les places sur une barre
d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures
que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la
feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre
d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de
modifier le nom de la barre d'outils pour celui de ta
barre d'outils
'-------------------
Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
'-------------------
End Sub
Private Sub Workbook_Deactivate()
With Application.CommandBars("Mabarre")
.Visible = True
.Protection = msoBarNoCustomize
End With
End Sub
'-------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
eLh4e.27508$g_5.688604@wagner.videotron.net...
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu
n'apparaissent que sur le classeur actif et non à tous les classeurs
présentement ouverts ?
Si tu as attaché ta barre d'outils au fichier, elle le suivra comme n'importe quelle donnée saisie dans une feuille de calcul. La seule façon de l'enlever ou de la modifier, est de faire la procédure inverse de celle que tu as utilisée pour la créer.
Salutations!
"Caroline L." a écrit dans le message de news: Nxi4e.28160$ Bonjour MichDenis,
J'ai opté pour ta façon # 2. Génial ! tout est beau. Juste un petit ajustement (pour ceux et celles qui aimeraient appliquer le cas à leur classeur) : il faut changer le True par False dans le Private Sub Workbook_Deactivate()... je m'étonne moi-même ! le métier commence à entrer !!!
Dernière question : si je veux placer le classeur sur un autre ordinateur, est-ce que je dois créer de nouveau ma barre d'outils ?
Merci encore MichDenis, tu m'aides beaucoup et j'apprécie Caroline
"MichDenis" a écrit dans le message de news: OZ8#
Bonjour Caroline,
2 façons de faire :
A ) Tes boutons tu les crées par programmation et tu les places sur une barre d'outils personnalisé.
pour savoir comment faire, Frédéric Sigonneau a écrit de bonnes procédures que tu peux consulter sur son site.
Son adresse doit être sur le site de Misange.
B ) Tu crées une barre d'outils personnalisée via l'interface de la feuille de calcul.
et à partir de la fenêtre "personnaliser" tu attaches ta barre d'outils à ton classeur.
et tu insères ceci dans le ThisWorkbook de ton classeur en prenant soin de modifier le nom de la barre d'outils pour celui de ta
barre d'outils '------------------- Private Sub Workbook_Activate()
With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With '-------------------
End Sub
Private Sub Workbook_Deactivate() With Application.CommandBars("Mabarre") .Visible = True .Protection = msoBarNoCustomize End With End Sub '-------------------
Salutations!
"Caroline L." a écrit dans le message de news: eLh4e.27508$
Encore moi !
Comment faire en sorte que mes boutons personnalisés ajoutés au menu n'apparaissent que sur le classeur actif et non à tous les classeurs présentement ouverts ?
