afficher feuille suivant régles

[nrdz83]

Bonsoir à tous voila j'utilise ce code issu d'un programme avec protection administrateur et utilisateur.

Il ouvre en tant que utilisateur deux feuilles accueil et Niv5(consulter).

Je voudrais qu'il ouvre en plus la feuille Niv17(docs), mais je n'y arrive pas.

Quelqu'un pourrait il m'aider à décortiquer ce code afin de trouver une solution à mon problème. D'avance merci à tous amitiés 😎

Private Sub MaMacro(Niveau As Byte)
  Select Case Niveau
  ' Définir ICI les Niveaux
  Case 1  ' Niveau 1
    ' Feuille accueil + Consulter
    With Niv5
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
  Case 0, 2, 3, 4
    With Niv0
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    With Niv1
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    
    With Niv2
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    
    Niv0.Activate
    MaSecondeMacro Me.Txb_ID_Util  'Transmission d'arguments pour Pias
  Case 8
    Call Admin  'Appel de la macro Admin en Module1
    Niv0.Activate
  End Select
  
  ' Fermer ce formulaire
  Unload Me
End Sub

 

[ROGER2327]

Re : afficher feuille suivant régles

Bonjour nrdz83

Sans connaître le classeur, pas de certitude... mais, quoique cela me semble trop simple, avez-vous essayé cela ?

Private Sub MaMacro(Niveau As Byte)
  Select Case Niveau
  ' Définir ICI les Niveaux
  Case 1  ' Niveau 1
    ' Feuille accueil + Consulter
    With Niv5
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    [COLOR="Red"][B]With Niv17
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With[/B][/COLOR]
  Case 0, 2, 3, 4
    With Niv0
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    With Niv1
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    
    With Niv2
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    
    Niv0.Activate
    MaSecondeMacro Me.Txb_ID_Util  'Transmission d'arguments pour Pias
  Case 8
    Call Admin  'Appel de la macro Admin en Module1
    Niv0.Activate
  End Select
  
  ' Fermer ce formulaire
  Unload Me
End Sub

Bonne nuit !
ROGER2327

 

[nrdz83]

Re : afficher feuille suivant régles

bonsoir roger 2327, je le crois pas ça fait plus d'une heure que je cherche à le faire pas moyen je mettais le même code que toi sauf que j'avais oublié le . devant activate grrrrrrrrrrrrrrrrrr
Merci pour tout
une dernière petite question, comment faire de façons à ce que sur les feuilles (accueil, consulter et docs) ce soit la feuille consulter qui s'affiche ?
d'avance merci pour tout , mes 😎amitiés

 

[ROGER2327]

Re : afficher feuille suivant régles

Re...

Et re... : Sans connaître le classeur, pas de certitude... mais, quoique cela me semble trop simple, avez-vous essayé cela ?

Private Sub MaMacro(Niveau As Byte)
  Select Case Niveau
  ' Définir ICI les Niveaux
  Case 1  ' Niveau 1
    ' Feuille accueil + Consulter
    With Niv[COLOR="Red"][B]17[/B][/COLOR]
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With
    With Niv[COLOR="Red"][B]5[/B][/COLOR]
      .Visible = True
      ActiveWindow.WindowState = xlMaximized
      .Activate
    End With

et la suite sans changement...​

ROGER2327

 

[nrdz83]

Re : afficher feuille suivant régles

Bonjour, effectivement trop simple mais pour toi, impeccable toutes mes amitiés, et bon dimanche.