Combobox et hypertexte

[THIERRY35]

Bonjour,

malgré mes recherches sur le forum je ne trouve pas excatement ce que je veux, à savoir une liste déroulante en combobox qui me renvoie sur
l'onlglet qui correspond au nom sélectionné.

Les solutions trouvées correspondent à des listes de formulaires, et
j'amerai le faire avec une liste déroulante en combobox.

Marci de votre aide

 

[suistrop]

Re : Combobox et hypertexte

Bonjour,

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Text).Select
End Sub

 

[THIERRY35]

Re : Combobox et hypertexte

Bonjour et merci suistrop,

cà marche nickel

A +

 

[THIERRY35]

Re : Combobox et hypertexte

Rebonjour suistrop et au forum,

finalement j'ai encore une amélioration à apporter
mon fichier fait 10 onglets, et grâce à ton code l'utilisateur peut maintenant naviguer sans problème dans le fichier en utilisant à chaque fois la liste déroulalnte installée sur chaque feuille.

Mais lorsqu'on veut passer sur une feuille dont le nom se trouve dèjà dans la case de la liste déroulante on ne peut pas y accéder.
Peux t'on inclure un texte dans la liste déroulante comme "Faites votre choix"
qui se trouve toujours affiché en premier quand on revient sur cette feuille.

Un fichier pour être plus clair.

Merci

 

[THIERRY35]

Re : Combobox et hypertexte

Bonjour à nouveau,

entre temps j'ai récupéré ce code, mais il n'est pas adapté totalement à ma
demande je n'arrive à rien depuis 1H pour le modifier.
Private Sub Worksheet_Activate()
[A1].Activate
ComboBox1.Value = "Veuillez Selectionner un Onglet"
ComboBox1.Clear
For i = 2 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Value = "Veuillez Selectionner un Onglet"
ComboBox1.Clear
For i = 2 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

A +

 

[THIERRY35]

Re : Combobox et hypertexte

Bonjour à toutes et tous,

je relance ma discussion, si quelqu'un peut m'aider pour résoudremon
petit problème ?

Merci,

A +

 

[THIERRY35]

Re : Combobox

Re bonjour,

je reformule mon problème en joignant le dernier fichier, car après une première aide je reste bloqué sur mon problème.
J'ai un fichier avec 18 onglets au total.
Sur chaque onglet est installé une combobox qui permet de passer d'un onglet à l'autre, mais parfois ça peut bloquer si le nom demandé est déjà
sélectionné.

Pour éviter ce problème j'aimerai :
- qu'en tête de liste de la combobox apparaisse le libellé "faites votre choix"
suivie de la liste des choix.

- que la combobox revienne automatiquement sur le libellé "faites votre choix" aprés chaque interrogation.

Ci joint extrait de fichier

Merci de votre aide,

A +

 

[suistrop]

Re : Combobox et hypertexte

Salut,

Je ne comprend pas comment tu alimentes ta combobox :/

Mais voici un truc que j utilise.

 

[THIERRY35]

Re : Combobox et hypertexte

Bonjour suistrop,

pour répondre à ta question, la combobox est alimenté à partir de liste de cellules sélectionnées et indiquées dans la module propriétés de la combobox linkedcell et linkedfillrange.

Merci pour ta réponse, mais un détail me bloque : comment ne lister
qu'un nombre limité d'onglets dans la combobox, car ton code reprend tous
les onglets présents sur la feuille et je ne souhaite avoir qu'un nombre limité
d'onglets accessibles.

Merci

A +

 

[suistrop]

Re : Combobox et hypertexte

Salut,

Dans le code de la combobox tu rajoutes des conditions if de la meme maniere que celle pour supprimer acceuil.
Sinon tu peux juste ajouter a la main dans le code directement les noms d'onglet si tu les connais tous à l avance.

 

[THIERRY35]

Re : Combobox et hypertexte

Merci , mais j'ai 15 onglets sur lesquels il y a des données qui doivent être
exclus mais je n'arrive pas à écrire un code simplifié.

Par exemple les feuilles suivantes doivent être exclus :

Bordeaux
Marseille
Nice

Quel code écris tu ?


Merci

a +