combobox plutot que liste deroulante

[ptifanou]

Bonjour à tous

Je cherche à remplacer le code de la macro ci dessous qui permet d'aller sur une feuille selon la valeur choisit dans une liste déroulante, par la même valeur choist dans une combobox

Sub CHOIXFEUILLE()

Sheets(Range("C3").Value).Select
End Sub
j'ai essayé

Sub CHOIXFEUILLE()
Sheets(ComboBox1.Value).Select
end sub
mais cela ne fonctionne pas.

 

[M12]

Bonjour,

Teste comme ceci

Sub CHOIXFEUILLE()
  Dim f As String
  f = Sheets("Feuil1").ComboBox1.Value
  Sheets(f).Activate
End Sub

 

[ptifanou]

merci beaucoup M12!!