Discussion :

[sweetdood]

Bonjour à tous,

Voilà mon problème : je souhaitais faire un petit menu, appelé "BarreDeplacement" qui avait pour but de se déplacer plus facilement entre les feuilles de mon classeur. A l'aide d'un menu déroulant, je séléctionne le nom de la feuille qui m'intéresse et le changement de feuille s'opère suite à cette manipulation.
Cependant, les noms des feuilles pourront changer à court terme, ce qui fait que je me devais d'utiliser une formule permettant la flexibilité de ce menu.

J'ai à peu près réussi à coder ce que je voulais, sauf qu'il y a malheuresement une erreur que je n'arrive vraiment pas à résoudre... d'où mon appel à l'aide =)

Voici le 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub BarreBoutons()
    Dim barre As CommandBar
    Dim bouton As CommandBarControl
    On Error Resume Next
    CommandBars("BarreDeplacement").Delete
    Set barre = CommandBars.Add(Name:="BarreDeplacement")
    barre.Visible = True
 
    Set Menu = CommandBars("BarreDeplacement").Controls.Add(Type:=msoControlComboBox)
    For S = 1 To Sheets.Count
        Menu.AddItem Sheets(S).Name
    Next S
    Menu.OnAction = "OutilSelection"
    Menu.Text = "Selectionner"
End Sub
 
 
Sub auto_close()
   On Error Resume Next
   ActiveWindow.Visible = False
   'Windows(ThisWorkbook.Name).Visible = False
End Sub
 
 
Sub OutilSelection()
Dim choix As String
 
  Application.ScreenUpdating = False
  choix = CommandBars("BarreDeplacement").Controls(1).Text
  Sheets(choix).Select
End Sub

L'erreur intervient sur la ligne 29 :

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

Cette erreur arrive lorsque je séléctionne la feuille qui m'intéresse dans le menu déroulant.

J'espère que vous pourrez m'éclairer ! Merci d'avance et bonne journée =)

[fring]

Bonjour,

Le code fonctionne sans problème chez moi, je n'arrive pas à reproduire l'erreur. Si tu peux, joins une copie de ton fichier en ayant au préalable enlevé les données confidentielles.

[sweetdood]

Bonjour fring,

Merci de ta réponse rapide.

Voici le fichier. C'est peut être un problème de compatibilité ?

A bientôt

[JPierreM]

Bonjour,

Par double clic sur la feuille

Code :

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

1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.CommandBars("Workbook tabs").ShowPopup 
End Sub

JP

[fring]

Le code contenu dans ton fichier n'est pas le même que celui que tu as inséré dans ton message.

Dans ton fichier tu ajoutes un bouton "Fiche" en plus et donc le combobox n'est plus le contrôle n°1 mais le n°2...

Code :

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

1
2
3
4
5
6
Sub OutilSelection()
Dim choix As String
  Application.ScreenUpdating = False
  choix = CommandBars("BarreDeplacement").Controls(2).Text
  Sheets(choix).Select
End Sub

[sweetdood]

Le code contenu dans ton fichier n'est pas le même que celui que tu as inséré dans ton message.

Dans ton fichier tu ajoutes un bouton "Fiche" en plus et donc le combobox n'est plus le contrôle n°1 mais le n°2...

Code :

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

1
2
3
4
5
6
Sub OutilSelection()
Dim choix As String
  Application.ScreenUpdating = False
  choix = CommandBars("BarreDeplacement").Controls(2).Text
  Sheets(choix).Select
End Sub

Je suis partagé entre la honte et la stupidité :/

Merci beaucoup ça marche nickel =) Merci à vous deux d'avoir accordé du temps à mon problème!

Bonne journée et à bientôt !

[sweetdood]

Bonjour,

Par double clic sur la feuille

Code :

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

1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.CommandBars("Workbook tabs").ShowPopup 
End Sub

JP

Bonjour,

Ta solution me paraît intéressante, malheuresement je ne serai pas utilisateur de cet outil et j'imagine que certaines personnes utilisent le double clique pour modifier le contenu d'une case.
De plus l'aspect d'un menu me semblait plus esthétique.

Je garde néanmoins ta solution sous le coude, c'est simple et efficace. Merci =)

[fring]

En complément de ma réponse précédente, pour être certain de pointer vers le bon contrôle (au cas où tu en ajoutes d'autres), tu peux faire comme ceci :

Code :

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

choix = CommandBars("BarreDeplacement").Controls(Application.CommandBars.ActionControl.Index).Text