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