XL 2013 ACCÈS DIRECT FEUILLE EXCEL

lea_rte

XLDnaute Nouveau
Bonjour tout le monde,

Je viens à vous car j'ai un petit soucis... J'ai effectué pour mon projet un fichier comportant une liste d'hôtel dans des pays, avec plusieurs feuilles EXCEL (1 feuilles par pays), sauf qu'il faudrait que je mette en place un système de page d'accueil, avec un accès qui amène directement au pays sans avoir à passer 8 feuilles.

Savez-vous comment je peux faire ?

Cordialement.
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour Iea_rte

Dans une page d'accueil avec un USF comportant un ComboBox listant toutes tes feuilles :
VB:
 Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
Me.ComboBox1.AddItem WS.Name
Next WS
End Sub


Private Sub ComboBox1_Click()
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub
@+ Eric c
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs