Discussion :

[gaston64]

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

[rvtoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[gaston64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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