Discussion :

[wonderfulife37]

Bonjour,

je souhaite créer un classeur excel qui lorsqu'il s'ouvre ne comporte qu'un simple userform avec une liste déroulante.
J'aimerais qu'en fonction des choix dans la liste déroulante, il y ait uniquement l'affichage et l'activation des feuilles correspondantes.

j'ai ainsi crée une liste de trigrammes de A2 à A170. Ces trigrammes sont récupérés dans une liste déroulante.
Dans mon fichier d'exemple, si par exemple je choisis ABP dans la liste déroulante, je souhaiterais ouvrir la Feuil1 "ABP".

Cela paraît tout simple et pourtant je rame (je débute).

Merci par avance si une bonne âme pouvait me consacrer un peu de son temps ! ...

AllInclusive.xlsm

[Menhir]

Déjà, je ne suis pas sûr qu'il soit possible de désactiver tous les onglets d'un fichier xlsm comme tu souhaites le faire à l'ouverture.

Ensuite, je ne vois pas bien comment se passe ton truc en pratique.
Imaginons qu'au départ tu n'ais que ton userform, tu sélectionnes la feuille que tu veux et elle apparait.
Mais ensuite, comment souhaites-tu faire réapparaitre le userform pour changer de sélection ? Un bouton dans la barre d'outil d'accès rapide ?

[Nodens_swiss]

Hello
Si tu veux commencer par masquer tout ton classeur, tu peux utiliser la fonction :

Code :

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

Windows(ThisWorkbook.Name).Visible = False

Que tu passes en true avant d’afficher les feuilles que tu veux.

[Menhir]

Mais si son userform est dans le même fichier, il disparaitra aussi.
Je ne suis pas sûr que ce soit l'effet souhaité.

[Nodens_swiss]

J’utilise cette fonction dans un UserForm_Initialize que j’ai préalablement lancer avec :

Code :

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

1
2
3
Private Sub Workbook_Open()
    UserForm.Show 0
End Sub

Et cela fonctionne très bien. Mon classeur est invisible et pas mon userform.

[wonderfulife37]

En fait je souhaite utiliser les éléments de ma colonne A2:A171 dans une liste déroulante.
Si cela est possible, j'aimerais que le userform reste uniquement lié à la feuille Menu. Si par la suite je veux ajouter un trigramme je retourne sur la feuille "Menu" et je le sélectionne, si je n'ai plus besoin d'une feuille sélectionnée précédemment dans la liste déroulante, je la supprime d'un clic droit et "masquer".
J'aurais aimé faire cela sans userform, mais je ne sais pas comment cela est possible...

Déjà, je ne suis pas sûr qu'il soit possible de désactiver tous les onglets d'un fichier xlsm comme tu souhaites le faire à l'ouverture.

Ensuite, je ne vois pas bien comment se passe ton truc en pratique.
Imaginons qu'au départ tu n'ais que ton userform, tu sélectionnes la feuille que tu veux et elle apparait.
Mais ensuite, comment souhaites-tu faire réapparaitre le userform pour changer de sélection ? Un bouton dans la barre d'outil d'accès rapide ?

[Nodens_swiss]

Test Affichage Feuilles.xlsm
Petit exemple pour ce que je disais plus haut

[Menhir]

En fait je souhaite utiliser les éléments de ma colonne A2:A171 dans une liste déroulante.
Si cela est possible, j'aimerais que le userform reste uniquement lié à la feuille Menu. Si par la suite je veux ajouter un trigramme je retourne sur la feuille "Menu" et je le sélectionne, si je n'ai plus besoin d'une feuille sélectionnée précédemment dans la liste déroulante, je la supprime d'un clic droit et "masquer".
J'aurais aimé faire cela sans userform, mais je ne sais pas comment cela est possible...

Bin... il suffit de mettre une liste déroulante dans ta feuille de calcul.

Par exemple, si tu veux mettre cette liste en C2.
Sélectionne C2 > Ruban Données > Icone Validation de données > Validation de données > Autoriser = Liste
Dans le champ Source, tu mets :

Code :

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

=A2:A171

Tu valides avec Ok.

Ensuite, dans l'éditeur VBA, tu sélectionnes dans l'éditeur de projet la Feuille correspondant à ton onglet "Menu" et, dedans, tu mets la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address(False, False) <> "C2" Then Exit Sub
 
Dim WS As Worksheet
For Each WS In Worksheets
    If WS.Name <> "Menu" And WS.Name <> Worsheets("Menu").Range("C2") Then WS.Visible = False
Next WS
 
End Sub