Affichage du nom de la feuille dans la "ComboBox" par défaut

  • Initiateur de la discussion Initiateur de la discussion BChaly
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BChaly

XLDnaute Occasionnel
Bonsoir à Tous,

Je viens de réaliser un fichier avec 3 feuilles (Sheet1, Sheet2, Sheet3) comportant chacune une "ComboBox" (réalisée à partir de la "Control Toolbox"). Ceci, afin d'ouvrir une seule feuille à la fois. Dans une 4eme feuille (List) se trouve la liste des noms des feuilles alimentant les 3 "Combobox", et je ne souhaite pas me passer de cette feuille (List).

Mon bricolage fonctionne très bien, mais dans la ComboBox de la feuille qui est sélectionnée (Sheet1, Sheet2 ou Sheet3) je ne réussi pas à afficher par défaut le nom de la feuille dans laquelle se trouve cette "Combobox". (C'est le nom de la dernière sélection qui reste affiché). Y-a-t-il une solution?

Merci pour votre aide.

Cordialement,

********************************

Code dans (Sheet1, Sheet2, Sheet3):

Private Sub ComboBox1_Change()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ComboBox1.Value Then ws.Visible = False
Next ws
ActiveSheet.Range("A1").Select

End Sub

********************************

Code dans (ThisWorkbook):

Private Sub Workbook_Open()

Dim Plage As Range
With Sheets("List")
Set Plage = .Range("ListSheets")
Sheets("Sheet1").ComboBox1.List = Plage.Value
Sheets("Sheet2").ComboBox1.List = Plage.Value
Sheets("Sheet3").ComboBox1.List = Plage.Value
End With
Sheet1.ComboBox1.Value = "Sheet1"
Sheet2.ComboBox1.Value = "Sheet2"
Sheet3.ComboBox1.Value = "Sheet3"
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

End Sub
 

Pièces jointes

Dernière édition:
Re : Affichage du nom de la feuille dans la "ComboBox" par défaut

Bonsoir Pierrot,

Avant tout, un grand Merci pour ta réponse. il y a un progrès considérable, et le nom de la feuille active s'affiche dans la ComboBox. En raison d'un bug qui survenait parfois, j'ai ajouté "on Error Resume Next" dans "Private Sub ComboBox1_Change".

Maintenant, de temps en temps, bizarrement la feuille qui devient active n'est pas toujours celle qui a été "appelée" par la "ComboBox". Un peu comme si le système se permettait parfois de choisir de façon aléatoire. Il faut que je trouve le moyen de corriger cette nouvelle petite imperfection.

Bonne soirée

Chaly
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
232
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
426
Réponses
4
Affichages
177
Retour