Info Bulle

[Jean Yves]

Bonjour

J'ai créé une barre d'outils personnalisée et je souhaite modifier le nom des "Info Bulle" par programmation mais je ne trouve pas la commande pour le faire.

Merci

 

[POLO]

Bonjour,

Tu colles ça dans un module:

Const NomBar1 = "Personnalisé 1"
Const NomBouton1 = "Copier"
Dim a As String

Sub RechercheInfobulle()
' init du compteur de barres
cpt = 0
' Pour chaque barre on stocke l'indice qui lui correspond :
For Each Item In Application.Toolbars
cpt = cpt + 1
If Item.Name = NomBar1 Then IndiceBar1 = cpt

Next
cpt1 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar1).ToolbarButtons
cpt1 = cpt1 + 1
If Bouton.Name = NomBouton1 Then IndiceBouton1 = cpt1
Next



Application.Toolbars.Item(IndiceBar1).ToolbarButtons.Item(IndiceBouton1).Name = "Nouveau nom"
End Sub




Cette macro change le nom de l'info bulle du bouton "toto" de la barre d'outils "Personnalisé1"

Tu n'as qu'à changer les deux constantes en début de code, et/ou en rajouter (autant que tu as d'actualisations à effectuer).

exemple avec deux :

Const NomBar1 = "Personnalisé 1"
Const NomBar2 = "Personnalisé 2"
Const NomBouton1 = "Nouveau Nom"
Const NomBouton2 = "Nouveau"
Dim a As String

Sub RechercheInfobulle()
' init du compteur de barres
cpt = 0
' Pour chaque barre on stocke l'indice qui lui correspond :
For Each Item In Application.Toolbars
cpt = cpt + 1
If Item.Name = NomBar1 Then IndiceBar1 = cpt
If Item.Name = NomBar2 Then IndiceBar2 = cpt
Next
cpt1 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar1).ToolbarButtons
cpt1 = cpt1 + 1
If Bouton.Name = NomBouton1 Then IndiceBouton1 = cpt1
Next
cpt2 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar2).ToolbarButtons
cpt2 = cpt2 + 1
If Bouton.Name = NomBouton2 Then IndiceBouton2 = cpt2
Next



Application.Toolbars.Item(IndiceBar1).ToolbarButtons.Item(IndiceBouton1).Name = "tata"
Application.Toolbars.Item(IndiceBar2).ToolbarButtons.Item(IndiceBouton2).Name = "titi"
End Sub


------------------------------


Et si tu en as des tas, il faudra songer à construire une fonction pour réduire le volume du code....



voili voilu

POLO