Discussion :

[andre260]

Bonjour,
dans un classeur, j'ai une barre d'outil perso
plusieurs boutons qui lancent les macros
au survol de ceux ci avec la souris c'est toujours :
"MaBarrePerso" qui apparait d'ou la question
quelle est le code dans cette suite à ecrire

Code :

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

1
2
3
4
5
With Bouton
         .FaceId = 436
        .OnAction = "Ouv_Graph_Dyn"
         . ?????
    End With

dans la liste deroulante j'ai essayé plusieurs codes comme contoltiptext
sans succes
merci de vos idées

[bboy-eazy]

bonjour,

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
Sub AddButtons()
Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
'   Crée la barre d'outils
    On Error Resume Next
    CommandBars("Nom").Delete
    On Error GoTo 0
    Set TBar = CommandBars.Add
    With TBar
        .Name = "Nom"
        .Position = msoBarTop
        .Visible = True
    End With
 
'   Icône et légende habillée en dessous
    Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
    With NewBtn
        .BeginGroup = True
        .Style = msoButtonIconAndWrapCaptionBelow
        .Caption = "Nom à mettre"
        .FaceId = 316
        .OnAction = "Macro1"
    End With

en gros c'est ca qui est interessant pour vous:

Code :

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

.caption = "Nom à mettre"

[andre260]

merci c'était "caption"
faut vraiment que je sois aveugle de ne pas l'avoir vu
dans la liste deroulante proposé
mais quel c... je suis des fois
enfin ca marche
bonne soirée