Bonjour,
je voudrais régler la larguer d'un bouton en fonction du texte:
voici mon code
la méthode width ne règle rien mon bouton reste toujours à la même largeur
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
qu'est ce que j'ai oublié ?
merci pour l'info
Partager