VRAI/FAUX à la recherche de la cellule perdue + lien (Suite)

[Paloma]

Bonjour,

Suite à un poste, du même genre, j'ai eu de supers propositions et j'ai retenu celle de gFZT82 et je l'en remercie une nouvelle fois

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_Activate()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim DerLig2 As Long
Dim Valeur As Range, Cel As Range
 
    Set ws1 = Worksheets("Applications Matrix")
    Set ws2 = Worksheets("MP.AC Extract")
    'Recherche de la dernière cellule renseignée dans la colonne C de la feuille "MP.AC Extract"
    DerLig2 = ws2.Range("C" & ws2.Rows.Count).End(xlUp).Row
    'Pour chaque cellule de la plage (colonne C de la feuille "MP.AC Extract")
    For Each Cel In ws2.Range("C2:C" & DerLig2)
        'Recherche une valeur équivalente dans la colonne B de la feuille "Applications Matrix"
        Set Valeur = ws1.Range("B:B").Find(Cel, LookIn:=xlValues, LookAt:=xlWhole)
        'Si la valeur existe, incrire TRUE sinon FALSE dans la cellule adjacente (colonne B, feuille "MP.AC Extract")
        If Not Valeur Is Nothing Then
            Cel.Offset(0, -1) = True
        Else
            Cel.Offset(0, -1) = False
        End If
    Next
 
    Set Valeur = Nothing
    Set ws1 = Nothing
    Set ws1 = Nothing
End Sub

Ma question est, est-ce que si la cellule prend la valeur VRAI, je peux en plus en faire un hyperlien qui me permettrai de basculer vers l'application correspondante et de même un hyperlien dans une cellule à coté du nom de l'application vers la cellule VRAI.

Heuuu... là je me demande si je suis clair????