Barre d'Outil encore et toujours !

[thomas]

Bonjour le forum,

Est-ce que qq'un sait comment faire une barre d'outils genre celle qui a dans Affichage>Barre d'outils , cad une barre d'outils où sont cocher les éléments actifs. Quelle est l'option en VBA à écrire ?

Merci,
ThomaS.

 

[@+Thierry]

Bonjour Patrick

Heu une barre d'outils directement ... je ne pense pas.

Mais un UserForm avec une ListBox paramétrée sur "fmListStyleOption" peut faire ceci.

Une exemple d'initialize de UserForm pour faire ceci :

Private Sub UserForm_Initialize()
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.AddItem "Zaza"
.AddItem "Toto"
.AddItem "Zozo"
.AddItem "Lulu"
.AddItem "Titi"
End With
End Sub

PS ce paramétrage peut aussi se faire sans VBA par la fenetre Propriétés de la ListBox.

Bon Aprèm
@+Thierry

 

[thomas]

Merci Thierry,

Tu viens de me donner une idée. Cool !

@ bientôt,

PS: Patrick c'est joli, mais je préfère Thomas

 

[@+Thierry]

Oups

Absolument désolé Thomas !!

C'est parceque exactement 8 minutes avant de faire ce post je venais aussi de doner une solution à Lien supprimé

Enfin le principal c'est que je ne me soies pas trompé de fil pour donner les solutions, sinon tu te serais retrouvé avec une macro pour faire changer la valeur boolean d'un OptionButton par simple click... et tu m'aurais vraiment pris pour un fou !!

Encore Sorry Thomas !!
Bonne Soirée
@+Thierry

 

[thomas]

No soucy Thierry !

Tu aides tellement de monde que tu peux te tromper

Merci encore, @ +.