Lien hypertex resultat filtré

Bonjour,

Il me reste un seul problème à résoudre pour mon projet, et après beaucoup de recherche, je m'en remet à votre aide !

Ma Feuille1 est mon inventaire et ma Feuille2 est les activités (déplacement) de l'inventaire

Dans ma Feuille1 en K4 j'ai un noDossier et en Q4 je veux mettre un lien hypertexte "LIEN"

Dans ma Feuille2 en C3 j'ai les noDossier

Je souhaite que, lorsque j'appuie sur le LIEN en Q4 de la Feuille1

Ca m'amène sur la Feuille2 filtré par les noDossier, et donc, je ne vois que les activités concernant le noDossier (celui du LIEN)

merci de votre aide

bonjour

un fichier exemple.

Fichier test joint

Bonjour,

ci-jointe proposition

Bonjour Thev,

merci beaucoup, c'est exactement ce que j'ai besoin,

Les 3 endroit ou j'ai vu que tu avait travaillé son dans gestionnaire de nom et en vba dans chaque feuille ?

c'est bien ça ?

je devrai transposer ça à mon projet

Bonjour,

1- gestionnaire de noms

Définition du nom "num_dossiers" correspondant à la colonne K actuelle de Feuille1.

L'intérêt de passer par un nom est à la fois de simplifier le code et de ne pas le modifier en cas d'ajout ou de suppression de colonnes dans Feuille1 car le nom s'adaptera au changement.

2-code vba associé à Feuille1

Filtrage après clic sur le lien hypertexte à partir de la procédure événementielle "Worksheet_FollowHyperlink"

3-code vba associé à Feuille2

Annulation filtrage après sélection d'une autre feuille que Feuille2 à partir de la procédure événementielle "Worksheet_Deactivate"

Merci beaucoup, ton aide est très apprécié

J'ai un soucis....

Je met dans le VBA (feuil26) ceci

Function FileExiste(p As String) As Boolean

If Dir(p, vbNormal) <> "" Then FileExiste = True

End Function

Je met dans le VBA (feuil27) ceci

Private Sub Worksheet_Deactivate()

If Me.AutoFilterMode Then Me.AutoFilter.Range.AutoFilter Field:=1

End Sub

Je crée le num_dossiers dans le gestionnaire de nom

Jusque la, ça va

met comment faire le Lien Hypertext ?

Lorsque je clique sur le lien hypertext de la feuille1 en q4, ca m'amène sur la feuille2 avec tout les champs (non filtré) !!!

Quel étape je ne fais pas correctement ?

Dans le VBA (feuil26) , il manque :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim num_dossier

    num_dossier = Me.Range("num_dossiers").Rows(Target.Range.Row)
    With ActiveSheet
        If .AutoFilterMode Then .AutoFilter.Range.AutoFilter Field:=1, Criteria1:=num_dossier
    End With

End Sub

NB : utiliser la balise "</>" pour le code

Merci encore de ton aide...

on se rapproche de la solution

lorsque je clic sur le lien hypertexte en Q4 ça m'amène bien à la feuil27

mais le filtre est appliqué à la colonne 1 plutôt qu'a la colonne 3 qui elle contient mes numéros de dossier...

Tu as du mettre dans feuil27 des filtres à partir de la colonnne 1 et non à partir de la colonne 3. Il faut donc modifier les codes ainsi :

Field:=3 et non Field:=1 dans l'instruction AutoFilter.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim num_dossier

    num_dossier = Me.Range("num_dossiers").Rows(Target.Range.Row)
    With ActiveSheet
        If .AutoFilterMode Then .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=num_dossier
    End With

End Sub

Private Sub Worksheet_Deactivate()
    If Me.AutoFilterMode Then Me.AutoFilter.Range.AutoFilter Field:=3
End Sub

ton exemple fonctionne bien, lorsque j'applique un filtre à toute les colonnes (donc toujours possibilité de filtré une colonne selon un critère)

ton exemple ne fonctionne plus !

Donc le problème vient du fait que toute les colonnes ont le filtre

MERCI Thev

C'est génial, ça fonctionne parfaitement bien

merci merci merci merci