Affichage Feuille sous conditions ?

Bonjour Forum,

J'ai essaye depuis plusieurs jours de faire marche mon code qui doit m'afficher les feuilles suivants les utilisateurs d'après leur login et mdp.

En ce qui concerne le code qui vérifie login et mdp pas de problème le code marche mais c'est quand il faut aller cherche dans un tableau si utilisateur a des X pour des feuilles et ensuite afficher que celle ci et masquer les autres.

J'ai mis un fichier Exemple afin de voir ce que je cherche et les erreurs.

En fait les bonnes feuilles ne sont pas afficher

Merci pour votre aide.

Voici le code qui devrai afficher les bonnes feuilles mais il ne marche pas :

Private Sub B_ok_Click()
Dim i As Byte, j As Byte, Ligne As Long, nbColonnes As Byte, nbLignes As Integer
    Dim User As String

Worksheets("2013").Visible = True
  If Me.motpasse <> "" And Me.Utilisateur <> "" Then
     NbEssai = NbEssai + 1: Me.Label3.Caption = NbEssai & " essai(s)"
     For i = 1 To Range("MotPasse").Count
       If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) And _
         UCase(Me.Utilisateur) = UCase(Range("utilisateur")(i)) Then
     With Sheets("Admin")
       nbColonnes = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
      nbLignes = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row

    'Trouver la ligne du User
'    For i = 6 To nbLignes
'
'        If Sheets("Admin").Range("A" & i) = UCase(User) Then
'        ' Ligne = L
'
'            Exit For
'        End If
'    Next
            For j = 3 To nbColonnes
                If UCase(.Cells(nbLignes, j)) = "X" Then
                    Sheets(.Cells(1, j).Value).Visible = True
                Else
                    Sheets(.Cells(1, j).Value).Visible = xlSheetVeryHidden
                End If
            Next j

        Unload AccèsApplication
 End With

 Sheets("Espion").[M2] = Me.Utilisateur
         Unload Me: Exit Sub
       End If
      Next i
   End If
   If NbEssai > 3 Then
      MsgBox NbEssai & " essais!"
      ThisWorkbook.Close False
   End If
End Sub

Merci pour votre aide précieux

Bonjour,

Juste pour informer qu'il faut utiliser sheet.index pour ne pas avoir erreur 9

Merci pour vos aides