Discussion :

[jpo]

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 :

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

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

[ouskel'n'or]

Où se trouve le nom de tes feuilles ?

[jpo]

Salut

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

Code :

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

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

[sl.info]

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

[cafeine]

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 :

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

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

[SilkyRoad]

bonsoir



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



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

Code :

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

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

bonne soirée
michel

[jpo]

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

encore merci !!

good job !
jp