Discussion :

[jean30]

Bonjour à chacun, chacune,

L'activation du classeur se fait par Mdp (multi utilisateur)
La feuille AAA est : xlSheetVeryHidden

Si l'admin (lui seul) se connecte la feuille AAA passe : xlSheetVisible
Je recherche code Vba pour: Tester si cette feuille est visible ou pas

Si feuille visible : afficher la Frame3 de l'Usf_Action et masquer bouton Imprimer
Si feuille invisible : masquer la Frame 3 de l'Usf_Action et afficher le bouton imprimer

En vous remerciant.

[Menhir]

Je recherche code Vba pour: Tester si cette feuille est visible ou pas

Bin... il suffit de tester la même propriété que celle qui te sert à afficher/masquer la feuille, à savoir Visible.

Pour ce qui est du reste de ta question, je n'ai pas de réponse : d'une manière générale, j'évite autant que possible d'utiliser des UserForm.
Mais à ta place, plutôt que le masquer, je le rendrais inactif, ce qui est assez facile en agissant sur le code qu'il déclenche.

Mais tu pourras peut-être trouver des réponses à tes questions ici :
http://silkyroad.developpez.com/VBA/UserForm/
https://excel.developpez.com/sources/?page=UserForm
https://excel.developpez.com/faq/?page=UserForm

[pijaku]

Bonjour,

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Function IsVisibleSheet(Wsh As Worksheet) As Boolean
   IsVisibleSheet = Wsh.Visible = True
End Function
 
Sub Appel()
Dim b As Boolean
   b = IsVisibleSheet(Sheets("AAA"))
   'boutonImprimer.Visible = Not b
   'Frame3.Visible = b
End Sub

Suppose que la Frame et le bouton soient non visible à l'ouverture.

[jean30]

Bonour pijaku, Menhir,

Je vous remercie de vos réponses, j'avais réussi à trouver ceci qui fonctionne après correction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
    If Sheets("Param").Range("B3") = "Admin" Then [COLOR="#006400"]'vérifie la concordance de la personne loggée, 
        UserForm_MAJBase.Frame3.Visible = True
        UserForm_MAJBase.CmdBtn2.Visible = False
    Else
         UserForm_MAJBase.Frame3.Visible = False
         UserForm_MAJBase.CmdBtn2.Visible = True
    End If
End Sub

[pijaku]

@Menhir,
Pas de pinaillage, je te plussoies.
je suis, une fois de plus, allé au plus rapide...

@jean30,
Une bonne habiture*** à prendre est de ne pas faire de test If pour un "résultat Booléen".
Ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
    If Sheets("Param").Range("B3") = "Admin" Then 'vérifie la concordance de la personne loggée, 
        UserForm_MAJBase.Frame3.Visible = True
        UserForm_MAJBase.CmdBtn2.Visible = False
    Else
         UserForm_MAJBase.Frame3.Visible = False
         UserForm_MAJBase.CmdBtn2.Visible = True
    End If
End Sub

Peut-être très facilement remplacé par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Boo As Boolean
   Boo = Sheets("Param").Range("B3") = "Admin"
   UserForm_MAJBase.Frame3.Visible = Boo
   UserForm_MAJBase.CmdBtn2.Visible = Not Boo

***Cette faute de frappe est tellement sympa que je l'ai laissée telle qu'elle!

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function IsVisibleSheet(Wsh As Worksheet) As Boolean
   IsVisibleSheet = Wsh.Visible = True
End Function

Je pinaille sans doute mais il me semble plus approprié de mettre = xlSheetVisible plutôt que = True.