Lien à partir d'une combo ou d'une zone de liste

[fabrice]

Bonjour, pouvez vous m'aider à faire la chose suivante (je bloque depuis 3 jours !!!)

Dans une feuille excel, je souhaite insérer une zone de liste ou une combo box qui reprendrait l'intitulé de chacune des feuilles de mon classeur et qui en cliquant sur un de ces intitulés renverrait vers la feuille en question.

Merci d'avance pour votre aide

Fabrice

 

[@+Thierry]

Salut Fabrice, le Forum

Vu que tu ne précises pas, je pars du principe qu'on est bien sur les "Zone de Liste" de la barre d'Outils "CONTROLES" (pas de la "vieille" barre d'outils Formulaire, auquel cas ce qui suit n'est pas applicable)

Ici on parle de Controls ActiveX, bien plus puissants, donc.

ETAPE 1 :
Tu dessines ta ListBox1 depuis, donc, la Barre d'outils "Contrôles" dans la "Feuil1"

ETAPE 2 :
Dans le Private Module de This Workbook, tu colles ceci :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim X As Byte
Sheets("Feuil1").ListBox1.Clear
For X = 1 To Sheets.Count
With Sheets("Feuil1")
.ListBox1.AddItem Sheets(X).Name
End With
Next X
End Sub

Remarque on peut choisir un autre évènement mais celui là s'active dès que l'on change de feuille dans le classeur...


ETAPE 3 :
Dans le Private Module de Feuille "Feuil1" tu colles ceci :

Private Sub ListBox1_Click()
Dim Feuille As String
Feuille = ListBox1
Sheets(Feuille).Activate
End Sub

Voilà à peui près les bases, tu remarqueras que l'on préfèrera un ListBox à une ComboBox dans ce contexte, puisque le User n'a pas à essayer d'entrer un autre nom que celui des feuilles existantes.

Bon Aprèm
@+Thierry

 

[fabrice]

Merci de ta réponse Thierry,

je n'arrive pas à faire fonctionner ce que tu m'indiques.
j'attache un fichier excel avec le type de controles que je souhaite obtenir :
click sur score A renvoit vers la feuille score a
click sur score B renvoit vers la feuille score b


comme je suis nul en VBA, peux-tu STP faire la modif et me renvoyer le fichier corrigé !

Après j'arrete d'abuser de ta générosité

merci d'avance

 

[@+Thierry]

Re Salut Fabrice, Le Forum

Humm Tu n'as pas eu beaucoup de persévérance, même pas une tentative de Module dans ton fichier "Test.Xls"... D'ailleurs pense, et tous pensez, qu'il faut Zipper vos Fichiers !!!

D'alleurs je remarque que les premiers à être "dévorés par les léviatans" sont les fichiers non-zippés en ce moment !!

Bon enfin voilà ton fichier revu et corrigé avec un plus... et surtout il est ZIPPé !!!

Bonne Fin de Journée
@+Thierry

 

[fabrice]

merci bcp Thierry et bonne journée