Discussion :

[Patnel]

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

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

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

[Patnel]

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
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 :

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
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"

[fring]

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

Jette un oeil ICI

[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

[fring]

dans le tutorial je ne trouve pas vraiment le solution

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

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

[Patnel]

bravo merci c'est tout à fait ça