mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le message
denews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uD4syxHRFHA.3156@TK2MSFTNGP15.phx.gbl...
je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
OTOqchGRFHA.2356@TK2MSFTNGP14.phx.gbl...
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:1df101c54464$5eafe010$a401280a@phx.gbl...
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc
-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de
les remettre à True à la fermeture du classeur en
question
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01b801c54460$ecc6fc20$a601280a@phx.gbl...
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par True
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:06b101c5445b$20829a70$a501280a@phx.gbl...
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le message
denews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
message
denews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
%23ABTR%23JRFHA.3288@TK2MSFTNGP14.phx.gbl...
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uD4syxHRFHA.3156@TK2MSFTNGP15.phx.gbl...
je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
OTOqchGRFHA.2356@TK2MSFTNGP14.phx.gbl...
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:1df101c54464$5eafe010$a401280a@phx.gbl...
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc
-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de
les remettre à True à la fermeture du classeur en
question
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01b801c54460$ecc6fc20$a601280a@phx.gbl...
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par True
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:06b101c5445b$20829a70$a501280a@phx.gbl...
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
message
denews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
ben, je ne comprends plus rien car, à part le On Error Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
nefonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
ben, je ne comprends plus rien car, à part le On Error Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uCac6XLRFHA.1476@TK2MSFTNGP09.phx.gbl...
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
%23ABTR%23JRFHA.3288@TK2MSFTNGP14.phx.gbl...
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uD4syxHRFHA.3156@TK2MSFTNGP15.phx.gbl...
je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
OTOqchGRFHA.2356@TK2MSFTNGP14.phx.gbl...
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:1df101c54464$5eafe010$a401280a@phx.gbl...
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc
-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de
les remettre à True à la fermeture du classeur en
question
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01b801c54460$ecc6fc20$a601280a@phx.gbl...
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par True
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:06b101c5445b$20829a70$a501280a@phx.gbl...
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
ben, je ne comprends plus rien car, à part le On Error Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc
nefonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les menus "Masquer" sont
déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" a écrit dans le message de news:ben, je ne comprends plus rien car, à part le On Error Resume Next,
c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit,
hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste
:
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans
les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette
proc
nefonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate;
pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire
appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les menus "Masquer" sont
déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
ucdZxxLRFHA.996@TK2MSFTNGP09.phx.gbl...
ben, je ne comprends plus rien car, à part le On Error Resume Next,
c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit,
hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste
:
la macro de marco)
jps (ébaubi)
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uCac6XLRFHA.1476@TK2MSFTNGP09.phx.gbl...
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
%23ABTR%23JRFHA.3288@TK2MSFTNGP14.phx.gbl...
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans
les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette
proc
ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate;
pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:uD4syxHRFHA.3156@TK2MSFTNGP15.phx.gbl...
je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
OTOqchGRFHA.2356@TK2MSFTNGP14.phx.gbl...
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire
appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:1df101c54464$5eafe010$a401280a@phx.gbl...
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc
-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de
les remettre à True à la fermeture du classeur en
question
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01b801c54460$ecc6fc20$a601280a@phx.gbl...
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par True
jps
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:06b101c5445b$20829a70$a501280a@phx.gbl...
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les menus "Masquer" sont
déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" a écrit dans le message de news:ben, je ne comprends plus rien car, à part le On Error Resume Next,
c'est
exactement ce qu'avait fait marco sur mes judicieux (faut bien que je me
flatte car si j'attends les scudeurs...) conseils, enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais dans l'esprit,
hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait marcher la macro de
marco (tiens! un bon exercice pour éviter une visite chez l'orthodigiste
:
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("row").Controls("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de news:
%23ABTR%mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans
les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette
proc
nefonctionne pas dans le Workbook Open alors que, au vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement Activate;
pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps
"ChrisV" a écrit dans le message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de news:en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire
appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38" a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu remplaces
False par Truejps
"Marco38" a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
-----Message d'origine-----ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les
menus "Masquer" sont déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" a écrit dans le message de news:ben, je ne comprends plus rien car, à part le On Error
Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux
(faut bien que je me
flatte car si j'attends les scudeurs...) conseils,
enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais
dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait
marcher la macro de
marco (tiens! un bon exercice pour éviter une visite
chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message
de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls
("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled =
True
End With
Application.CommandBars("row").Controls
("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de
news:
%23ABTR%mouais, ça y est, chris, et merci pour ta
perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je
veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas
pourquoi cette proc
nefonctionne pas dans le Workbook Open alors que, au
vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement
Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une
mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé,
chris?
jps
"ChrisV" a écrit dans le
message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de
news:
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même
si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le
Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il
nous faut faire appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38"
a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As
Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la
possiblité de
masquer les lignes avec la souris ou dans le
menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du
classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38"
a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met
cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu
remplaces
False par Truejps
"Marco38"
a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser
uniquement les
boutons "Grouper" et dissocier", car je ne veux
pas que
la personne utilise le "masquer" des lignes
avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
.
-----Message d'origine-----
ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les
menus "Masquer" sont déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de news:
ucdZxxLRFHA.996@TK2MSFTNGP09.phx.gbl...
ben, je ne comprends plus rien car, à part le On Error
Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux
(faut bien que je me
flatte car si j'attends les scudeurs...) conseils,
enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais
dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait
marcher la macro de
marco (tiens! un bon exercice pour éviter une visite
chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message
de
news:uCac6XLRFHA.1476@TK2MSFTNGP09.phx.gbl...
Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls
("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled =
True
End With
Application.CommandBars("row").Controls
("&Masquer").Enabled = True
End Sub
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de
news:
%23ABTR%23JRFHA.3288@TK2MSFTNGP14.phx.gbl...
mouais, ça y est, chris, et merci pour ta
perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je
veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas
pourquoi cette proc
ne
fonctionne pas dans le Workbook Open alors que, au
vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement
Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une
mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé,
chris?
jps
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le
message de
news:uD4syxHRFHA.3156@TK2MSFTNGP15.phx.gbl...
je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" <pensez@liege.be> a écrit dans le message de
news:
OTOqchGRFHA.2356@TK2MSFTNGP14.phx.gbl...
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même
si on écrit la
macro
dans
un module et qu'on l'appelle (la macro) dans le
Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il
nous faut faire appel
aux
cracks qui ont l'air tous en goguette ce soir...
jps
"Marco38" <anonymous@discussions.microsoft.com>
a écrit dans le
message
de
news:1df101c54464$5eafe010$a401280a@phx.gbl...
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As
Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la
possiblité de
masquer les lignes avec la souris ou dans le
menu format
lignes masquer?
Marc
-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du
classeur
mais n'oublie pas de
les remettre à True à la fermeture du classeur en
question
jps
"Marco38" <anonymous@discussions.microsoft.com>
a écrit
dans le message de
news:01b801c54460$ecc6fc20$a601280a@phx.gbl...
Bonsoir,
Merci jps pour ta réponse, il faut que je met
cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu
remplaces
False par True
jps
"Marco38" <anonymous@discussions.microsoft.com>
a écrit
dans le message de
news:06b101c5445b$20829a70$a501280a@phx.gbl...
Bonsoir,
Comment obliger un utilisateur à utiliser
uniquement les
boutons "Grouper" et dissocier", car je ne veux
pas que
la personne utilise le "masquer" des lignes
avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
.
-----Message d'origine-----ce n'est quand même pas le On Error machin...
Non, la gestion d'erreur "n'est utile" que si les
menus "Masquer" sont déjà
absents au moment de l'exécution de la proc.
Peut être les 2 points (..) de: ..Controls("Colonne")
dans ta proc initiale...
ou l'heure tardive... ;-)
ChrisV
"jps" a écrit dans le message de news:ben, je ne comprends plus rien car, à part le On Error
Resume Next, c'est
exactement ce qu'avait fait marco sur mes judicieux
(faut bien que je me
flatte car si j'attends les scudeurs...) conseils,
enfin sauf que je lui
faisais masquer les colonnes au lieu des lignes mais
dans l'esprit, hein,
dans l'esprit....
ce n'est quand même pas le On Error machin qui fait
marcher la macro de
marco (tiens! un bon exercice pour éviter une visite
chez l'orthodigiste :
la macro de marco)
jps (ébaubi)
"ChrisV" a écrit dans le message
de
news:Et là...?
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled = False
End With
Application.CommandBars("row").Controls
("Masquer").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application.CommandBars(1).Controls(5)
.Controls("Ligne").Controls("Masquer").Enabled =
True
End With
Application.CommandBars("row").Controls
("&Masquer").Enabled = True
End Sub
ChrisV
"jps" a écrit dans le message de
news:
%23ABTR%mouais, ça y est, chris, et merci pour ta
perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je
veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas
pourquoi cette proc
nefonctionne pas dans le Workbook Open alors que, au
vu de ta réponse à
marco
dans le post suivant, elle marche avec l'évènement
Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une
mésange dans le
brouillard
qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé,
chris?
jps
"ChrisV" a écrit dans le
message de
news:je pensais que ça allait marcher...
Regarde bien le contrôle que tu inhibes JP...With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
et regardes bien l'objet du post...
ça y est ? ;-)
ChrisV
"jps" a écrit dans le message de
news:
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même
si on écrit la
macro
dansun module et qu'on l'appelle (la macro) dans le
Workbook Open, ça
ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il
nous faut faire appel
auxcracks qui ont l'air tous en goguette ce soir...
jps
"Marco38"
a écrit dans le
messagedenews:1df101c54464$5eafe010$
Re-bonsoir jps
j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As
Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= True
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled
= False
End With
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub
Cela ne fonctionne pas j'ai toujours la
possiblité de
masquer les lignes avec la souris ou dans le
menu format
lignes masquer?
Marc-----Message d'origine-----
rebonjour marco,
pour l autre bouton :
With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls
("Masquer").Enabled = False
End With
tu peux mettre ces procédures à l'ouverture du
classeur
mais n'oublie pas deles remettre à True à la fermeture du classeur en
questionjps
"Marco38"
a écrit
dans le message denews:01b801c54460$ecc6fc20$
Bonsoir,
Merci jps pour ta réponse, il faut que je met
cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.
Marc-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris
Application.CommandBars("column").Controls
("&Masquer").Enabled = False
pour remettre l'utilisation du bouton, tu
remplaces
False par Truejps
"Marco38"
a écrit
dans le message denews:06b101c5445b$20829a70$
Bonsoir,
Comment obliger un utilisateur à utiliser
uniquement les
boutons "Grouper" et dissocier", car je ne veux
pas que
la personne utilise le "masquer" des lignes
avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".
Merci
Marc
.
.
.
