Combobox et hypertexte

suistrop

XLDnaute Impliqué

• 19 Janvier 2010

• #2

Re : Combobox et hypertexte

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 19 Janvier 2010

• #3

Re : Combobox et hypertexte

Bonjour et merci suistrop,

cà marche nickel

A +

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 19 Janvier 2010

• #4

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

 

Pièces jointes

• COMBOBOX ET HYPERTEXTE.zip

  19.2 KB · Affichages: 25

Dernière édition: 19 Janvier 2010

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 19 Janvier 2010

• #5

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 +

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #6

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 +

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #7

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 +

 

Pièces jointes

• COMBOBOX .zip

  19.1 KB · Affichages: 18

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 20 Janvier 2010

• #8

Re : Combobox et hypertexte

Salut,

Je ne comprend pas comment tu alimentes ta combobox :/

Mais voici un truc que j utilise.

 

Pièces jointes

• combobox_test.xls

  44.5 KB · Affichages: 61

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #9

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 +

 

Dernière édition: 20 Janvier 2010

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 20 Janvier 2010

• #10

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.

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #11

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 +

 

Vote positif 0 Vote négatif