Bonjour chers tous.
J'ai un code que d'ailleurs je pense avoir pris sur ce forum il y a quelques années.
il est supposé afficher les feuilles selon l'utilisateur a l'ouverture du classeur sur un clic sur commandbutton.
le voici, mais il ne masque pas les feuilles chez moi, quelqu'un peut il m'aider ?
Private Sub AfficheFeuilles(Utilisateur As String)
'
Dim Col As Byte, i As Byte, Lig As Integer, Clx As String
With Utilisateurs 'dans la feuille paramétrage
'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
Lig = .Columns(1).Cells.Find(Utilisateur, LookAt:=xlWhole).Row
For i = 4 To Col
If (.Cells(Lig, i)) = "x" Then 'si on trouve un "X" dans la cellule
Clx = .Cells(1, i).Value
Sheets(Clx).Visible = xlSheetVisible 'on affiche la feuille
Else
Sheets(Clx).Visible = xlSheetVeryHidden 'sinon on la masque
End If
Next i
End With
End Sub