Discussion :

[IHO17]

Bonjour à tous,

Je suis actuellement en train de travailller sur un fichier EXCEL contenant 13 onglets. Je voudrais ajouter un onglet qui s'appelera "Select Template", dans lequelle l'utlisateur pourra cliquer sur une des cases options puis sur le bouton "Importer Template" qui affichera selon le ou les cases options selectionnés le ou les onglets correspondants.

Les cases options sont une liste de pays (ex: France, Italy, etc...) et chaque onglets ou feuilles correspond à un pays.

Le but est que mes collégues n'est pas accés au onglets qu'à travers la page acceuil.

Un deuxième bouton ("Retour_Accueil") sur chaque onglet ("Template_Pays") permettra de revenir à la page d'acceuil ("Select_Template").

Vous trouverez ci-joint un fichier exemple.

Merci vraiment et d'avance pour vos conseils.

Cdt

[Menhir]

Pour afficher/masquer un onglet en VBA, il faut utiliser la Propriété Visible de la Worksheet correspondant à l'onglet.
https://msdn.microsoft.com/fr-fr/lib.../ff197786.aspx

[IHO17]

Merci Menhir, mais comment lier la selection de la case option et l'affichage de l'onglet?

[Menhir]

Comme beaucoup de participants, je n'ouvre pas les pièces jointes.
https://www.developpez.net/forums/d8...s-discussions/

Je ne sais donc pas comment sont organisées tes cases options.
D'autant plus que ton expression "cliquer sur une case" laisse supposer que ces "cases" ne sont pas des cellules.

[boisgontierjacques]

Bonjour,

Exemples

Boisgontier

[IHO17]

Je suis vraiement désolé si je ne suis pas clair sur certains points mais je ne suis pas du tout de ce milieu et mes connaissances en VBA sont plus que limités...

En gros, mon fichier est composé de 14 onglets, dont un sera une sorte de page acceuil et à partir de laquelle les utilisateurs de cet outil pourront choisir leur onglet et ce selon la checkbox qu'ils auront coché. ils peuvent en cocher plusieurs et du coup les onglets correspondants s'afficheront sinon tout reste masqué.


J'aimerai juste avoir la formule disant :

Code :

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

1
2
3
4
5
6
7
 For I = 1 To 14
  If Me.checkbox("CheckBox" & I).Value = True Then
  For I = 1 To 14
  Sheet& I.Visible = True
  Else
  Sheet& I.Visible = 
Next I

'Notez que le nom des feuilles sont numéroté comme les Checkbox...

Le but est que l'utlisateur en cochant sur la ou les checkbox de son choix puis en cliquant sur le bouton (auquel j'affecterai la macro)), les onglet correspondants s'affichent.

Je patoge depuis ce matin!

Merci d'avance!

[patricktoulon]

re
bonjour
oui l'inconveniant avec les msforms.optionbutton c'est la gestion de deux ci dans un sheets
alors a moins d'avoir un fichier ou l'on ajoutera pas de pays en ce qui concerne ton exercice tu peux le faire en bouclant sur les nom que l'on optiens avec "shapes (optX).name
optXetant une variable shape incrémenter dans une boucle for each

maintenant si ton fichier est amenné a evoluer ca risque de se compliquer

autant faire comme boisgontierjacques avec une listbox mais la sur le sheets acceuil la manipulation etant pas trop differente que dans un userform

sinon bonne chance pour boucler sur les object dans le sheets et reconnaitre si c'est un option button ou pas
je precise que j'ai essayé avec typename ou typeof dans tout les sens
a mediter

perso il y a une solution
l'utilisation de selection_change dans le sheets acceuil sur les cellules portant le nom des sheets
comme ca pas de bouton et il est evolutif
a mediter