Modification de code

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

11classeur3.xlsm (17.27 Ko)

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

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

Bonjour Jean-Eric

Merci, tu avais ma solution au bout de tes doigts

Ton aide est très apprécié, un grand merci

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

Rechercher des sujets similaires à "modification code"