bonjour le forum
bonjour a tous.
j'ai un fichier avec la feuille d'accueil ayant un combo box qui me permet d'ouvrir un onglet particulier.
- LE COMBO NE sélectionne une feuille que si la feuille est changée au moins une fois.
CODE
Private Sub ComboBox1_Click()
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub
Private Sub Worksheet_Activate()
Dim n
With ComboBox1
.Clear
For n = 1 To Sheets.Count
.AddItem Sheets(n).Name
Next n
.ListIndex = -1
End With
End Sub
tous les autres onglets du fichier sont masqués par le code ci dessous.
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
Sheets(i).Visible = Sheets(i).Name = "MODULE"
Next
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Set Ws = Sheets(Target.Name)
Application.ScreenUpdating = False
Ws.Visible = Not Ws Is Nothing
Sh.Visible = Ws Is Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Nom = "MODULE"
Application.EnableEvents = False
If Sh.Name <> Nom Then Sheets(Nom).Cells(ActiveCell.Row, 1) = Date
Application.EnableEvents = True
End Sub
c'est là ou tout se complique. le fichier plante et ....
TROP DE CHARABIA VOIL0 LE VICHIER
bonjour a tous.
j'ai un fichier avec la feuille d'accueil ayant un combo box qui me permet d'ouvrir un onglet particulier.
- LE COMBO NE sélectionne une feuille que si la feuille est changée au moins une fois.
CODE
Private Sub ComboBox1_Click()
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub
Private Sub Worksheet_Activate()
Dim n
With ComboBox1
.Clear
For n = 1 To Sheets.Count
.AddItem Sheets(n).Name
Next n
.ListIndex = -1
End With
End Sub
tous les autres onglets du fichier sont masqués par le code ci dessous.
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
Sheets(i).Visible = Sheets(i).Name = "MODULE"
Next
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Set Ws = Sheets(Target.Name)
Application.ScreenUpdating = False
Ws.Visible = Not Ws Is Nothing
Sh.Visible = Ws Is Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Nom = "MODULE"
Application.EnableEvents = False
If Sh.Name <> Nom Then Sheets(Nom).Cells(ActiveCell.Row, 1) = Date
Application.EnableEvents = True
End Sub
c'est là ou tout se complique. le fichier plante et ....
TROP DE CHARABIA VOIL0 LE VICHIER