Modification de code Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Mtek
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 10 janvier 2018
Version d'Excel : 2016 FR

Message par Mtek » 1 octobre 2018, 19:49

Bonjour,

J'ai ce code (qui fonctionne très bien)
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("EVENEMENTS").Range("D:D").AutoFilter Field:=4, Criteria1:=CStr(Target.Parent.Value)
End Sub


J'aimerais l'utiliser avec deux liens, chaque lien dirigé sur une feuille différente.

En résumé
De la feuille INVENTAIRE, si je clique su le lien M2
ça m'amène sur la page EVENEMENTS avec seulement les NoDOSSIER P-18080001

De la feuille INVENTAIRE, si je clique su le lien V2
ça m'amène sur la page ENTRETIENS avec seulement les NoDOSSIER P-18080001

Merci de bien vouloir m'aider
Classeur3.xlsm
(17.27 Kio) Téléchargé 9 fois
M
Mtek
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 10 janvier 2018
Version d'Excel : 2016 FR

Message par Mtek » 1 octobre 2018, 20:14

J'ai le sentiment que ça ne prend qu'un if ... then

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If je clique dans la colonne M
Then
Sheets("EVENEMENTS").Range("D:D").AutoFilter Field:=4, Criteria1:=CStr(Target.Parent.Value)
Else
Sheets("ENTRETIENS").Range("D:D").AutoFilter Field:=1, Criteria1:=CStr(Target.Parent.Value)
End Sub

Peut être je me trompe , mais j'ai le sentiment de tournée autour de la solution
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'383
Appréciations reçues : 670
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 1 octobre 2018, 20:39

Bonjour,
essaie ceci :
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Select Case True
        Case Target.SubAddress Like "EVE*":
            Sheets("EVENEMENTS").Range("D:D").AutoFilter Field:=4, Criteria1:=Target.TextToDisplay
        Case Target.SubAddress Like "ENT*":
            Sheets("ENTRETIENS").Range("D:D").AutoFilter Field:=1, Criteria1:=Target.TextToDisplay
    End Select
End Sub
1 membre du forum aime ce message.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
M
Mtek
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 10 janvier 2018
Version d'Excel : 2016 FR

Message par Mtek » 1 octobre 2018, 21:52

Bonjour Jean-Eric

Merci, tu avais ma solution au bout de tes doigts

Ton aide est très apprécié, un grand merci
M
Mtek
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 10 janvier 2018
Version d'Excel : 2016 FR

Message par Mtek » 2 octobre 2018, 14:43

Bonjour Jean-Eric

Si tu me permet, j'aurais une question à ajouter,

Le code fonctionne bien, je me demande si on peut pas ajouter ceci...

Dans mes cellules contenant mes numéros de dossiers, je dois manuellement créer les liens hypertexte
(click droit sur la cellule et lien hypertexte et pointer sur la bonne feuille), n'y aurait-il pas une façon de rendre cette tache automatique.

Des que j'entre un numéro de dossier, le lien se crée automatiquement ?

Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message