XL 2019 <XL2021> Menu liste des feuilles visibles seulement

[oukthr]

Bonjour, vous trouverez en pièce jointe un fichier avec des feuilles visibles selon des droits utilisateurs, je voulais ajouter un menu de navigation entre les feuilles avec un Userform, je cherche une modification pour n'afficher que les feuilles visible par l'utilisateur connecté.

 

[sylvanu]

Bonjour Oukthr,
Un essai en PJ avec :

Private Sub UserForm_Initialize()
Dim feuille As Worksheet, utilisateur$, Ligne%, Colonne%
utilisateur = Sheets("Login").UserIn.Value
If Application.CountIf(Sheets("members").[A:A], utilisateur) > 0 Then
    Ligne = Application.Match(utilisateur, Sheets("members").[A:A], 0)
    For ligne_box = 0 To Me.ListBox1.ListCount
        For Each feuille In Sheets
            If Application.CountIf(Sheets("members").[4:4], feuille.Name) > 0 Then
                Colonne = Application.Match(feuille.Name, Sheets("members").[4:4], 0)
                If Sheets("members").Cells(Ligne, Colonne) = "Oui" Then
                    Me.ListBox1.AddItem feuille.Name
                    Me.ListBox1.Font.Bold = False
                    Me.ListBox1.Font.Size = 13
                End If
            End If
        Next
    Next
End If
End Sub

 

[oukthr]

Bonjour, c'est parfait, merci beaucoup, juste un petit plus, svp, pour mettre la feuille en cours en couleurs différente.

 

[Jacky67]

Bonjour, vous trouverez en pièce jointe un fichier avec des feuilles visibles selon des droits utilisateurs, je voulais ajouter un menu de navigation entre les feuilles avec un Userform, je cherche une modification pour n'afficher que les feuilles visible par l'utilisateur connecté.

Bonjour à tous
Une autre proposition tenant compte des plages nommées existantes+ celle du doubleclic dans la listbox

Private Sub UserForm_Initialize()
    Dim feuille As Worksheet, C As Range
    Me.ListBox1.Clear
    Me.ListBox1.Font.Bold = False
    Me.ListBox1.Font.Size = 13
    Me.ListBox1.AddItem Feuil18.Name '**Facultatif
    For Each C In [plage].Rows(Application.Match(Feuil18.UserIn.Value, [Users], 0)).Columns
        If C = "Oui" Then Me.ListBox1.AddItem Feuil19.Cells(4, C.Column)
    Next
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets(Me.ListBox1.List(Me.ListBox1.ListIndex)).Activate
    Unload UserForm1
End Sub

 

[sylvanu]

Re,

juste un petit plus, svp, pour mettre la feuille en cours en couleurs différente.

Qu'entendez vous par là ?
Toute la feuille ? ou seulement le nom de l'onglet ?
Ou encore le nom de la feuille dans le userform ?

 

[oukthr]

Re,

Qu'entendez vous par là ?
Toute la feuille ? ou seulement le nom de l'onglet ?
Ou encore le nom de la feuille dans le userform ?

Re, je ne sais pas si c'est possible d'abord, ce que je veux c'est que quand j'exécute le Userform à partir d'une feuille, le nom de cette feuille apparait diffèrent dans la liste du Userform, voir la pièce jointe.

 

[sylvanu]

Bonjour,
Perso je ne sais pas faire, je ne sais même pas si c'est possible avec une ListBox.
Par contre, il semblerait que ce soit possible avec une ListView, mais je n'ai jamais joué avec.

Listview color Item sous condition

Bonjour à tous j'ai récupéré sur le forum cette macro qui me permet d'alimenté ma listview With ListView1 With .ColumnHeaders .Clear '.Add , , " Source", 0, lvwColumnLeft '/// on met la largeur de colonne à 0 .Add , , "Type de Produit", 90 .Add , , "Description du Produit", 90...

excel-downloads.com

colorer la ligne d'une listeview

social.msdn.microsoft.com

[Résolu] Alterner couleur ListView - VB.net par dadinho - page 1 - OpenClassrooms

openclassrooms.com

 

[oukthr]

Re, c'est trop compliqué pour quelque chose d'esthétique, merci quand même.