Forums XLPages

Excel & VBA Forum principal vba excel +liste déroulante

vba excel +liste déroulante
#1
flyersgoaler
Débutant XLPages

Inscription: 23/11/2008

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-11-2008 06h19
Bonjour,
j'ai inséré une liste déroulante dans une cellule sur excel. Chaque nom inséré dans la liste déroulante correspond à mes douze feuilles qui correspondent au mois de l'année. Je veux donc que lorsque je vais cliquer sur mon bouton, après avoir choisi le mois que je veux, je sois automatiquement redirigé vers la page en question. Par exemple, si dans ma liste déroulante je choisi le mois d'octobre, je veux qu'en cliquant sur le bouton, je sois redirigé vers la feuille octobre. Je ne sais donc pas quel code je dois inscrire pour que cela se produise.

Merci beaucoup
Hors Ligne
 Rapport   Haut 

Re: vba excel +liste déroulante
#2
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-11-2008 09h54
Bonjour,

je te propose le code suivant qui est une macro événementielle (s'execute sur modification de la cellule A1 dans cet exemple) à la place d'un bouton.

Attention: il faut que le nom de la feuille corresponde exactement au contenu de la cellule


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Count = 1 Then Sheets(Target.Value).Activate
End Sub

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: vba excel +liste déroulante
#3
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 24-11-2008 13h15
Bonjour flyersgoaler, Skoobi, le forum

En imaginant la cellule A1 contenant la liste déroulante (Liste de validation, ListBox, Liste Déroulante)

En indiquant dans une cellule de la feuille, la formule suivante.
=LIEN_HYPERTEXTE("#"&A1&"!A1";"Lien pointant sur la cellule A1 de la feuille "&A1)
puis en cliquant sur le lien ainsi créé, on bascule sur la feuille choisie. C'est ce lien qui fait office de bouton. (Il y a besoin de deux actions pour se rendre sur la feuille concernée).

Pour que cela fonctionne correctement, il faut que les items de la liste déroulante corresponde aux noms des feuilles.

Dans cette formule le caractère "#" pointe sur le même fichier, le deuxième argument indique le texte qui sera affiché dans la cellule.

@+Jean-Marie 
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes