largeur de commandbars

Version imprimable

Bonjour,
je voudrais régler la larguer d'un bouton en fonction du texte:
voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub init_boutons() ' detruit les boutons existants For Each bar In Application.CommandBars bar.Delete Next ' crée le bouton Set Cbar = CommandBars.Add(Name:="gestion", temporary:=True) ' je mesure la largeur du bouton pour vérifier a = CommandBars("gestion").Width ' j'essaie de régler la largeur mais ça ne marche pas CommandBars("gestion").Width = 150 With Cbar .Visible = True End With End Sub
la méthode width ne règle rien mon bouton reste toujours à la même largeur

qu'est ce que j'ai oublié ?

merci pour l'info

25/06/2012, 15h26
fring

Bonjour,

De mémoire je dirais que la largeur de la barre de menu ne se règle pas mais est réglée automatiquement en fonction du nombre de contrôles et de leurs largeurs.

Tu veux ajuster la largeur d'un bouton mais avec ton code tu essayes de régler la largeur de la barre de menu.

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
34
35
Sub tue_boutons()
 
End Sub
 
 
Sub init_boutons()
 
  On Error Resume Next
For Each bar In Application.CommandBars
   bar.Delete
Next
Set Cbar_proj = CommandBars.Add(Name:="gestion", Temporary:=True)
 
a = CommandBars("gestion").Width
'CommandBars("gestion").Width = 150
 
'ajouter les commandes
Style = msoControlEdit
 
 
  Set Maj = Cbar_proj.Controls.Add(Style)
 
With Maj
 .TooltipText = " mise à jour des projets"
 .Tag = "mise à jour des projets "
 .Caption = " Mise à jour des projets"
 OnAction = "maj_proj"
 
End With
 
With Cbar_proj
      .Visible = True
End With
 
End Sub

ok vous avez raison
donc voici mon nouveau code

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
Sub init_boutons()
 
  On Error Resume Next
For Each bar In Application.CommandBars
   bar.Delete
Next
Set Cbar_proj = CommandBars.Add(Name:="gestion", Temporary:=True)
 
a = CommandBars("gestion").Width
'CommandBars("gestion").Width = 150
 
'ajouter les commandes
Style = msoControlEdit
 
  Set Maj = Cbar_proj.Controls.Add(Style)
 
With Maj
    .TooltipText = " mise à jour des projets"
    .Tag = "mise à jour des projets "
    .Caption = " Mise à jour des projets"
     .OnAction = "maj_proj"
 
End With
 
With Cbar_proj
      .Visible = True
End With
 
End Sub

ce qui ne marche pas est .tag et .caption car je n'arrive pas à visualiser le titre du bouton.

en fait je voudrais mettre deux boutons "Mise à jour " et "nouveau"

25/06/2012, 16h05
fring

J'ai du mal à te suivre, tu parles d'un bouton mais c'est une zone de texte que tu ajoutes :koi:

Jette un oeil ICI
26/06/2012, 07h48
Patnel

c'est ça que je voudrais comprendre:
je veux faire un bouton de commande qui va contenir deux options :
"Mise à jour " et "nouveau"
donc je veux faire apparaitre ces noms, c'est juste l"appui sur une de ces options qui va déclencher la macro rorespondante
peut être que je confond avec autre chose.

dans le tutorial je ne trouve pas vraiment le solution

Citation:

Envoyé par Patnel

dans le tutorial je ne trouve pas vraiment le solution

:calim2:

Tu as toutes les solutions possibles dans le tuto, il faut évidemment légèrement adapter à ton cas...

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
Sub test()
Dim Cbar As CommandBar, Cbut As CommandBarButton
 
Set Cbar = CommandBars.Add(Name:="Gestion", Position:=msoBarTop, Temporary:=True)
Cbar.Visible = True
 
Set Cbut = Cbar.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption
    .TooltipText = "mise à jour des projets"
    .Tag = "mise à jour des projets"
    .Caption = "Mise à jour des projets"
    .OnAction = "maj_proj"
End With
 
Set Cbut = Cbar.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption
    .TooltipText = "Nouveau projet"
    .Tag = "Nouveau projet"
    .Caption = "Nouveau projet"
    .OnAction = "nouv_proj"
End With
 
Set Cbar = Nothing
Set Cbut = Nothing
 
End Sub

26/06/2012, 13h55
Patnel

bravo merci c'est tout à fait ça