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
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: