utilisation userform ComboBox

Bonjour à tous,


je souhaite faire figurer dans la comboBox (liste déroulante) d'un userform l'ensemble des noms des onglets contenus dans la feuille Excel.

Lorsque je rajoute, supprime ou change le nom des onglets ces modification devront automatiquement être prises en compte dans la comboBOX

Finalement j'aimerais savoir comment faire référence au contenu sélectionné dans la comboBox afin de celui-ci puisse être utilisé comme nom de variable dans mon code vba.

Merci pour votre aide

bjr, gaston64
à mettre dans le code de l'userform pour alimenter la combo avec le nom des feuilles:

Code:

---

1 2 3 4 5 6

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

---

pour utiliser la combo il faut se servir de l'évènement change de la combobox. Par exemple pour activer la feuille sélectionnée dans la combo (à mettre dans la page de code del'userform) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() 'ex pour ouvrir la feuil sélectionnée Sheets(Me.ComboBox1.Value).Activate   'pour mettre la valeur sélectionnée dans une variable 'ici le contenu est du texte donc : dim mavariable as string mavariable = me.combobox1.value msgbox mavariable End Sub

---

@+

Merci pour la réponse,

toutefois, je ne parviens pour l'instant pas à faire référence au contenu de la comboBox

Dans mon cas je souhaiterai traduire:

Code:

---

Set f= Sheets("nom_de_la_feuille")

---

De plus est-il possible de garder en mémoire la dernière feuille selectionner dans la comboBox, afin de ne pas avoir a re-selectionner parmi la liste des onglets proposés dans la comboBx, lors du prochain lancement du code?

Merci