Discussion :

[Stiard]

Bonsoir à tous,
je suis débutant dans Visual Basic donc j'ai encore quelques difficultés à tout comprendre... c'est pourquoi j'ai besoin de votre aide!

J'ai créé un Menu que je peux ouvrir à partir d'un bouton qui se trouve sur une feuille de mon classeur excel, et j'aimerais pouvoir dans ce menu cliquer sur le nom d'une feuille du classeur excel pour y accéder sans avoir à faire un bouton de commande par feuille! Donc soit une zone de liste, soit une combobox (je ne sait pas ce qui est le mieux)...

J'ai réussi à afficher le nom des feuilles dans ma liste et dans ma combobox, mais je ne sais pas comment je peux récupérer la valeur sur laquelle je clique dans mon menu pour entrer une procédure par la suite....

Si quelqu'un pouvait m'aider ça serait super!

Voici un exemple de ce à quoi ça ressemble si ça peut vous aider à comprendre



Donc pour résumer: j'aimerais qu'en cliquant sur "Feuil1" ou "Feuil2" ou "..." , un code m'envoie sur la feuille demandée...

Merci d'avance pour vos réponses et bonne soirée.

[Thautheme]

Bonsoir Stiard, bonsoir le forum,

Entre la ComboBox ou la ListBox je ne sais trop quoi te conseiller. C'est à toi de voir. Si tu as peu d'onglets et que la ListBox peut les afficher tous, elle sera peut-être plus pratique que la ComboBox où il te faudra cliquer d'abord pour afficher le début de la liste...

Le codes pour les deux, tu supprimeras la partie qui ne t'intéresse pas :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim O As Object
 
For Each O In Sheets
    Me.ComboBox1.AddItem O.Name
    Me.ListBox1.AddItem O.Name
Next O
End Sub

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex <> -1 Then
    Sheets(Me.ComboBox1.Value).Select
    Unload Me
End If
End Sub

Code :

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

1
2
3
4
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
Unload Me
End Sub

[Stiard]

Bonjour Thautheme et bonjour au forum,

J'ai bien fais de me tourner vers ce forum, réponse rapide et claire, c'est exactement ce que je cherchais à faire... Et je vais utiliser la combobox car j'ai tout de même 38 feuilles à mettre dedans
Merci beaucoup Thautheme pour ta réponse !