XL 2019 Lien hypertexte avec VBA

lalaimia · 1 Août 2022

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 · 2 Août 2022

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

merci

job75 · 2 Août 2022

Bonjour lalaimia, bienvenue sur XLD,

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

VB:

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" :

VB:

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 · 3 Août 2022

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 · 3 Août 2022

Bonjour lalaimia,

lalaimia à dit:
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 · 3 Août 2022

job75 à dit:
Bonjour lalaimia,

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

A+

Merci beaucoup job75

XL 2019 Lien hypertexte avec VBA

lalaimia

XLDnaute Nouveau

Pièces jointes

lalaimia

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

lalaimia

XLDnaute Nouveau

job75

XLDnaute Barbatruc

lalaimia

XLDnaute Nouveau

Discussions similaires