Contrôle Active X - Combobox Selection d'une Feuille

[Regueiro]

Bonsoir à Tous.
J'ai créer sur une feuille ("Accueil") un contrôle active X
de type =INCORPORER("Forms.ComboBox.1";"")

J'alimente la combobox ainsi :

Private Sub ComboBox1_GotFocus()
'Pour alimenter un combobox créer sur une feuille
'avec un contrôle Active x de type =INCORPORER("Forms.ComboBox.1";"")
ComboBox1.ListFillRange = "DV_NomsFeuilles"
End Sub

De ce côté pas de problème.

Lorsque je sélectionne un choix dans la combobox.
Elle sélectionne la feuille concernée.
Mais je ne peux plus revenir sur la première feuille ("Accueil")
ou se trouve le contrôle.
Bug

Private Sub ComboBox1_Change()
Sheets(Me.ComboBox1.Value).Select

  'm = Me.ComboBox1
  'Sheets(m).Select

End Sub

Merci de votre Aide.

Je prépare un fichier vierge et je vous le mets en PJ
dans un instant.
A+

 

[Regueiro]

Re : Contrôle Active X - Combobox Selection d'une Feuille

Re
Voici le fichier en Question

MErci

 

[Staple1600]

Re : Contrôle Active X - Combobox Selection d'une Feuille

Bonsoir à tous

Regueiro
J'ai testé sur Excel 2003.
Je n'ai pas rencontré de bug.
Je peux sélectionner la feuille ACCUEIL sans problème.

PS: Excel 2003 oblige, J'ai du convertir ton *.xlsm en *.xls, ce qui m'oblige à supprimer le combo puis à en insérer un nouveau.
PSBis: Héritage de l'ancienne version de lacharte du forum, j'ai inhibé ton workbook_open() qui définit un ScrollArea
Je ne penses pas que cela vienne de la?
Je te laisse tester la chose.

 

[Regueiro]

Re : Contrôle Active X - Combobox Selection d'une Feuille

Bonsoir.
En effet j'ai fait comme toi et cela marche au format *.xls
Supprimer la combo et recréer OK.
Enregistre le fichier au format *.xlsm et Ok
???
MErci