Private Sub ComboBox1_Change()
If ComboBox1 = "Feuil1" Or ComboBox1 = "Feuil2" Then Sheets(ComboBox1.Value).Select
End Sub
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Feuil1", "Feuil2")
End Sub
Private Sub ComboBox1_Change()
With Sheets(ComboBox1.Value)
If ComboBox1 = "Feuil2" Then
.Visible = -1: .Select
Feuil1.Visible = 0
End If
If ComboBox1 = "Feuil1" Then
.Visible = -1: .Select
Feuil2.Visible = 0
End If
End With
End Sub
Bonjour laetitia90
......................... mais si la feuille ou les feuilles sont masquées par Very Hidden
comment faire pour les affichées après les re masquées?
encore une fois merci
comment faire pour les afficher après les re masquer?
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Feuil1", "Feuil2")
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex < 0 Then Exit Sub
With Sheets(ComboBox1.Text)
If .Visible > -1 Then .Visible = -1
.Activate
End With
End Sub
Private Sub Worksheet_Deactivate()
Me.Visible = 2
End Sub