CommandBar avec variable

Version imprimable

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:

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 :

Citation:

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 =)

03/04/2012, 11h21
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.
03/04/2012, 11h41
sweetdood

Bonjour fring,

Merci de ta réponse rapide.

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

A bientôt

Bonjour,

Par double clic sur la feuille

Code:

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

03/04/2012, 13h41
fring
:aie:

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:

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
03/04/2012, 13h46
sweetdood
Citation:
Envoyé par JPierreM

Bonjour,

Par double clic sur la feuille

Code:

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 =)
03/04/2012, 13h48
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:

choix = CommandBars("BarreDeplacement").Controls(Application.CommandBars.ActionControl.Index).Text
03/04/2012, 13h49
sweetdood
Citation:
Envoyé par fring

:aie:

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:

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 !
03/04/2012, 13h51
sweetdood

Citation:

Envoyé par 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:

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

Comment ça marche ActionControl et Index ?

EDIT : ok je viens de saisir... c'est l'heure de la sieste au temps pour moi =)