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

Signaler
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
-
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
-
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

1 réponse

Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528
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

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63769 internautes nous ont dit merci ce mois-ci

Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528 >
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
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
>
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020

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
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528 >
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
Messages postés
10
Date d'inscription
mardi 29 décembre 2015
Statut
Membre
Dernière intervention
19 février 2019
>
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020

Parfait !

Je te remercie ;)
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 !