XL 2019 Lien hypertexte avec VBA

[lalaimia]

Bonjour, s'il vous plait je veux savoir comment je peux faire un filtre avec un lien hypertexte sous VBA,

j'ai un petit exemple dans ce fichier Excel où j'ai pu réalisé un lien hypertexte mais sans filtre

alors:

dans la feuil1:RECAP existe 3 colonnes: une colonne avec les numéros de contrat et une colonne :khaled et une colonne: sisi

dans la feuil 2: KHALED , existe la colonne numéro de contrat et la colonne khaled (ok,ko)

dans la feuil 3: SISI , existe la colonne numéro de contrat et la colonne sisi (ok,ko)


je veux savoir, si je clique sur le KO (hypertexte) de la colonne khaled dans la feuille RECAP, il te ramène directement sur la feuille
KHALED et il te filtre au même temps le KO avec le numéro de contrat correspond au même numéro de contrat dans RECAP

Le résultat souhaité est dans la feuil RESULTAT

 

[lalaimia]

dans l'attente en urgence d'une réponse s'il vous plait,

merci

 

[job75]

Bonjour lalaimia, bienvenue sur XLD,

Pour pouvoir repérer les liens hypertextes il faut d'abord les créer un par un :

Private Sub hyper1()
Dim c As Range

With Worksheets("recap")
    .Select
    .Range("A2").Select

    .Hyperlinks.Delete 'RAZ

    For Each c In .Range("B2:B50")
        If c <> "" Then .Hyperlinks.Add c, Address:="", SubAddress:="'khaled'!A1:A50" 'pourquoi A1:A50 ???
    Next

    For Each c In .Range("C2:C50")
        If c <> "" Then .Hyperlinks.Add c, Address:="", SubAddress:="'sisi'!A1"
    Next
End With

End Sub

Ensuite pour filtrer il suffit de placer dans le code de la feuille "recap" :

Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
Evaluate(h.SubAddress).CurrentRegion.AutoFilter 1, Cells(h.Parent.Row, 1)
End Sub

Le filtrage se fait sur la 1ère colonne.

A+

 

[lalaimia]

Je vous remercie job75 pour votre réactivité , et si par exemple je veux faire le hypertexte que pour les KO non les OK , comment je peux procéder,

merci d'avance

cordialement

 

[job75]

Bonjour lalaimia,

et si par exemple je veux faire le hypertexte que pour les KO non les OK , comment je peux procéder,

Eh bien c'est évident, vous remplacez If c <> "" Then par If c = "KO" Then

A+

 

[lalaimia]

Bonjour lalaimia,


Eh bien c'est évident, vous remplacez If c <> "" Then par If c = "KO" Then

A+

Merci beaucoup job75