Menu

Créer un menu déroulant de données renvoyant à des feuilles associées [Résolu]

Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
- - Dernière réponse : Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
- 19 févr. 2019 à 15:47
Bonjour à tous,

Je souhaite créer un menu déroulant regroupant des noms de personnes et de pouvoir sélectionner un d'entre eux puis ensuite valider à l'aide du touche ce qui me renverrait directement à la feuille associée.

En gros, disons que la feuille n°1 est la feuille d'accueil, je cherche la personne concernée 'Paul Dubois" dans le menu déroulant. Je sélectionne "Paul Dubois" et je valider en cliquant sur une "forme" (valider ?). A ce moment, ça me renvoie directement à la feuille regroupant les informations de Paul Dubois...

Cela est-il possible ?

J'ai un peu de mal avec le VBA donc je suis bloqué pour faire le lien entre la sélection et le renvoi vers la feuille associée.

Je vous remercie

Higen
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
6051
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2019
365
1
Merci
Bonjour,

Pas besoin de vba, un lien hypertexte suffit, voir la méthode 3:

https://fr.wikihow.com/ins%C3%A9rer-des-liens-hypertextes-dans-Microsoft-Excel

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 39134 internautes nous ont dit merci ce mois-ci

cs_Le Pivert
Messages postés
6051
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2019
365 > Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
-
Il faut mettre un retour vers ta feuille menu déroulant sur chaque feuille de client. 2 manières s'offrent à toi:

Lien hypertexte vers la feuille menu déroulant dans une cellule autre que celle de ton menu déroulant pour ne pas le déclencher

ou macro comme ceci dans chaque feuille en mettant Retour en A1:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'a adapter la cellule
Sheets("nom de la feuille menu déroulant").Activate 'adapter nom de la feuille
End If
End Sub


Voilà, c'est assez simple
Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
> cs_Le Pivert
Messages postés
6051
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2019
-
Merci pour ton aide. En effet le lien hypertexte reste une solution simple.

En revanche (et je pense que ce sera ma dernière question), lorsque je retourne sur ma page d'accueil, je ne peux plus sélectionner un autre nom du menu déroulant car en cliquand sur ce dernier, la macro m'envoie directement vers la page associée.

Une idée ?

Merci
cs_Le Pivert
Messages postés
6051
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2019
365 > Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
-
Pour ton problème il faut changer ceci:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'a adapter la cellule
Sheets(Target.Value).Activate
End If
End Sub


par cela qui se déclenchera qu'au double clic:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'a adapter la cellule
Sheets(Target.Value).Activate
End If
End Sub


voilà

@+ Le Pivert
Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
> cs_Le Pivert
Messages postés
6051
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2019
-
Parfait !

Je te remercie ;)
Higen
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
-
ça semble marcher !

Merci beaucoup !
Commenter la réponse de cs_Le Pivert