Discussion :

[Nicoderome]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Nicoderome]

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.

[kiki29]

Salut, relire la FAQ

[Nicoderome]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

	

		

			

			
				
				
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

[kiki29]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nicoderome]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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.

[Nicoderome]

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

[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.

[Nicoderome]

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