Jusqu'=E0 aujourd'hui, je pouvais d=E9sactiver un menu de Excel ou item en
utilisant :
CommandBars( 1 ).Controls( 6 ).Enabled =3D False ou
.CommandBars("Ply").Controls("&Supprimer").Enabled =3D False
Tout =E7a allait tr=E8s bien avec mon Excel XP. en fran=E7ais !
Maintenant je dois mixer 97, XP, 2007 et 2010 en fran=E7ais / anglais.
Quelqu'un a-t-il une petite id=E9e de l'endroit o=F9 je pourrais trouver
une liste des barres de menus / items p(et leur identifiant unique)
our ces diff=E9rentes versions et langues ??
bonjour thierry labès? voici, rédigé il y a fort longtemps pas notre ange actuel et préféré :
Sub ListeCommandBar() Dim Mbar As CommandBar For Each Mbar In Application.CommandBars x = x + 1 Range("A" & X) = Mbar.Name Range("b" & X) = Mbar.ID On Error Resume Next Nb = Mbar.Controls.Count For a = 1 To Nb Cells(x, a + 2) = Mbar.Controls(a).Caption Next Next End Sub
pour avoir les ID de chacun, tu doit remplacer Cells(x, a + 2) = Mbar.Controls(a).caption par Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu'à XP sans problème, je pense pour au-delà, d'autres que moi vont pouvoir te le dire HTH Mgr T. P. (de retour des matines)
"ThierryP" a écrit dans le message de news:
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en utilisant : CommandBars( 1 ).Controls( 6 ).Enabled = False ou .CommandBars("Ply").Controls("&Supprimer").Enabled = False Tout ça allait très bien avec mon Excel XP. en français ! Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais. Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver une liste des barres de menus / items p(et leur identifiant unique) our ces différentes versions et langues ??
Merci d'avance !
ThierryP
bonjour thierry
labès?
voici, rédigé il y a fort longtemps pas notre ange actuel et préféré :
Sub ListeCommandBar()
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
x = x + 1
Range("A" & X) = Mbar.Name
Range("b" & X) = Mbar.ID
On Error Resume Next
Nb = Mbar.Controls.Count
For a = 1 To Nb
Cells(x, a + 2) = Mbar.Controls(a).Caption
Next
Next
End Sub
pour avoir les ID de chacun, tu doit remplacer
Cells(x, a + 2) = Mbar.Controls(a).caption
par
Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu'à XP sans problème, je pense
pour au-delà, d'autres que moi vont pouvoir te le dire
HTH
Mgr T. P. (de retour des matines)
"ThierryP" <petithory.thierry@gmail.com> a écrit dans le message de news:
a170098f-2114-4673-a000-805b18d68729@f2g2000yqf.googlegroups.com...
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en
utilisant :
CommandBars( 1 ).Controls( 6 ).Enabled = False ou
.CommandBars("Ply").Controls("&Supprimer").Enabled = False
Tout ça allait très bien avec mon Excel XP. en français !
Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais.
Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver
une liste des barres de menus / items p(et leur identifiant unique)
our ces différentes versions et langues ??
bonjour thierry labès? voici, rédigé il y a fort longtemps pas notre ange actuel et préféré :
Sub ListeCommandBar() Dim Mbar As CommandBar For Each Mbar In Application.CommandBars x = x + 1 Range("A" & X) = Mbar.Name Range("b" & X) = Mbar.ID On Error Resume Next Nb = Mbar.Controls.Count For a = 1 To Nb Cells(x, a + 2) = Mbar.Controls(a).Caption Next Next End Sub
pour avoir les ID de chacun, tu doit remplacer Cells(x, a + 2) = Mbar.Controls(a).caption par Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu'à XP sans problème, je pense pour au-delà, d'autres que moi vont pouvoir te le dire HTH Mgr T. P. (de retour des matines)
"ThierryP" a écrit dans le message de news:
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en utilisant : CommandBars( 1 ).Controls( 6 ).Enabled = False ou .CommandBars("Ply").Controls("&Supprimer").Enabled = False Tout ça allait très bien avec mon Excel XP. en français ! Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais. Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver une liste des barres de menus / items p(et leur identifiant unique) our ces différentes versions et langues ??
Merci d'avance !
ThierryP
ThierryP
Labes chouia,
Monseigneur est trop bon ! Je vois que le vin de messe n'a pas entamé vos capacités mémorielles !!
Je vais tester sur un 2010 qui traîne.
Thierry
On 6 avr, 10:41, "Mgr T. Plubanni" wrote:
bonjour thierry lab s? voici, r dig il y a fort longtemps pas notre ange actuel et pr f r :
Sub ListeCommandBar() Dim Mbar As CommandBar For Each Mbar In Application.CommandBars x = x + 1 Range("A" & X) = Mbar.Name Range("b" & X) = Mbar.ID On Error Resume Next Nb = Mbar.Controls.Count For a = 1 To Nb Cells(x, a + 2) = Mbar.Controls(a).Caption Next Next End Sub
pour avoir les ID de chacun, tu doit remplacer Cells(x, a + 2) = Mbar.Controls(a).caption par Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu' XP sans probl me, je pense pour au-del , d'autres que moi vont pouvoir te le dire HTH Mgr T. P. (de retour des matines)
Labes chouia,
Monseigneur est trop bon ! Je vois que le vin de messe n'a pas entamé
vos capacités mémorielles !!
Je vais tester sur un 2010 qui traîne.
Thierry
On 6 avr, 10:41, "Mgr T. Plubanni" <croixVba...@staff.va> wrote:
bonjour thierry
lab s?
voici, r dig il y a fort longtemps pas notre ange actuel et pr f r :
Sub ListeCommandBar()
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
x = x + 1
Range("A" & X) = Mbar.Name
Range("b" & X) = Mbar.ID
On Error Resume Next
Nb = Mbar.Controls.Count
For a = 1 To Nb
Cells(x, a + 2) = Mbar.Controls(a).Caption
Next
Next
End Sub
pour avoir les ID de chacun, tu doit remplacer
Cells(x, a + 2) = Mbar.Controls(a).caption
par
Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu' XP sans probl me, je pense
pour au-del , d'autres que moi vont pouvoir te le dire
HTH
Mgr T. P. (de retour des matines)
Monseigneur est trop bon ! Je vois que le vin de messe n'a pas entamé vos capacités mémorielles !!
Je vais tester sur un 2010 qui traîne.
Thierry
On 6 avr, 10:41, "Mgr T. Plubanni" wrote:
bonjour thierry lab s? voici, r dig il y a fort longtemps pas notre ange actuel et pr f r :
Sub ListeCommandBar() Dim Mbar As CommandBar For Each Mbar In Application.CommandBars x = x + 1 Range("A" & X) = Mbar.Name Range("b" & X) = Mbar.ID On Error Resume Next Nb = Mbar.Controls.Count For a = 1 To Nb Cells(x, a + 2) = Mbar.Controls(a).Caption Next Next End Sub
pour avoir les ID de chacun, tu doit remplacer Cells(x, a + 2) = Mbar.Controls(a).caption par Cells(x, a + 2) = Mbar.Controls(a).ID
valable jusqu' XP sans probl me, je pense pour au-del , d'autres que moi vont pouvoir te le dire HTH Mgr T. P. (de retour des matines)
MichD
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une procédure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 à 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars Récurse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub Récurse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then Récurse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou désactiver une commande telle qu'énoncé en début de fil est disponible que pour certaines commandes pour les versions 2007 et 2010. Pour le reste, le fonctionnement est très différent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut-être quelqu'un d'autre pour te conseiller.
MichD -------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en utilisant : CommandBars( 1 ).Controls( 6 ).Enabled = False ou .CommandBars("Ply").Controls("&Supprimer").Enabled = False Tout ça allait très bien avec mon Excel XP. en français ! Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais. Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver une liste des barres de menus / items p(et leur identifiant unique) our ces différentes versions et langues ??
Merci d'avance !
ThierryP
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'-------------------------------------
Sub Desactiver_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:„7)
Cbar.Enabled = False
Next
End Sub
'-------------------------------------
Sub Activer_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:„7)
Cbar.Enabled = True
Next
End Sub
'------------------------------------
Une procédure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 à 2003
Dim I As Integer, J As Integer
Sub ListeIDS()
'L Longre
Dim CmdB As CommandBar
I = 1: J = 0
Cells.Clear
Application.ScreenUpdating = False
For Each CmdB In Application.CommandBars
Récurse CmdB
Next CmdB
With Range("A1").CurrentRegion
.Font.Size = 8
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub
Private Sub Récurse(CmdB As Object)
Dim Ctrl As CommandBarControl
J = J + 1
For Each Ctrl In CmdB.Controls
With Cells(I, J)
.Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "")
If J = 1 Then .Font.Bold = True
End With
If Ctrl.Type = msoControlPopup Then Récurse Ctrl Else I = I + 1
Next Ctrl
J = J - 1
End Sub
Cependant, les exemples pour activer ou désactiver une commande telle qu'énoncé
en début de fil est disponible que pour certaines commandes pour les versions 2007 et 2010.
Pour le reste, le fonctionnement est très différent. Je n'ai jamais pris le temps de me pencher
sur le sujet... tu auras peut-être quelqu'un d'autre pour te conseiller.
MichD
--------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
a170098f-2114-4673-a000-805b18d68729@f2g2000yqf.googlegroups.com...
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en
utilisant :
CommandBars( 1 ).Controls( 6 ).Enabled = False ou
.CommandBars("Ply").Controls("&Supprimer").Enabled = False
Tout ça allait très bien avec mon Excel XP. en français !
Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais.
Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver
une liste des barres de menus / items p(et leur identifiant unique)
our ces différentes versions et langues ??
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une procédure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 à 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars Récurse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub Récurse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then Récurse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou désactiver une commande telle qu'énoncé en début de fil est disponible que pour certaines commandes pour les versions 2007 et 2010. Pour le reste, le fonctionnement est très différent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut-être quelqu'un d'autre pour te conseiller.
MichD -------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Bonjour,
Jusqu'à aujourd'hui, je pouvais désactiver un menu de Excel ou item en utilisant : CommandBars( 1 ).Controls( 6 ).Enabled = False ou .CommandBars("Ply").Controls("&Supprimer").Enabled = False Tout ça allait très bien avec mon Excel XP. en français ! Maintenant je dois mixer 97, XP, 2007 et 2010 en français / anglais. Quelqu'un a-t-il une petite idée de l'endroit où je pourrais trouver une liste des barres de menus / items p(et leur identifiant unique) our ces différentes versions et langues ??
Merci d'avance !
ThierryP
ThierryP
Bonjour MichD,
Merci pour la proc. de Laurent, ....et l'avertissement pour 2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais u tiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars R curse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub R curse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID , "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc en d but de fil est disponible que pour certaines commandes pour les vers ions 2007 et 2010. Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
Merci pour la proc. de Laurent, ....et l'avertissement pour
2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" <michde...@hotmail.com> wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais u tiliser ceci :
'-------------------------------------
Sub Desactiver_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:=847)
Cbar.Enabled = False
Next
End Sub
'-------------------------------------
Sub Activer_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:=847)
Cbar.Enabled = True
Next
End Sub
'------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS()
'L Longre
Dim CmdB As CommandBar
I = 1: J = 0
Cells.Clear
Application.ScreenUpdating = False
For Each CmdB In Application.CommandBars
R curse CmdB
Next CmdB
With Range("A1").CurrentRegion
.Font.Size = 8
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub
Private Sub R curse(CmdB As Object)
Dim Ctrl As CommandBarControl
J = J + 1
For Each Ctrl In CmdB.Controls
With Cells(I, J)
.Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID , "")
If J = 1 Then .Font.Bold = True
End With
If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1
Next Ctrl
J = J - 1
End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc
en d but de fil est disponible que pour certaines commandes pour les vers ions 2007 et 2010.
Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher
sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
Merci pour la proc. de Laurent, ....et l'avertissement pour 2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais u tiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars R curse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub R curse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID , "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc en d but de fil est disponible que pour certaines commandes pour les vers ions 2007 et 2010. Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
à cette adresse : http://www.rondebruin.nl/tips.htm
à la section : Excel 2007-2010 Ribbon and QAT pages
Tu auras beaucoup d'informations quant au fonctionnement de menus d'Excel 2007 et 2010.
MichD -------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Bonjour MichD,
Merci pour la proc. de Laurent, ....et l'avertissement pour 2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars R curse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub R curse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc en d but de fil est disponible que pour certaines commandes pour les versions 2007 et 2010. Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
à cette adresse : http://www.rondebruin.nl/tips.htm
à la section : Excel 2007-2010 Ribbon and QAT pages
Tu auras beaucoup d'informations quant au fonctionnement de menus
d'Excel 2007 et 2010.
MichD
--------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
a0059dfc-ed79-4848-a636-313ada8bd7f6@cu4g2000vbb.googlegroups.com...
Bonjour MichD,
Merci pour la proc. de Laurent, ....et l'avertissement pour
2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" <michde...@hotmail.com> wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'-------------------------------------
Sub Desactiver_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:„7)
Cbar.Enabled = False
Next
End Sub
'-------------------------------------
Sub Activer_Commande_Supprimer_Feuille()
Dim Cbar As CommandBarControl
For Each Cbar In Application.CommandBars.FindControls(ID:„7)
Cbar.Enabled = True
Next
End Sub
'------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS()
'L Longre
Dim CmdB As CommandBar
I = 1: J = 0
Cells.Clear
Application.ScreenUpdating = False
For Each CmdB In Application.CommandBars
R curse CmdB
Next CmdB
With Range("A1").CurrentRegion
.Font.Size = 8
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub
Private Sub R curse(CmdB As Object)
Dim Ctrl As CommandBarControl
J = J + 1
For Each Ctrl In CmdB.Controls
With Cells(I, J)
.Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "")
If J = 1 Then .Font.Bold = True
End With
If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1
Next Ctrl
J = J - 1
End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc
en d but de fil est disponible que pour certaines commandes pour les versions 2007 et 2010.
Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher
sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
à cette adresse : http://www.rondebruin.nl/tips.htm
à la section : Excel 2007-2010 Ribbon and QAT pages
Tu auras beaucoup d'informations quant au fonctionnement de menus d'Excel 2007 et 2010.
MichD -------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Bonjour MichD,
Merci pour la proc. de Laurent, ....et l'avertissement pour 2007/2010 ! Je n'ai plus qu'à essayer de creuser :-((((
@+
ThierryP
On 6 avr, 14:49, "MichD" wrote:
Bonjour,
Pour ton exemple explicite de la commande dans ta question, tu pourrais utiliser ceci :
'------------------------------------- Sub Desactiver_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = False Next End Sub '------------------------------------- Sub Activer_Commande_Supprimer_Feuille() Dim Cbar As CommandBarControl For Each Cbar In Application.CommandBars.FindControls(ID:„7) Cbar.Enabled = True Next End Sub '------------------------------------
Une proc dure de Laurent Longre pour lister les commandes et leur ID des versions Excel 1997 2003
Dim I As Integer, J As Integer
Sub ListeIDS() 'L Longre Dim CmdB As CommandBar I = 1: J = 0 Cells.Clear Application.ScreenUpdating = False For Each CmdB In Application.CommandBars R curse CmdB Next CmdB With Range("A1").CurrentRegion .Font.Size = 8 .EntireColumn.AutoFit .EntireRow.AutoFit End With End Sub
Private Sub R curse(CmdB As Object) Dim Ctrl As CommandBarControl J = J + 1 For Each Ctrl In CmdB.Controls With Cells(I, J) .Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "") If J = 1 Then .Font.Bold = True End With If Ctrl.Type = msoControlPopup Then R curse Ctrl Else I = I + 1 Next Ctrl J = J - 1 End Sub
Cependant, les exemples pour activer ou d sactiver une commande telle qu' nonc en d but de fil est disponible que pour certaines commandes pour les versions 2007 et 2010. Pour le reste, le fonctionnement est tr s diff rent. Je n'ai jamais pris le temps de me pencher sur le sujet... tu auras peut- tre quelqu'un d'autre pour te conseiller.
