Cacher cetaines feuilles d'un formulaire selon demande

Bonjour,

J'ai créé un formulaire de demande en VBA.

quand on l'ouvre, on doit choisir entre "Demande externe" (pour les demandeurs) ou "Bureau de reception de la demande" (pour les personnes qui traitent la demande).

Dan mon classeur il y a 2 feuilles (une pour l'externe et l'autre pour l'interne), j'ai réussi à ne faire afficher que la feuille corespondant à la demande pour le demandeur, mais pour le receveur je n'arrive pas à afficher les DEUX feuilles (qui ne marche pas l'une sans l'autre).

Voici le programme de mon useform:

Private Sub btnValid_Click()

End Sub

Private Sub DC_Click()
If DC = True Then
  Application.ScreenUpdating = False
  Application.Run ("Montrer")
    Sheets("Formulaire_demandeur").Select

  Application.Run ("Cacher")
End If
Unload Me
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub TCE_Click()
If TCE = True Then
  Application.ScreenUpdating = False
  Application.Run ("Montrer")
Workbooks("Formulaire_demande_CAO_TEST_3_avec_macros").Sheets(Array("Formulaire_CAO", "Formulaire_demandeur")).Select
  Application.Run ("Cacher")
End If
Unload Me
End Sub

Private Sub btnAnnul_Click()
 Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

Merci !

Bonsoir,

Ton code est partiel, il faudrait voir les procédures appelées. Ceci dit je serais surpris que ça fonctionne (mais il arrive que VBA accepte des syntaxes hasardeuses... ).

De toutes façons difficile de dire quelque chose de sûr sans fichier dans un cas pareil.

Cordialement.

Bonjour,

J'ai utilisé le code suivant et ca résoud mon problème,

Sub AfficheOnglets() 

 Dim Onglets As Worksheet 

 For Each Onglets In Worksheets 
 Onglets.Visible = True 
 Next Onglets 

End Sub 

Bonne journée !