Bonsoir
Comment faire pour connaitre les ID des icones d'une barre d'outils.
Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau
concernant ces identifiant sinon comment faire pour les connaitre?
Merci de votre aide
--
Amitiés
Anne-Marie
Sub Infos_CommandBars2() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2()
'il faut être patient, remplie les cellules A1:E1103
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
Worksheets.Add
[A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name"
[D1] = "Control ID": [E1] = "Control caption"
I = 2
With ActiveSheet
For Each cb In CommandBars
For Each c In cb.Controls
.Cells(I, 1).Value = cb.ID
.Cells(I, 2).Value = cb.NameLocal
.Cells(I, 3).Value = cb.Name
.Cells(I, 4).Value = c.ID
.Cells(I, 5).Value = c.Caption
I = I + 1
Next c
Next cb
Range("A:F").Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub
isabelle
Bonsoir
Comment faire pour connaitre les ID des icones d'une barre d'outils.
Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau
concernant ces identifiant sinon comment faire pour les connaitre?
Merci de votre aide
--
Amitiés
Anne-Marie
Sub Infos_CommandBars2() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
Rai
Bonsoir,
Exelabo est ton ami : http://www.excelabo.net/xl/barres.php#faceidicones
Google aussi d'ailleurs : http://www.google.fr/search?hl=fr&qúceid+excel&btnG=Recherche+Goo gle&meta=lr%3Dlang_fr
Bonne Nuit
Rai
"Donnazac" a écrit dans le message de news:
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
Bonsoir,
Exelabo est ton ami :
http://www.excelabo.net/xl/barres.php#faceidicones
Google aussi d'ailleurs :
http://www.google.fr/search?hl=fr&q=faceid+excel&btnG=Recherche+Goo gle&meta=lr%3Dlang_fr
Bonne Nuit
Rai
"Donnazac" <c-dam@club-internet.fr> a écrit dans le message de news: eR9T7uM1EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonsoir
Comment faire pour connaitre les ID des icones d'une barre d'outils.
Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau
concernant ces identifiant sinon comment faire pour les connaitre?
Merci de votre aide
--
Amitiés
Anne-Marie
Exelabo est ton ami : http://www.excelabo.net/xl/barres.php#faceidicones
Google aussi d'ailleurs : http://www.google.fr/search?hl=fr&qúceid+excel&btnG=Recherche+Goo gle&meta=lr%3Dlang_fr
Bonne Nuit
Rai
"Donnazac" a écrit dans le message de news:
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
Clément Marcotte
Bonjour,
Je ne sais pas s'ils sont tous là mais, tu peux toujours regarder cela:
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau
concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
jps
heu isabelle, chez moi, il faut que je sois encore plus patient car ça remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
heu isabelle, chez moi, il faut que je sois encore plus patient car ça
remplit jusqu'à la cellule E 4920!!!!
tu n'aurais pas acheté excel et ses IDs au rabais par hasard?
jps
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41A8FB7F.641DEBAF@videotron.ca...
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2()
'il faut être patient, remplit les cellules A1:E1103
heu isabelle, chez moi, il faut que je sois encore plus patient car ça remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
Clément Marcotte
M'est avis que tu abuses des barres d'outils. ;-)
"jps" a écrit dans le message de news:
heu isabelle, chez moi, il faut que je sois encore plus patient car ça
remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
M'est avis que tu abuses des barres d'outils. ;-)
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de news:OfG9oMO1EHA.2876@TK2MSFTNGP12.phx.gbl...
heu isabelle, chez moi, il faut que je sois encore plus patient car
ça
remplit jusqu'à la cellule E 4920!!!!
tu n'aurais pas acheté excel et ses IDs au rabais par hasard?
jps
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41A8FB7F.641DEBAF@videotron.ca...
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2()
'il faut être patient, remplit les cellules A1:E1103
certes, certes, clément, mais de là à ce qu'elles aient près de 4000 boutons, ça voudrait dire que mon ordi a la petite vérole, non? jps
"Clément Marcotte" a écrit dans le message de news:%
M'est avis que tu abuses des barres d'outils. ;-)
"jps" a écrit dans le message de news:
heu isabelle, chez moi, il faut que je sois encore plus patient car ça
remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
Donnazac
Salut Merci à tous de vos reponses et merci aussi de vous inquieter de la santé de mon portable. Rassurez-vous, ne vous inquiétez pas mon portable va tres bien, il n'a pas la verole! Le pôvre son seul soucis c'est SP2 qui l'empeche de recevoir et coller des images!!!Il m'enlève mm ds OE la photo que j'utilise comme signature ! Et malgré toutes les recherches tant ds les options Xp, IE, OE ou Office, je n'arrive pas à corriger le pb , exit SP2 je vais te desinstaller ! En fait je n'ai qu'une seule et unique barre d'outils perso (j'ai viré les autres pour regler le pb de protection des options , des macros ... sans barre de menus ou d'outils c'est plus difficile de modifier) mais en l'utilisant je m'aperçois de certains defaut et j'essaie de rectifier donc je change de barre comme de chaussettes jusqu'à ce que je sois contente du resultat. Ce que je cherchais avec ID c'est celui qui me permettrait de figer la fin de la barre perso pour eviter la modif , je me disais qu'en listant les elements de ma barre je trouverai celui -ci . -- Amitiés A-M
"jps" a écrit dans le message de news: %
certes, certes, clément, mais de là à ce qu'elles aient près de 4000 boutons, ça voudrait dire que mon ordi a la petite vérole, non? jps
"Clément Marcotte" a écrit dans le message de news:%
M'est avis que tu abuses des barres d'outils. ;-)
"jps" a écrit dans le message de news:
heu isabelle, chez moi, il faut que je sois encore plus patient car ça
remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
Salut
Merci à tous de vos reponses et merci aussi de vous inquieter de la santé de
mon portable. Rassurez-vous, ne vous inquiétez pas mon portable va tres
bien, il n'a pas la verole! Le pôvre son seul soucis c'est SP2 qui l'empeche
de recevoir et coller des images!!!Il m'enlève mm ds OE la photo que
j'utilise comme signature ! Et malgré toutes les recherches tant ds les
options Xp, IE, OE ou Office, je n'arrive pas à corriger le pb , exit SP2 je
vais te desinstaller !
En fait je n'ai qu'une seule et unique barre d'outils perso (j'ai viré les
autres pour regler le pb de protection des options , des macros ... sans
barre de menus ou d'outils c'est plus difficile de modifier) mais en
l'utilisant je m'aperçois de certains defaut et j'essaie de rectifier donc
je change de barre comme de chaussettes jusqu'à ce que je sois contente du
resultat. Ce que je cherchais avec ID c'est celui qui me permettrait de
figer la fin de la barre perso pour eviter la modif , je me disais qu'en
listant les elements de ma barre je trouverai celui -ci .
--
Amitiés
A-M
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news: %23wVo13R1EHA.1392@tk2msftngp13.phx.gbl...
certes, certes, clément, mais de là à ce qu'elles aient près de 4000
boutons, ça voudrait dire que mon ordi a la petite vérole, non?
jps
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news:%23n0VpeP1EHA.1452@TK2MSFTNGP11.phx.gbl...
M'est avis que tu abuses des barres d'outils. ;-)
"jps" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de news:OfG9oMO1EHA.2876@TK2MSFTNGP12.phx.gbl...
heu isabelle, chez moi, il faut que je sois encore plus patient car
ça
remplit jusqu'à la cellule E 4920!!!!
tu n'aurais pas acheté excel et ses IDs au rabais par hasard?
jps
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41A8FB7F.641DEBAF@videotron.ca...
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2()
'il faut être patient, remplit les cellules A1:E1103
Salut Merci à tous de vos reponses et merci aussi de vous inquieter de la santé de mon portable. Rassurez-vous, ne vous inquiétez pas mon portable va tres bien, il n'a pas la verole! Le pôvre son seul soucis c'est SP2 qui l'empeche de recevoir et coller des images!!!Il m'enlève mm ds OE la photo que j'utilise comme signature ! Et malgré toutes les recherches tant ds les options Xp, IE, OE ou Office, je n'arrive pas à corriger le pb , exit SP2 je vais te desinstaller ! En fait je n'ai qu'une seule et unique barre d'outils perso (j'ai viré les autres pour regler le pb de protection des options , des macros ... sans barre de menus ou d'outils c'est plus difficile de modifier) mais en l'utilisant je m'aperçois de certains defaut et j'essaie de rectifier donc je change de barre comme de chaussettes jusqu'à ce que je sois contente du resultat. Ce que je cherchais avec ID c'est celui qui me permettrait de figer la fin de la barre perso pour eviter la modif , je me disais qu'en listant les elements de ma barre je trouverai celui -ci . -- Amitiés A-M
"jps" a écrit dans le message de news: %
certes, certes, clément, mais de là à ce qu'elles aient près de 4000 boutons, ça voudrait dire que mon ordi a la petite vérole, non? jps
"Clément Marcotte" a écrit dans le message de news:%
M'est avis que tu abuses des barres d'outils. ;-)
"jps" a écrit dans le message de news:
heu isabelle, chez moi, il faut que je sois encore plus patient car ça
remplit jusqu'à la cellule E 4920!!!! tu n'aurais pas acheté excel et ses IDs au rabais par hasard? jps
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà,
Sub Infos_CommandBars2() 'il faut être patient, remplit les cellules A1:E1103
YannX
Voila typiquement quelque chose que j'aimerais voir ultérieurement dans une FAQ XL VBA, mais qui l'inscrira s'il vous plait ! Yann
PS des FAQ XL il y en a tellement que je m'y perds... mais jamais assez sur VBA / VB a mon gout !?
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà, http://support.microsoft.com/default.aspx?scid=kb;fr;213552 pour XL2000
http://support.microsoft.com/default.aspx?scid=kb;fr;159466 pour XL 97
Sub Infos_CommandBars2() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
Voila typiquement quelque chose que j'aimerais
voir ultérieurement dans une FAQ XL VBA,
mais qui l'inscrira s'il vous plait !
Yann
PS des FAQ XL il y en a tellement que je m'y perds...
mais jamais assez sur VBA / VB a mon gout !?
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41A8FB7F.641DEBAF@videotron.ca...
bonsoir Anne-Marie,
voilà,
http://support.microsoft.com/default.aspx?scid=kb;fr;213552 pour XL2000
http://support.microsoft.com/default.aspx?scid=kb;fr;159466 pour XL 97
Sub Infos_CommandBars2()
'il faut être patient, remplie les cellules A1:E1103
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
Worksheets.Add
[A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name"
[D1] = "Control ID": [E1] = "Control caption"
I = 2
With ActiveSheet
For Each cb In CommandBars
For Each c In cb.Controls
.Cells(I, 1).Value = cb.ID
.Cells(I, 2).Value = cb.NameLocal
.Cells(I, 3).Value = cb.Name
.Cells(I, 4).Value = c.ID
.Cells(I, 5).Value = c.Caption
I = I + 1
Next c
Next cb
Range("A:F").Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub
isabelle
Bonsoir
Comment faire pour connaitre les ID des icones d'une barre d'outils.
Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau
concernant ces identifiant sinon comment faire pour les connaitre?
Merci de votre aide
--
Amitiés
Anne-Marie
Voila typiquement quelque chose que j'aimerais voir ultérieurement dans une FAQ XL VBA, mais qui l'inscrira s'il vous plait ! Yann
PS des FAQ XL il y en a tellement que je m'y perds... mais jamais assez sur VBA / VB a mon gout !?
"isabelle" a écrit dans le message de news:
bonsoir Anne-Marie,
voilà, http://support.microsoft.com/default.aspx?scid=kb;fr;213552 pour XL2000
http://support.microsoft.com/default.aspx?scid=kb;fr;159466 pour XL 97
Sub Infos_CommandBars2() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Bonsoir Comment faire pour connaitre les ID des icones d'une barre d'outils. Je n'arrive pas à connaitre l'ID de chaque controls. Y-a-t-il un tableau concernant ces identifiant sinon comment faire pour les connaitre? Merci de votre aide -- Amitiés Anne-Marie
