[vba-xl 03] barre d'outil perso

Version imprimable

salut
-j'ai créer une barre d'outil qui se créer à l'ouverture du fichier : OK
-dans cette barre, il y a une liste déroulante qui liste les 50 feuilles de mon classeur : OK

le pb :
je ne sais pas comment faire pour activer la feuille en question qd je clic sur le bouton de la liste déroulante ....

un bout de code ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 [...] Set feuille = labarre.Controls.Add(msoControlPopup) With feuille feuille.Caption = "Choix &Feuille" For Each ws In Worksheets Set Button = feuille.Controls.Add(msoControlButton) Button.Caption = ws.Name Button.OnAction = "OuvrFeuille" Next ws End With End Sub .......... Sub OuvrFeuille() Sheets(???).Activate End Sub
il doit y avoir un passage de paramètre à faire, je sais pas trop .....
sinon je peux faire 50 macro pour mes 50 feuilles :? mais il doit y avoir + efficace ....
j'espere avoir été asssez clair ....
si vous avez des idées ... merci !

jp

30/08/2007, 11h55
ouskel'n'or

Où se trouve le nom de tes feuilles ?
30/08/2007, 12h20
jpo

Salut

Le nom des feuilles je le place dans le caption...

Code:

Button.Caption = ws.Name

d'où la boucle For Each

je peux peut etre jouer avec l'index des feuilles?
mais comment passer en paramètres ? je coince

merci
jp
30/08/2007, 14h48
sl.info

Avec les classes d'objet

Tu trouveras surement solution à ton pb sur cette discussion
Savoir sur quel bouton créé dynamiquement l'utilisateur a cliqué

Hello,

sans critiquer la source de Pierre, je me permets de proposer une solution peut être un peu plus courte ...

j'imagine que ça doit marcher pour les boutons d'une barre d'outils ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub boutons()
    Dim sh As Worksheet
    Dim bt As Button
    Dim count As Long
 
 
    ' sub qui crée un bouton par onglet ...
    For Each sh In ActiveWorkbook.Sheets
        Set bt = ActiveSheet.Buttons.Add(10, 10 + (25 * count), 108, 21)
        count = count + 1
        bt.OnAction = "GotoSheet"
        bt.Caption = "Aller sur => " & sh.Name
    Next sh
 
    Set bt = Nothing
    Set sh = Nothing
End Sub
 
 
Sub gotosheet()
    Dim str As String
    ' récupère le texte du bouton qui a été cliqué
    str = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
    ' active la feuille désignée par le clic
    Sheets(Split(str, "=> ")(1)).Activate
End Sub

30/08/2007, 17h53
SilkyRoad

bonsoir

Comment savoir quel bouton d'une barre personnalisée a été cliqué ?

Et sinon pour faire vraiment plus court ... ;o)

Code:

Application.CommandBars("Workbook tabs").ShowPopup 400, 100

bonne soirée
michel
31/08/2007, 10h35
jpo

merci à tous pour toutes ces tres tres bonnes infos !
j'ai de quoi tester now ! :king:

encore merci !!

good job !
jp