Discussion :

[rv-80]

Peux-on insérer des séparateurs entre les boutons dans une barre outils perso (créée dans une macro)

Par ailleurs, je réitère ma question d'il y a qq jours :
Comment fait-on pour associer une action à chaque choix d'une liste de choix (ComboBox) dans une barre outils perso (je sais seulement créer la barre outils et la ComboBox)

Merci

[fred65200]

bonjour,

pour insérer un séparateur, je crois que c'est

Code :

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

.BeginGroup = True

cordialement


EDIT pour ta comboBox tu dois avoir

Code :

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

1
2
 
.OnAction = "macro1"

et dans ta macro quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Macro1()
'ici "custom" est le nom que tu as donné as ta barre, à adapter
'select case CommandBars("custom").Controls(1).Text
'ou
select case CommandBars("custom").Controls(1).Index
case 0:msgbox CommandBars("custom").Controls(1).Text
case 1: msgbox "merci fred65200"
end select

[rv-80]

en fait il faut utiliser le code suivant :

Code :

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

select case CommandBars("custom").Controls(1).ListIndex

Index est la position de la boîte (ou du bouton) dans la barre
Text est la valeur (le texte) du choix dans la boîte-liste
ListIndex est la position du choix dans la boîte-liste et commence à 1

le (1) de Controls(1) est, d'ailleurs, l'Index


Merci pour les réponses