Afficher une sheet en vba

[JEYBY]

Bonjour,

Je réalise un projet et j'ai un pb sur un point. Voilà, sur une feuille 'Présentation', j'ai des valeurs allant de A5 à A10. Chaque valeur représente un nom de feuille présente dans le projet. Je souhaite que lorsque l'utilisateur clique sur A5 avec la valeur 'PE36444', une macro l'envoi sur la feuille PE36444. Quelqu'un peut-il m'aiguiller svp. Merci.

JEYBY

 

[JC de Lorient]

salut
ce code pourrait faire l'affaire
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A5')) Is Nothing Then
Sheets('PE36444').Activate
End If
End Sub

faudra rajouter d'autres conditions pour les autres feuilles

JC

 

[Dan]

Bonjour,

C'est possible par macro mais plus simple.

Utilise le lien hypertexte que tu trouves dans menu / insertion.

Cela t'évitera de faire des macros qui sont susceptibles de devoir être changées si tu décides par exemple de changer de place les données sur ta feuille.

🙂

 

[Jacques87]

Bonjour

essaie ceci,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('A5:A10')) Is Nothing Then
feuille = ActiveCell.Value
Sheets(feuille).Select
End If
End Sub

Bonne journée

 

[Jacques87]

Oups, ... bonjour JC, bonjour Dan

Toujours les mêmes sur les 'routes' d'XLD
Bonne journée et bien cordialement

 

[Dan]

Bonjour les Jacques,

et oui Jacques, toujours sur les mêmes chemins... 🙂 mais des collisions aussi ... :sick:

A la prochaine...collision... :lol:

😉