Macro ouvrir une feuille

[Guest]

Bonjour à toutes et à tous!

Je pense que mon probleme est tout simple mais VBA et moi, ca fait beaucoup plus que deux! (on est dimanche matin, ca n'arrange pas les choses!!)
J'ai un fichier dont la première page est un formulaire (est ce vraiment comme cela un formulaire sous excel??). L'utilisateur doit choisir entre Internal/External ou Mixed), une fois ce choix fait, la feuille correspondant s'ouvre automatiquement. J'ai ajouté un bouton "créer le nouveau form" mais je pense qu'on pourrait s'en passer si l'automatisme vient de la sélection dans la liste déroulante. J'aimerais bien qu'à l'ouverture du fichier seule la première feuille apparaisse et que les autres n'apparaissent qu'en fonction du choix....

Y a t il moyen de faire ca un dimanche matin?!
Merci à vous et bonne journée
Lililette 🙂

 

[alex67800]

Re : Macro ouvrir une feuille

Bonsoir lililette,

un premier bout de code à ajouter dans thisworkbook

Private Sub workbook_open() 'action à l'ouverture du fichier
Application.ScreenUpdating = False
Sheets("Internal").Visible = xlSheetHidden 'Masque la feuile "Internal".
Sheets("External").Visible = xlSheetHidden 'Masque la feuile "External".
Sheets("Lists").Visible = xlSheetHidden 'Masque la feuile "List".
Sheets("Mixed").Visible = xlSheetHidden 'Masque la feuile "Mixed".
Sheets("Entry page").Activate
Application.ScreenUpdating = True

End Sub

A l'ouverture du fichier suel la feuiile Entry page est affiché.

Pour info ce ne sont pas des formulaires mais simplement des feuilles, ou onglets feuille.

Pour la suite je bloque un peu, n'étant pas un spéialiste en la matière.

Bonne continuation.

Pour faire l'inverse créé un bouton avec le code suivant:

Sub affiche_feuille()
Sheets("Internal").Visible = xlSheetVisible 'Affiche la feuile "Internal".
Sheets("External").Visible = xlSheetVisible 'Affiche la feuile "External".
Sheets("Lists").Visible = xlSheetVisible 'Affiche la feuile "List".
Sheets("Mixed").Visible = xlSheetVisible 'Affiche la feuile "Mixed".
Sheets("Entry page").Activate

End Sub

 

[alex67800]

Re : Macro ouvrir une feuille

Re Bonsoir,
J'ai repensé ton petit problème.
J'ai mis à la place de ta liste, des boutons.
De plus par défaut à l'ouverture du fichier, seul Entry Page souvre.

A toi de voir si cela te convient.

A+

Alex😉