afficher feuille excel avec une liste

[tanguy]

Bonjour,

Je cherche une solution pour, à partir d'une liste déroulante, afficher les feuilles excel de mon classeur. J'ai essayé une macro toute simple comme celle-ci: worksheets('légumes').select
worksheets('pommes').select
worksheets('poires').select
le problème est que le programme n'affiche que la feuilles poires, donc que la dernière ligne du programme. La liste déroulante contient les données que j'ai renseigné avec la fonction format de contrôle. Merci d'avance

 

[JC de Lorient]

Bonjour Tanguy, le forum
en pièce jointe un petit exemple [file name=tanguy.zip size=8015]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tanguy.zip[/file]

 

[tanguy]

Merci pour votre réponse
Je vais essayé de suite et vous tiens au courant

Bonne journée

 

[tanguy]

Rebonjour,

Est-il possible d'utiliser la liste déroulante que l'on trouve dans le menu formulaire avec ce code? J'ai omis de préciser que je voulais conserver l'onglet de la liste déroulante sans devoir cliquer sur la cellule pour l'activer.

Merci une nouvelle fois d'avance

 

[JC de Lorient]

re

pour etre franc j'ai un peu de mal a te suivre !
ta liste déroulante faudra bien la mettre qqpart
si tu peux joins un fichier avec ce que tu voudrais obtenir

 

[tanguy]

Bonjour,

Je vous transmets le fichier. J'y ai inséré une liste déroulante telle que je souhaiterais qu'elle apparaisse dans mon fichier Excel. A partir de cette dernière je souhaite naviguer dans mon classeur exactement comme dans votre exemple. J'espère que cela peut vous aider

Merci d'avance

 

[JC de Lorient]

re
pas de fichier !!!
fichier zippé <50k sans accents ni caractères spéciaux

 

[tanguy]

Décidément...

Navré j'espère que celui te parviendra. Sinon je comprends pas pourquoi tu ne le reçois pas!! [file name=tanguy_20060417123523.zip size=16392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tanguy_20060417123523.zip[/file]

 

[JC de Lorient]

re
si tu laisses la feuille 1 (Feuil1) en 1er,
click droit sur ta liste de choix, affecter une macro, puis nouvelle puis insère ce code entre les deux lignes
Sheets(Range('H2').Value + 1).Select
ce qui donnera ça :

Sub Zonecombinée2_QuandChangement()
Sheets(Range('H2').Value + 1).Select
End Sub

 

[tanguy]

Merci pour ta réponse rapide et pour ta patience

Bonne journée

 

[tanguy]

Super ça marche! Merci bcp

Bonne journée

 

[tanguy]

Encore une petite question. Dans le fichier que je t'ai envoyé. Le code va chercher la cellule ('H2') dans le même feuille, selon le code que tu m'as envoyé. Mais si je veux aller chercher cette cellule ('H2')par exemple dans une autre feuille, comme dois-je modifier le code ?

Merci mille fois d'avance

 

[michel_m]

Bonjour Tanguy, Jean-Charles

Ci joint une proposition astucieuse apportée par C@thy en son temps (on était jeune, ma chère Cathy)

A+
Michel_M [file name=popup_20060417132426.zip size=6683]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/popup_20060417132426.zip[/file]

 

[tanguy]

Merci c'est très astucieux et aussi très pratique

Bonne journée