Validation des données en gardant les liens hypertextes

Bonjour,

Mon classeur contient deux feuilles, feuille 1 : "Inventaire parc" et feuille 2 "pièces et intervention".

Dans la feuille 2 "pièces et intervention", colonne H, ligne 6 à 39, j'aimerai créer un menu déroulant dans chaque cellule via la validation des données" (liste) en prenant comme source les lignes 8 à10 (mais qui peut aller jusqu'à 50) de la colonne B de la feuille 1 "inventaire parc".

Je n'ai pas de problème pour créer mon menu déroulant avec utilisant la validation de donné mais les liens hypertextes des cellules B8 B9 et B10 de la feuille 1 ne "suivent" pas.

En gros, j'ai bien les données dans ma feuille 2 par rapport à la feuille 1 mais pas les liens hypertextes qui vont avec.

Merci de votre aide.

Bonjour,

La macro doit réagir aux changements de valeurs de la colonne H de la feuille "Pièces et intervention"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim F As Worksheet, i As Variant, h As Hyperlink
    If Not Intersect(Target, Range("H6:H39")) Is Nothing Then
        On Error GoTo Sortie 'pour le cas où il y aurait une détection d'erreur en cours d'exécution de la macro
        Application.EnableEvents = False 'désactive les évènements
        Set F = Sheets("Inventaire parc")
        On Error Resume Next
        For Each Target In Target 'en cas d'entrées multiples
            i = Application.Match(Target, F.Columns(2), 0)
            Target.Hyperlinks(1).Delete 'RAZ
            Set h = Nothing 'RAZ
            Set h = F.Cells(i, 2).Hyperlinks(1)
            Me.Hyperlinks.Add Target, h.Address, h.SubAddress 'crée le lien
            Target.Interior.ColorIndex = xlNone
            Target.Font.ColorIndex = xlAutomatic
            Target.Font.Bold = True
            Target.Font.Size = 10
        Next
Sortie:
       Application.EnableEvents = True 'réactive les évènements
    End If
End Sub

Merci pour le retour, et passer en "résolu" si cela vous convient.

Cdlt