voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils
qu'il y a d'onglet dans un classeur.
Je n'arrive pas à faire afficher le texte.
j'ai beau mettre n'importequelle constante à la propriété style, il
n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
l'infobulle .
d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme
mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count
Set myControl = CommandBars("barreot").Controls.Add
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
Emcy
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" <etester@wanadoo.fr_pas_de_spam> a écrit dans le
message de news: %23E1JLWAVGHA.6084@TK2MSFTNGP14.phx.gbl...
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre
d'outils
qu'il y a d'onglet dans un classeur.
Je n'arrive pas à faire afficher le texte.
j'ai beau mettre n'importequelle constante à la propriété style, il
n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
l'infobulle .
d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme
mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count
Set myControl = CommandBars("barreot").Controls.Add
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add
Sub AjoutBO() Dim Bar As CommandBar, I& Set Bar = Application.CommandBars.Add With Bar .Visible = True .Name = "MaBarre" For I = 1& To Sheets.Count .Controls.Add Type:=msoControlButton With .Controls(I) .Caption = Sheets(I).Name .Style = msoButtonCaption End With Next I End With Set Bar = Nothing End Sub
Alain CROS
"msnews.microsoft.com" a écrit dans le message de news: # | Bonjour, | | voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils | qu'il y a d'onglet dans un classeur. | Je n'arrive pas à faire afficher le texte. | j'ai beau mettre n'importequelle constante à la propriété style, il | n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans | l'infobulle . | d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme | mode d'affichage du bouton. | | voilà le code | | For i = 1 To ActiveWorkbook.Sheets.Count | Set myControl = CommandBars("barreot").Controls.Add | | With myControl | .Style = msoButtonIconAndCaptionBelow ' | .faceid = 181 | .OnAction = "toto" | .Caption = ActiveWorkbook.Sheets(i).Name | '.Style = msoButtonCaption | ' .AddItem Text:="Second Item", Index:=2 | ' .DropDownLines = 3 | '.DropDownWidth = 75 | '.ListHeaderCount = 0 | End With | | Next i | | | Est-ce un bug ? | | tout marche bien autrement. | J'ai excel 2003 | | Merci | | |
Bonjour,
Sub AjoutBO()
Dim Bar As CommandBar, I&
Set Bar = Application.CommandBars.Add
With Bar
.Visible = True
.Name = "MaBarre"
For I = 1& To Sheets.Count
.Controls.Add Type:=msoControlButton
With .Controls(I)
.Caption = Sheets(I).Name
.Style = msoButtonCaption
End With
Next I
End With
Set Bar = Nothing
End Sub
Alain CROS
"msnews.microsoft.com" <etester@wanadoo.fr_pas_de_spam> a écrit dans le message de news: #E1JLWAVGHA.6084@TK2MSFTNGP14.phx.gbl...
| Bonjour,
|
| voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils
| qu'il y a d'onglet dans un classeur.
| Je n'arrive pas à faire afficher le texte.
| j'ai beau mettre n'importequelle constante à la propriété style, il
| n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
| l'infobulle .
| d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme
| mode d'affichage du bouton.
|
| voilà le code
|
| For i = 1 To ActiveWorkbook.Sheets.Count
| Set myControl = CommandBars("barreot").Controls.Add
|
| With myControl
| .Style = msoButtonIconAndCaptionBelow '
| .faceid = 181
| .OnAction = "toto"
| .Caption = ActiveWorkbook.Sheets(i).Name
| '.Style = msoButtonCaption
| ' .AddItem Text:="Second Item", Index:=2
| ' .DropDownLines = 3
| '.DropDownWidth = 75
| '.ListHeaderCount = 0
| End With
|
| Next i
|
|
| Est-ce un bug ?
|
| tout marche bien autrement.
| J'ai excel 2003
|
| Merci
|
|
|
Sub AjoutBO() Dim Bar As CommandBar, I& Set Bar = Application.CommandBars.Add With Bar .Visible = True .Name = "MaBarre" For I = 1& To Sheets.Count .Controls.Add Type:=msoControlButton With .Controls(I) .Caption = Sheets(I).Name .Style = msoButtonCaption End With Next I End With Set Bar = Nothing End Sub
Alain CROS
"msnews.microsoft.com" a écrit dans le message de news: # | Bonjour, | | voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils | qu'il y a d'onglet dans un classeur. | Je n'arrive pas à faire afficher le texte. | j'ai beau mettre n'importequelle constante à la propriété style, il | n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans | l'infobulle . | d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme | mode d'affichage du bouton. | | voilà le code | | For i = 1 To ActiveWorkbook.Sheets.Count | Set myControl = CommandBars("barreot").Controls.Add | | With myControl | .Style = msoButtonIconAndCaptionBelow ' | .faceid = 181 | .OnAction = "toto" | .Caption = ActiveWorkbook.Sheets(i).Name | '.Style = msoButtonCaption | ' .AddItem Text:="Second Item", Index:=2 | ' .DropDownLines = 3 | '.DropDownWidth = 75 | '.ListHeaderCount = 0 | End With | | Next i | | | Est-ce un bug ? | | tout marche bien autrement. | J'ai excel 2003 | | Merci | | |
msnews.microsoft.com
Merci beaucoup, cela fonctionne. A priori cela ne fonctionnait pas dans mon code car je n'avais pas précisé que le bouton créé était du type msoControlbutton
"Alain CROS" a écrit dans le message de news:
Bonjour,
Sub AjoutBO() Dim Bar As CommandBar, I& Set Bar = Application.CommandBars.Add With Bar .Visible = True .Name = "MaBarre" For I = 1& To Sheets.Count .Controls.Add Type:=msoControlButton With .Controls(I) .Caption = Sheets(I).Name .Style = msoButtonCaption End With Next I End With Set Bar = Nothing End Sub
Alain CROS
"msnews.microsoft.com" a écrit dans le message de news: # | Bonjour, | | voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils | qu'il y a d'onglet dans un classeur. | Je n'arrive pas à faire afficher le texte. | j'ai beau mettre n'importequelle constante à la propriété style, il | n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans | l'infobulle . | d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme | mode d'affichage du bouton. | | voilà le code | | For i = 1 To ActiveWorkbook.Sheets.Count | Set myControl = CommandBars("barreot").Controls.Add | | With myControl | .Style = msoButtonIconAndCaptionBelow ' | .faceid = 181 | .OnAction = "toto" | .Caption = ActiveWorkbook.Sheets(i).Name | '.Style = msoButtonCaption | ' .AddItem Text:="Second Item", Index:=2 | ' .DropDownLines = 3 | '.DropDownWidth = 75 | '.ListHeaderCount = 0 | End With | | Next i | | | Est-ce un bug ? | | tout marche bien autrement. | J'ai excel 2003 | | Merci | | |
Merci beaucoup, cela fonctionne.
A priori cela ne fonctionnait pas dans mon code car je n'avais pas précisé
que le bouton créé était du type msoControlbutton
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
uWR5lQBVGHA.4952@TK2MSFTNGP09.phx.gbl...
Bonjour,
Sub AjoutBO()
Dim Bar As CommandBar, I&
Set Bar = Application.CommandBars.Add
With Bar
.Visible = True
.Name = "MaBarre"
For I = 1& To Sheets.Count
.Controls.Add Type:=msoControlButton
With .Controls(I)
.Caption = Sheets(I).Name
.Style = msoButtonCaption
End With
Next I
End With
Set Bar = Nothing
End Sub
Alain CROS
"msnews.microsoft.com" <etester@wanadoo.fr_pas_de_spam> a écrit dans le
message de news: #E1JLWAVGHA.6084@TK2MSFTNGP14.phx.gbl...
| Bonjour,
|
| voilà j'ai créé une macro qui ajoute autant de contrôle à une barre
d'outils
| qu'il y a d'onglet dans un classeur.
| Je n'arrive pas à faire afficher le texte.
| j'ai beau mettre n'importequelle constante à la propriété style, il
| n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
| l'infobulle .
| d'ailleurs quand je regarde sous excel il met toujours "par défaut"
comme
| mode d'affichage du bouton.
|
| voilà le code
|
| For i = 1 To ActiveWorkbook.Sheets.Count
| Set myControl = CommandBars("barreot").Controls.Add
|
| With myControl
| .Style = msoButtonIconAndCaptionBelow '
| .faceid = 181
| .OnAction = "toto"
| .Caption = ActiveWorkbook.Sheets(i).Name
| '.Style = msoButtonCaption
| ' .AddItem Text:="Second Item", Index:=2
| ' .DropDownLines = 3
| '.DropDownWidth = 75
| '.ListHeaderCount = 0
| End With
|
| Next i
|
|
| Est-ce un bug ?
|
| tout marche bien autrement.
| J'ai excel 2003
|
| Merci
|
|
|
Merci beaucoup, cela fonctionne. A priori cela ne fonctionnait pas dans mon code car je n'avais pas précisé que le bouton créé était du type msoControlbutton
"Alain CROS" a écrit dans le message de news:
Bonjour,
Sub AjoutBO() Dim Bar As CommandBar, I& Set Bar = Application.CommandBars.Add With Bar .Visible = True .Name = "MaBarre" For I = 1& To Sheets.Count .Controls.Add Type:=msoControlButton With .Controls(I) .Caption = Sheets(I).Name .Style = msoButtonCaption End With Next I End With Set Bar = Nothing End Sub
Alain CROS
"msnews.microsoft.com" a écrit dans le message de news: # | Bonjour, | | voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils | qu'il y a d'onglet dans un classeur. | Je n'arrive pas à faire afficher le texte. | j'ai beau mettre n'importequelle constante à la propriété style, il | n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans | l'infobulle . | d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme | mode d'affichage du bouton. | | voilà le code | | For i = 1 To ActiveWorkbook.Sheets.Count | Set myControl = CommandBars("barreot").Controls.Add | | With myControl | .Style = msoButtonIconAndCaptionBelow ' | .faceid = 181 | .OnAction = "toto" | .Caption = ActiveWorkbook.Sheets(i).Name | '.Style = msoButtonCaption | ' .AddItem Text:="Second Item", Index:=2 | ' .DropDownLines = 3 | '.DropDownWidth = 75 | '.ListHeaderCount = 0 | End With | | Next i | | | Est-ce un bug ? | | tout marche bien autrement. | J'ai excel 2003 | | Merci | | |
Emcy
oups... aurais-je dis une betise ?????
"Emcy" a écrit dans le message de news:
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add
"Emcy" <toto@bla.com> a écrit dans le message de news:
eZE6PZAVGHA.224@TK2MSFTNGP10.phx.gbl...
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" <etester@wanadoo.fr_pas_de_spam> a écrit dans le
message de news: %23E1JLWAVGHA.6084@TK2MSFTNGP14.phx.gbl...
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre
d'outils
qu'il y a d'onglet dans un classeur.
Je n'arrive pas à faire afficher le texte.
j'ai beau mettre n'importequelle constante à la propriété style, il
n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
l'infobulle .
d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme
mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count
Set myControl = CommandBars("barreot").Controls.Add
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add
si peu de chose à côté de toutes les miennes, Emcy... jps
"Emcy" a écrit dans le message de news:
oups... aurais-je dis une betise ?????
"Emcy" a écrit dans le message de news:
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add
si peu de chose à côté de toutes les miennes, Emcy...
jps
"Emcy" <toto@bla.com> a écrit dans le message de news:
uPtOjGKVGHA.4436@TK2MSFTNGP10.phx.gbl...
oups... aurais-je dis une betise ?????
"Emcy" <toto@bla.com> a écrit dans le message de news:
eZE6PZAVGHA.224@TK2MSFTNGP10.phx.gbl...
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" <etester@wanadoo.fr_pas_de_spam> a écrit dans le
message de news: %23E1JLWAVGHA.6084@TK2MSFTNGP14.phx.gbl...
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre
d'outils
qu'il y a d'onglet dans un classeur.
Je n'arrive pas à faire afficher le texte.
j'ai beau mettre n'importequelle constante à la propriété style, il
n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans
l'infobulle .
d'ailleurs quand je regarde sous excel il met toujours "par défaut"
comme
mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count
Set myControl = CommandBars("barreot").Controls.Add
si peu de chose à côté de toutes les miennes, Emcy... jps
"Emcy" a écrit dans le message de news:
oups... aurais-je dis une betise ?????
"Emcy" a écrit dans le message de news:
non, ce n'est pas un bug : tu ne peux simplement pas....
"msnews.microsoft.com" a écrit dans le message de news: %
Bonjour,
voilà j'ai créé une macro qui ajoute autant de contrôle à une barre d'outils qu'il y a d'onglet dans un classeur. Je n'arrive pas à faire afficher le texte. j'ai beau mettre n'importequelle constante à la propriété style, il n'affiche jamais le texte, uniquement le bouton. le texte apparaît dans l'infobulle . d'ailleurs quand je regarde sous excel il met toujours "par défaut" comme mode d'affichage du bouton.
voilà le code
For i = 1 To ActiveWorkbook.Sheets.Count Set myControl = CommandBars("barreot").Controls.Add