page masqué

Bonsoir Annais,

Non je n'ai pas d'idée, mais ici, pour être totalement clair, il vaut mieux ne pas abuser du langage sms :



Ce serait gentil pour nos yeux et notre compréhension. Tu ne t'adresses pas qu'à des petits jeunes, loin s'en faut ici.

Sinon pour masquer une feuille, mais malheureusement, toujours la (ou les) même (s), ALT/F11 et sur la feuille en question (ou les feuilles) choisir xlsheetHidden ou VeryHidden (dans la fenêtre Propriétés qu'on obtient en faisant Affichage/Fenêtre propriétés).

A part ca, que selon la personne qui ouvre le fichier ce soit avec certaines feuilles, dur dur. Mais les amis vont peut être te trouver qqchse.

Message édité par: Brigitte, à: 14/05/2006 20:30

Bonsoir Chère Brigitte, Annaïs, le Forum

Et oui, le language SMS est justifié sur un téléphone, mais pas dans un Forum de partage de connaissance...

Pour te mettre sur une Piste regardes et télécharges les Démos de ce Fil de Discussion :

Lien supprimé

Ce sera une base de départ, ensuite il est possible d'y adjoindre une identification par Utilisateur du réseau...

Bonne Soirée
[ol]@+Thierry[/ol]

Bonsoir Brigitte, Annaïs,_Thierry, le Forum,

Sympa ta Demo de Gestion de feuilles à plusieurs niveaux.

Y a t'il possibilité de rajouter des feuilles avec des niveaux définis (Niveau 1 ou 2) ?

PS : Bien ton lien sur Duvel, dans un autre post

Bonsoir JCGL, re Brigitte, Annaïs, le Forum

Dans ce type de Démo, on pourrait le faire, mais celà va être un peu lourd à gérer.

En effet, j'active et rends visible les Feuilles Directement par le CodeName ('Niv1' et 'Niv2'), ce qui équivaudrait à rajouter en Dûr dans le Code autant de Feuilles à Ajouter...

Donc pour une ou deux feuilles en plus c'est gérable, pour plus, il faudrait boucler avec, par Exemple, un critère de différenciation dans le Nom de Feuille distinguant les Niveaux...

Exemple tous les Onglets se nomment dans le CodeName (Par Propriété des Objets Sheets dans VBE) :
Niv1FeuilleToto
Niv1FeuilleLulu
Niv1FeuilleZaza
Niv2FeuilleTiti
Niv2FeuilleLolo
Etc

Et remplacer le code de la Private Sub MaMacro(Niveau As Byte) par :

Private Sub MaMacro(Niveau As Byte)
Dim WS As Worksheet

    Select Case Niveau
    Case 1
        For Each WS In ThisWorkbook.Worksheets
            If Left(WS.CodeName, 4) = 'Niv1' Then
                With WS
                .Visible = True
                .Activate
                End With
            End If
        Next WS
    Case 2
        For Each WS In ThisWorkbook.Worksheets
            If Left(WS.CodeName, 4) = 'Niv1' Or Left(WS.CodeName, 4) = 'Niv2' Then
                With WS
                .Visible = True
                .Activate
                End With
            End If
        Next WS
    Case 3
        Call Admin 'Appel de la macro Admin en Module1
    End Select

End Sub

Cliquez pour agrandir...

Ce devrait le faire

Sinon pour Duvel, oui c'est une animation 'Officielle'

Bonne Nuit
[ol]@+Thierry[/ol]

Bonsoir _Thierry, le Forum


Merci de tes conseils. Je vais nommer mes feuilles en conséquence sur 2 niveaux de droits et je te tiens au courant.

A+ c'est l'heure de la D...l :whistle:

Bonsoir _Thierry, le Forum,


Bien évidement cela fonctionne parfaitement...

Huit feuilles de Niv1... et six feuilles de Niv2...

Merci encore

PS : J'ai placé l'USF en Workbook_Open() : les feuilles de Niv2 étaient (restaient) ouvertes à l'ouverture du classeur

Message édité par: JCGL, à: 15/05/2006 21:27