Liste des onglets dans une feuille calcul Excel

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Select
Unload UserForm1
End Sub

Private Sub userform_initialize()
Dim ws As Worksheet

For Each ws In Worksheets
&nbsp; &nbsp; If ws.Name <> 'Tab' And ws.Name <> 'Accueil' Then
&nbsp; &nbsp; &nbsp; &nbsp; ComboBox1.AddItem ws.Name
&nbsp; &nbsp; End If
Next ws

&nbsp; &nbsp; &nbsp; &nbsp;
End Sub

Cliquez pour agrandir...

Private Sub userform_initialize()
Dim ws As Worksheet
Dim i As Byte, j As Byte
Dim temp As String

For Each ws In Worksheets
&nbsp; &nbsp; If ws.Name <> 'Tab' And ws.Name <> 'Accueil' Then
&nbsp; &nbsp; &nbsp; &nbsp; ComboBox1.AddItem ws.Name
&nbsp; &nbsp; End If
Next ws

For i = 0 To ComboBox1.ListCount
&nbsp; &nbsp; For j = i + 1 To ComboBox1.ListCount - 1
&nbsp; &nbsp; &nbsp; &nbsp; If ComboBox1.List(i) > ComboBox1.List(j) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; temp = ComboBox1.List(i)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ComboBox1.List(i) = ComboBox1.List(j)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ComboBox1.List(j) = temp
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; Next j
Next i
&nbsp; &nbsp; &nbsp; &nbsp;
End Sub

Cliquez pour agrandir...