Afficher/cacher onglet avec userform

Private Sub UserForm_Initialize()

Dim sht As Variant
Dim shts As Sheets

For Each sht In ActiveWorkbook.Sheets
    If sht.Name <> "Start" Then
        If sht.Visible Then
            ListBox1.AddItem sht.Name
        Else: ListBox2.AddItem sht.Name
        End If
    End If
Next sht
End Sub

'*** Button to Hide all Visible sheets
Private Sub MoveAllToRight_Click()
'Add all
For i = 0 To ListBox1.ListCount - 1
    ListBox2.AddItem ListBox1.List(i)
Next i
'Remove all
For i = 0 To ListBox1.ListCount - 1
    ListBox1.RemoveItem (0)
Next i

End Sub

'***Button to hide selected visible sheets
Private Sub MoveSelectedToRight_Click()

Dim CountVisibleSheets, LastSelection, j As Integer
CountVisibleSheets = ListBox1.ListCount - 1

    
'Add selected sheets to Hidden sheets listbox
For i = 0 To CountVisibleSheets
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i

'Remove selected sheets from Visible sheets list
j = 0
Do Until j = ListBox1.ListCount
If ListBox1.Selected(j) Then
    ListBox1.RemoveItem (j)
    LastSelection = j
    Exit Do
    j = j - 1
End If
j = j + 1
Loop


End Sub

'*** Button to Unhide selected Hidden sheets
Private Sub MoveSelectedToLeft_Click()
Dim CountVisibleSheets, LastSelection As Integer
CountVisibleSheets = ListBox2.ListCount - 1

For i = 0 To CountVisibleSheets
    If ListBox2.Selected(i) Then
        ListBox1.AddItem ListBox2.List(i)
    End If
Next i

j = 0
Do Until j = ListBox2.ListCount
    If ListBox2.Selected(j) Then
        ListBox2.RemoveItem (j)
        LastSelection = j
        Exit Do
    End If
    j = j + 1
Loop

End Sub

'*** Button to Unhide all Hidden sheets
Private Sub MoveAllToLeft_Click()
Dim CountHiddenSheets As Integer
CountHiddenSheets = ListBox2.ListCount - 1

For i = 0 To CountHiddenSheets
    ListBox1.AddItem ListBox2.List(i)
Next i
For i = 0 To CountHiddenSheets
    ListBox2.RemoveItem (0)
Next i
End Sub

'*** Cancel dialog button
Private Sub CommandCancel_Click()
    Unload FormWorksheets
End Sub

'*** Submit selection for hiding and unhiding sheets
Private Sub CommandHideUnhide_Click()

For i = 0 To ListBox1.ListCount - 1
ActiveWorkbook.Sheets(ListBox1.List(i)).Visible = True
Next i

For i = 0 To ListBox2.ListCount - 1
   If i = ActiveWorkbook.Sheets.Count - 1 Then
   MsgBox "At least one sheet should be visible"
   Exit For
   Else
   ActiveWorkbook.Sheets(ListBox2.List(i)).Visible = False
   End If
Next i
Unload FormWorksheets
End Sub