Activer feuille via combobox

[steven542304]

Bonjour le forum,

J'ai dans un formulaire une combobox me permettant de sélectionner une feuille à afficher.
Pour situer mon problème, j'ai une base de donnée sur plusieurs feuilles que j'alimente via mon formulaire.
Hormis ma combobox me permettant de sélectionner la feuille, j'en ai une autre qui doit se remplir en fonction de la feuille active.
C'est la le problème : je n'arrive pas à activer la feuille sélectionnée dans ma combobox ; elle s'affiche sans soucis, les données se placent sans soucis, mais c'est toujours la feuille 1 (feuille depuis laquelle j'ouvre mon formulaire) qui reste active. Ma seconde combobox que je voudrais remplir avec les données de ma feuille censée être active, se remplit toujours avec les données de ma feuille 1.

Mon code :

Private Sub ONGLET_CHANGE()

Worksheets(ONGLET.Value).Activate

End Sub

Private sub userform_initialize

 For i = 1 To Sheets.Count
  Me.ONGLET.AddItem Sheets(i).Name
  Next i

End sub

 

[blord]

Bonjour,

Peut-être comme ceci :


Dim nomfeuille As String

nomfeuille = ONGLET.Value
nomfeuill.activate

pas tester....

 

[Spitnolan08]

Bonsoir le fil,

Pour info, j'ai testé et ton code fonctionne...

Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Value).Activate
End Sub

Private Sub userform_initialize()
For i = 1 To Sheets.Count
  Me.ComboBox1.AddItem Sheets(i).Name
  Next i
End Sub

Bonne soirée