Re,
Si je promets de bien lire la réponses, je peux poser une autre question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Re,
Si je promets de bien lire la réponses, je peux poser une autre question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Re,
Si je promets de bien lire la réponses, je peux poser une autre question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
%23pH75Lr4EHA.2876@TK2MSFTNGP12.phx.gbl...
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
%23pH75Lr4EHA.2876@TK2MSFTNGP12.phx.gbl...
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Est-ce que tu as pris quelques instants pour lire la procédure
J'ai bien pris le temps de tout lire et il me semble avoir compris.
....Dans la procédure, j'ai supposé que c'était la barre d'outils
"Standard"...
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" a écrit dans le message de news:
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" a écrit dans le message news:Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Est-ce que tu as pris quelques instants pour lire la procédure
J'ai bien pris le temps de tout lire et il me semble avoir compris.
....Dans la procédure, j'ai supposé que c'était la barre d'outils
"Standard"...
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
uwDSWF14EHA.3644@tk2msftngp13.phx.gbl...
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
uqxXinr4EHA.3644@tk2msftngp13.phx.gbl...
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
%23pH75Lr4EHA.2876@TK2MSFTNGP12.phx.gbl...
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Est-ce que tu as pris quelques instants pour lire la procédure
J'ai bien pris le temps de tout lire et il me semble avoir compris.
....Dans la procédure, j'ai supposé que c'était la barre d'outils
"Standard"...
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" a écrit dans le message de news:
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" a écrit dans le message news:Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" a écrit dans le message de news:
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" a écrit dans le message news:Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
uwDSWF14EHA.3644@tk2msftngp13.phx.gbl...
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
uqxXinr4EHA.3644@tk2msftngp13.phx.gbl...
Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci
:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" <Angela@nospam.fr> a écrit dans le message de news:
%23pH75Lr4EHA.2876@TK2MSFTNGP12.phx.gbl...
Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????
Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.
(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
Bonjour Angela,
Est-ce que tu as pris quelques instants pour lire la procédure. J'y ai mis
des commentaires qui avaient pour but de te
permettre de comprendre ce qu'il fallait adapter selon les boutons de
commandes que tu as ajoutés à ton application.
Comme je n'ai pas ton application sous les yeux, je ne peux pas savoir
quelle est la barre d'outils que tu as utilisée
pour ajouter tes boutons de commande ....Dans la procédure, j'ai supposé
que c'était la barre d'outils "Standard"... si
tu en as choisi une autre, il faudra remplacer "Standard" dans la
procédure par celle que tu as choisie.
IL est d'usage courant d'attribuer à la propriété "Caption" (le texte
visible sur les commandes du menu ou sur les
boutons de commande) une chaîne de caractère (nom de la commande). Encore
une fois, dans mon exemple, j'ai utilisé
"Enregistrer" et "ouvrir" ... que tu devras remplacer par les "noms" dont
tu as affublé tes boutons ... il se peut que
tu n'aies pas défini cette propriété à leur création ! Comment puis-je
savoir ? Tu n'as pas décrite la procédure que tu
as utilisée ... ni publiée !
Salutations!
'------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'------------------------------------------
"Angela" a écrit dans le message de news:
bonjour,
j'ai copier les macro dans les modules que tu m'as indiqué mais rien ne se
passe???
Qu'est ce que j'ai mal fais???
- Les 2 premières, je les ai copié tel que dans la feuille concernée,
- La 3e je l'ai copie dans "module 1" la ou figure toutes mes autres
macro.
Dans cette macro j'ai remplacé "enregistrer" et "ouvrir" par les nom de
mon
bouton (et non pas le nom de la macro auquel il est rattaché).
Voila tout ce que j'ai fais et ça ne marche pas...
Merci encore
Angéla
"michdenis" a écrit dans le message news:Bonjour Angela,
Dans le module feuille où tu veux voir afficher tes contrôles ou non
selon
que la feuille est active ou non, copie ceci:
'--------------------------
Private Sub Worksheet_Activate()
AfficherControls True
End Sub
'--------------------------
Private Sub Worksheet_Deactivate()
AfficherControls
End Sub
'--------------------------
Et dans un module standard, tu copie ceci :
'--------------------------------------------------
Sub AfficherControls(Optional ByVal Res As Boolean)
Dim CBar As CommandBar
Dim Arr()
'tu insères la liste les "Caption" que tu as donné lors de leur création
'à tes boutons de commandes que tu veux masquer.
Arr = Array("Enregistrer", "Ouvrir") ' à déterminer
'Remplace Standard par le nom de la barre d'outils
'où tu as ajouté tes boutons
Set CBar = Application.CommandBars("Standard")
For Each elt In Arr
CBar.Controls(elt).Visible = Res
Next
Set CBar = Nothing
End Sub
'--------------------------------------------------
Salutations!
"Angela" a écrit dans le message de news:
%Re,
Si je promets de bien lire la réponses, je peux poser une autre
question????Je voudrais ajouter des boutons qui lancent des macro dans ma barre
d'outil.(Ca je sais faire). Par contre ce que je voudrais c'est ne voir ces
bouton
que sur cette feuille et pas une autre et là je ne sais pas si c'es
Possible??? Et si oui comment il faut faire?
Merci d'avance.
Angéla
