Menu personnalisé dans excel sous vba

Version imprimable

Bonjour,

Dans le menu personnalisé, je souhaite utiliser la propriete msoButtonAndCaptionBelow qui n'est pas reconnu,le texte s'affiche toujours à droite et non pas dessous comme demande. Tout le reste marche.
Autre question la propriete BeginGroup n'est pas active non plus enfin l'onglet supplémentaire s'affiche avec comme nom complément et je souhaite le changer en Outil.
Merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim cmdbar as CommandBar Set cmdbar = Application.CommandBars _ .Add(Name:="tools", position:= msoBartop, temporal:= true) Dim bouton as CommandBarButton Set bouton = cmdbar.Controls.Add(type:=msoControlButton) With button .facedid = 1754 .style = msoButtonIconAndCaptionBelow .caption = "général data" End with

18/07/2017, 13h38
EricDgn

Bonjour,

Il me semble qu'il y a une erreur au niveau de With button qui devrait être With bouton.
(erreur qui aurait été évitée si Option Explicit avait été mentionné en tête de module)

Cordialement.
19/07/2017, 09h19
Nicoderome

Citation:

Envoyé par EricDgn

Bonjour,

Il me semble qu'il y a une erreur au niveau de With button qui devrait être With bouton.
(erreur qui aurait été évitée si Option Explicit avait été mentionné en tête de module)

Cordialement.

Bonjour Eric,

Merci pour le conseil, j'avais déjà corrigé donc le problème reste toujours d'actualité.
J'y passe un temps fou pour corriger mais sans succès.
À bon entendeur, bonne journée à tous.
19/07/2017, 10h00
kiki29

Salut, relire la FAQ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

	Citation:
	
		
		
			
				Envoyé par kiki29
				
			
			Salut, relire la FAQ
			
		
	

Bonjour kiki29

Ci dessous mon code qui ne marche pas pour le style et pour .BeginGroup
Toutes aides seraient les bienvenues.

Dim cmdbar as CommandBar
 
Set cmdbar = Application.CommandBars _
                    .Add(Name:="tools", position:= msoBartop, temporal:= true)
 
Dim bouton as CommandBarButton
 
Set bouton =  cmdbar.Controls.Add(type:=msoControlButton)
With button
.facedid = 1754
.style = msoButtonIconAndCaptionBelow
.BeginGroup = True
.caption = "général data"
End

1 pièce(s) jointe(s)

Code:

1
2
3
4
5
6
7
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Essai"
        .Style = msoButtonIconAndCaptionBelow
        .FaceId = 121
        .OnAction = "Macro3"
    End With

Citation:
Envoyé par kiki29
Code:

1 2 3 4 5 6 7 Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton) With Bouton .Caption = "Essai" .Style = msoButtonIconAndCaptionBelow .FaceId = 121 .OnAction = "Macro3" End With
Merci mais c'est imcomprehensible, j'ai recopié attentivement le code, j'ai repris votre id, votre caption essai mais j'ai toujours mon caption à droite de l'icône.
Un indice je n'ai pas les petites flèches qui apparaissent à côté de votre image.
Merci d'avance pour le temps consacré

Je suis sous Windows 7 et sous excel 2010, est ce une raison ?

31/07/2017, 22h09
EricDgn

Bonjour,
Pour info, j'ai le même problème avec Excel 2010 et Windows 10.
Au début, j'avais le texte en dessous, ensuite j'ai testé avec le texte à côté, ... et depuis plus possible de revenir au texte en dessous!
Reste donc à trouver une solution!
Cdt.
31/07/2017, 23h09
Nicoderome

Citation:

Envoyé par EricDgn

Bonjour,
Pour info, j'ai le même problème avec Excel 2010 et Windows 10.
Au début, j'avais le texte en dessous, ensuite j'ai testé avec le texte à côté, ... et depuis plus possible de revenir au texte en dessous!
Reste donc à trouver une solution!
Cdt.

Oui, je n'ai pas avance sur le pb, j'ai toujours le texte à droite bien que le style précise msobuttonandiconand captionbelow mais rien à faire.
Merci,pour le temps passe et bonne soirée
31/07/2017, 23h18
EricDgn

Bon, en cherchant un peu, j'en arrive à la conclusion que le code VBA employé convenait pour les versions antérieures à Excel 2007. Ce code est encore utilisable parce qu'une certaine compatibilité ascendante a été prévue, mais comme on le voit dans ce cas ci, elle n'est pas parfaite.
En fait depuis Excel 2007, il faut gérer le "ruban".
Personnellement comme j'ai des machines en version 2007 et 2010, j'utilise pour cela l' assistant ruban pour Office. Vraiment top.
Bonne continuation.
01/08/2017, 11h55
Nicoderome

Citation:

Envoyé par EricDgn

Bon, en cherchant un peu, j'en arrive à la conclusion que le code VBA employé convenait pour les versions antérieures à Excel 2007. Ce code est encore utilisable parce qu'une certaine compatibilité ascendante a été prévue, mais comme on le voit dans ce cas ci, elle n'est pas parfaite.
En fait depuis Excel 2007, il faut gérer le "ruban".
Personnellement comme j'ai des machines en version 2007 et 2010, j'utilise pour cela l' assistant ruban pour Office. Vraiment top.
Bonne continuation.

Merci et bonne route