Liste des onglets dans une feuille calcul Excel

[rlebigre]

Bonjour à tous,

J'ai un fichier Excel comportant un certain nombre d'onglet. Lorsque je créer des onglets 'manuellement', je suis obligé de mettre à jour la liste des onglets dans un des onglets du fichier Excel. En fait cette liste me sert dans un Combobox afin de sélectionner un onglet et d'ajouter des infos dedans.

En fait je voudrais que la liste se mette à jour à chaque ouverture du classeur.

Autres point que je n'arrive pas à résoudre.
Je voudrais que la liste se créer sans prendre en compte 2 onglets ayant des noms bien distincts ('Accueil' et 'tab')

Merci de l'aide que vous pourriez m'apporter.

Cordialement.

 

[JLOr]

Bonjour,

Envoie ton fichier en pièces jointes (format zip).

Avant tout développement, sais-tu qu'un clic droit sur les 4 flèches qui permettent de naviguer entre tous les onglets (en bas à gauche de l'écran) fait apparaitre la liste des feuilles et te permet d'en choisir une facilement.

JLOr

 

[rlebigre]

Salut!

Voila un exemple de mon fichier. [file name=Classeur1_20050725143653.zip size=12846]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050725143653.zip[/file]

 

[Hervé]

bonjour rlebigre, jlor (on se croirait dans une film de SF avec vos speudos )

Une proposition, sans passer par une feuille, directement dans l'userfom :

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

salut

 

[rlebigre]

Salut Hervé,

Merci beaucoup de ton aide. Cela marche tres bien.

A la prochaine

 

[rlebigre]

Re-bonjour

J'ai oublié de demander s'il existait un moyen de classer par ordre alphabétiques les feuilles dans la combobox

Merci de m'expliquer comment c'est faisable.

A+

 

[Hervé]

re

Je suppose que c'est les items de la combobox que tu veux classer, pas les feuilles du classeur.

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

salut

 

[rlebigre]

Re,
C'est tout à fait ce que je cherchais à faire

Merci beaucoup de ton aide.

A+