Userform pour aller vers feuille à choisir

Bonjour
Exemple ici :
http://cjoint.com/data/jpnaIKHUKv.htm

Cordialement
Pascal

"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: BF1B9CE7-83D5-4D84-B76F-8F906CA956B8@microsoft.com...

Salut à tous...
Et merci bien de tous vos petits conseils...;)
Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir créer
un
userform dans lequel quelqu´un introduit le nom de la feuille qu´il veut
voire et ça saute direct vers A1 de la feuille choisie...
Merci une fois de plus...
Et à plus...;)

Bonjour,

http://cjoint.com/?jpnwckxoJC

Liste triée des onglets du classeur

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

Version avec tri:

Private Sub UserForm_Initialize()
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Me.ComboBox1.List = temp
End Sub

On peut également créer un combo directement dans une feuille sans
formulaire:

Private Sub Workbook_Open()
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp
End Sub

Private Sub ChoixOnglet_Change()
m = ChoixOnglet
Sheets(m).Select
End Sub


Cordialement JB

Salut à tous...
Et merci bien de tous vos petits conseils...;)
Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir c réer un
userform dans lequel quelqu´un introduit le nom de la feuille qu´il v eut
voire et ça saute direct vers A1 de la feuille choisie...
Merci une fois de plus...
Et à plus...;)