Controltiptext et barre d outil perso?

[Sébastien]

Bonjour le forum

Je voudrais savoir si il est possible d'ajouter une information du type 'controltiptext' sur un bouton d'une barre d'outil personnalisée.

Je crée ma barre d'outil avec le code suivant :
'
Dim MaBar, Btn1, Btn2, Btn3, Btn4, Btn5, Btn6, Btn7, Btn8, Btn9, Btn10

On Error Resume Next
Set MaBar = Application.CommandBars.Add('barre')
With MaBar
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 41
.OnAction = 'macro1'
End With
[...]
'

Merci d'avance

Sébastien

 

[myDearFriend!]

Bonjour Sébastien, le Forum,

Tu devrais sans doute pouvoir essayer :

...
...
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
      .FaceId = 41
      .OnAction = 'macro1'
      .TooltipText = 'Ma Bulle d'Info...'
End With

Cordialement,

 

[Sébastien]

Bonjour myDearFriend!

Merci, ca marche impeccable!

J avais essaye .controltypetext='...' sans succès

a+

Sébastien