Userform pour masquer onglets

Bonjour,

J’aurai besoin d’aide, je souhaite pouvoir masquer et afficher les onglets listés via des cases à cocher dans un Userform, j’ai trouvé ce programme sur votre site (merci à Mytå), la liste des onglets est bien effectuée mais les demandes de masquer ou afficher ne fonctionnent pas.

Ci-joint le fichier (Ctrl+L pour lancer la macro)

En vous remerciant.

Bonjour,

à tester,

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim j As Byte

    For j = 1 To Item.ListSubItems.Count
      f = Item.ListSubItems(Item.ListSubItems.Count - 1)
      If Item.Checked = True Then
        Item.ForeColor = RGB(255, 0, 0) 'Masquer - Couleur (Rouge)
        Item.Bold = True 'Gras
        Item.Text = "Masquer"
        Item.ListSubItems(j).ForeColor = RGB(255, 0, 0)
        Item.ListSubItems(j).Bold = True
        Sheets(f).Visible = False
      Else
        Item.ForeColor = RGB(0, 0, 255) 'Visible - Couleur (Bleu)
        Item.Bold = False 'Normal
        Item.Text = "Visible"
        Item.ListSubItems(j).ForeColor = RGB(0, 0, 255)
        Item.ListSubItems(j).Bold = False
        Sheets(f).Visible = True
      End If
    Next j
End Sub

Bonsoir I20100,

ça fonctionne nickel, trop fort.

MERCI ENCORE

Bon WeekEnd.

Pilougne