Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Menu Édition perdu ??

Menu Édition perdu ??

5 réponses
Avatar
Caroline L.
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour désactiver/activer des
menus ou commandes. Lorsque je place le code tout se passe comme prévu. Mais
lorsque je supprime le code parce que je n'ai plus besoin de cette macro, on
dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition par
exemple. Pourtout je supprime tout le code (CollControls(I).Enabled = False
et le True). Se peut-il qu'Excel stock mes demandes dans la bibliothèque ?
S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous m'indique
comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu Édition
mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:=30003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:=30003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonsoir Caroline,
Oui car lorsque tu le supprime
le classeur est actif
or c'est qd tu désactive le classeur que la macro remet le menu .
Mais tu viens de la sucrer.

lSteph

"Caroline L." a écrit dans le message de news:
j8k3e.53014$
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour désactiver/activer
des
menus ou commandes. Lorsque je place le code tout se passe comme prévu.
Mais
lorsque je supprime le code parce que je n'ai plus besoin de cette macro,
on
dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition par
exemple. Pourtout je supprime tout le code (CollControls(I).Enabled =
False
et le True). Se peut-il qu'Excel stock mes demandes dans la bibliothèque ?
S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous m'indique
comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu
Édition
mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline




Avatar
Caroline L.
Je profite de l'occasion pour demander si on peut inscrire plus d'une ligne
dans cette procédure, c'est-à-dire désactiver par exemple le menu Édition et
le bouton Copier de la façon suivante :
Set CollControls = Application.CommandBars.FindControls(ID:0003)
Set CollControls = Application.CommandBars.FindControls(ID:)



"Caroline L." a écrit dans le message de news:
j8k3e.53014$
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour désactiver/activer
des

menus ou commandes. Lorsque je place le code tout se passe comme prévu.
Mais

lorsque je supprime le code parce que je n'ai plus besoin de cette macro,
on

dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition par
exemple. Pourtout je supprime tout le code (CollControls(I).Enabled False
et le True). Se peut-il qu'Excel stock mes demandes dans la bibliothèque ?
S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous m'indique
comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu
Édition

mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline




Avatar
LSteph
non pas ainsi
car tu redéfinis une seconde fois ta variable objet collcontrols
"Caroline L." a écrit dans le message de news:
nyk3e.53440$
Je profite de l'occasion pour demander si on peut inscrire plus d'une
ligne
dans cette procédure, c'est-à-dire désactiver par exemple le menu Édition
et
le bouton Copier de la façon suivante :
Set CollControls = Application.CommandBars.FindControls(ID:0003)
Set CollControls = Application.CommandBars.FindControls(ID:)



"Caroline L." a écrit dans le message de news:
j8k3e.53014$
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour désactiver/activer
des

menus ou commandes. Lorsque je place le code tout se passe comme prévu.
Mais

lorsque je supprime le code parce que je n'ai plus besoin de cette macro,
on

dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition
par
exemple. Pourtout je supprime tout le code (CollControls(I).Enabled > False
et le True). Se peut-il qu'Excel stock mes demandes dans la bibliothèque
?
S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous
m'indique
comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu
Édition

mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline








Avatar
Caroline L.
Bonjour LSteph,

je viens de la sucrer ???
oui d'accord, j'ai replacé le code mais lorsque je ferme le classeur
concerné, les autres classeurs ouverts n'ont toujours pas retrouvé le menu
Édition.
Tu me diras si je comprends bien le principe : lorsque je place ce genre de
procédure, je suis foutu, je ne peux plus la "supprimer".
Je crois que j'ai fait des tests sur d'autres classeurs, je dois donc
remettre le code dans les autres classeurs tests ? Et si j'ai supprimer les
classeurs ? Ouf....... à l'aide


"LSteph" a écrit dans le message de news:
#
Bonsoir Caroline,
Oui car lorsque tu le supprime
le classeur est actif
or c'est qd tu désactive le classeur que la macro remet le menu .
Mais tu viens de la sucrer.

lSteph

"Caroline L." a écrit dans le message de news:
j8k3e.53014$
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour désactiver/activer
des
menus ou commandes. Lorsque je place le code tout se passe comme prévu.
Mais
lorsque je supprime le code parce que je n'ai plus besoin de cette
macro,


on
dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition
par


exemple. Pourtout je supprime tout le code (CollControls(I).Enabled > > False
et le True). Se peut-il qu'Excel stock mes demandes dans la bibliothèque
?


S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous
m'indique


comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu
Édition
mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline








Avatar
Caroline L.
Comment faire alors ?
en plus, je l'ai fait... quel est l'impact ?

"LSteph" a écrit dans le message de news:
u8L$
non pas ainsi
car tu redéfinis une seconde fois ta variable objet collcontrols
"Caroline L." a écrit dans le message de news:
nyk3e.53440$
Je profite de l'occasion pour demander si on peut inscrire plus d'une
ligne
dans cette procédure, c'est-à-dire désactiver par exemple le menu
Édition


et
le bouton Copier de la façon suivante :
Set CollControls = Application.CommandBars.FindControls(ID:0003)
Set CollControls = Application.CommandBars.FindControls(ID:)



"Caroline L." a écrit dans le message de news:
j8k3e.53014$
Bonjour,

J'ai un problème récurent. J'ai placé des macros pour
désactiver/activer



des
menus ou commandes. Lorsque je place le code tout se passe comme prévu.
Mais

lorsque je supprime le code parce que je n'ai plus besoin de cette
macro,



on
dirait qu'Excel garde en mémoire le fait de désactiver le menu Édition
par
exemple. Pourtout je supprime tout le code (CollControls(I).Enabled > > False
et le True). Se peut-il qu'Excel stock mes demandes dans la
bibliothèque



?
S'il s'agit d'un truc comme ça, j'aimerais que l'un d'entre vous
m'indique
comment faire pour effacer complètement ce que j'ai fait.
De plus, la macro que j'ai insérer permettait de désactiver le menu
Édition

mais seulement dans le classeur actif (pas dans les autres classeurs
ouverts).
Voici la macro que j'ai utilisé dans le ThisWorkook

Private Sub Workbook_Activate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = False

Next

End Sub


Private Sub Workbook_Deactivate()

Set CollControls = Application.CommandBars.FindControls(ID:0003)

For I = 1 To CollControls.Count
CollControls(I).Enabled = True

Next

End Sub

Merci !
Caroline