les nons des feuilles

[petchy]

Bonsoir le Forum,
comment récupéré dans un combobox qui est dans un USF les nons des feuilles

Petchy

 

[Dan]

Bonsoir Petchy,

Est-ce que la solution proposée par Thierry dan ce fil te convient ?

<http://www.excel-downloads.com/html/French/forum/messages/1_65723_65723.htm>

Si pb n'hésite pas

@+

Dan

 

[petchy]

Re
merci Dan,

quand je modifi le code Thierry par une combobox j'ai une erreur..
merci quand meme
@ plus
petchy

 

[omicron]

Bonsoir Petchy,

Si dans ton classeur tu as un UserForm dont le nom est "UserForm1", et que dans cet UserForm tu as une ListBox dont le nom est "TextBox1", il suffit par exemple de programmer l'évènement SheetActivate de l'objet WorkBook de la façon suivante pour obtenir le résultat escompté.

=====================================================
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UserForm1.ListBox1.Clear
For Each Sht In Sheets
UserForm1.ListBox1.AddItem Sht.Name
Next Sht
End Sub
=====================================================

Cordialement.

Omicron.

 

[petchy]

bonjour Omicron et le forum

merci Omicron pour le code,je viens d'essayé mais ça ne fonctionne pas.
@ plus
petchy

 

[omicron]

Bonjour Petchy,

Je t'envoie en pièce jointe un exemple qui marche et qui initialise à la fois une combobox et une listbox.

Comme je ne connais pas bien le contexte dans lequel tu utilises ce code, je l'ai déplacé dans la séquence de traitement de l'évènement Initialize de l'objet Userform. Le chargement sera donc déclenché chaque fois que tu ouvres la feuille.

=====================================================Private Sub UserForm_Initialize()
'Chargement ComboBox1 et ListBox1
UserForm1.ComboBox1.Clear
UserForm1.ListBox1.Clear
For Each Sht In Sheets
UserForm1.ComboBox1.AddItem Sht.Name
UserForm1.ListBox1.AddItem Sht.Name
Next Sht
End Sub
=====================================================

Si cela ne marche toujours pas, merci d'envoyer le fichier Excel qui pose problème.

@+

Omicron

 

[Minick]

Salut,

Le code de Omicron fonctionne tres bien(mis a part le ListBox a la place du Combo).
Le seul probleme c'est que si ton UserForm n'a pas été initialisé
et affiché en non modal a l'ouverture du fichier, tu ne vois pas
ton Combo se mettre à jour à chaque changement de feuille.

Essai comme ca pour simplement Afficher ton Userform à partir d'un Bouton par exemple:
Dans le code du Usf:

Private Sub UserForm_Initialize()
Dim Sht as WorkSheet

For Each Sht In Sheets
ComboBox1.AddItem Sht.Name
Next Sht
End Sub

J'ai simplement repris le cade de Omicron avec des Combos.

Ensuite tu crées un bouton pour afficher ton Userform:
(Ici j'ai Utilisé un bouton de la Boite a Outils Controles)
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Voila, a toi de l'adapté a tes besoins maintenant ou revien nous voir ;o)

@+ Minick

 

[Minick]

Re,

Désolé Omicron,

On s'est croisé

@+ Minick

 

[petchy]

Bonjour,Omicron, Minick et le Forum,
Désolé de ne pas avoir répondu plus tôt,car je suis parti quelques jours.

,à tous les deux ça fonctionne

Petchy