XL 2021 Créer liste déroulante contenant des liens hypertextes

job75 à dit:

Bonjour Ben92290,

Chez moi en feuille "Liste des véhicules" seul le lien en B4 conduit au fichier "Inventaire et fiche véhicule.xlsx".

A+

Cliquez pour agrandir...

job75 à dit:

Bon voyez le fichier .xlsm joint, il y a 2 liens hypertextes dans la feuille "Liste des véhicules".

Dans la feuille "Planning global 2023" le lien en F11 a été créé par cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B6:BK41])
If Target Is Nothing Then Exit Sub
Dim F As Worksheet, i As Variant, h As Hyperlink
Set F = Sheets("Liste des véhicules")
Application.EnableEvents = False 'désactive les évènements
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 = 8
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement quand une cellule du tableau est modifiée ou validée.

A+

Cliquez pour agrandir...

job75 à dit:

Bon voyez le fichier .xlsm joint, il y a 2 liens hypertextes dans la feuille "Liste des véhicules".

Dans la feuille "Planning global 2023" le lien en F11 a été créé par cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B6:BK41])
If Target Is Nothing Then Exit Sub
Dim F As Worksheet, i As Variant, h As Hyperlink
Set F = Sheets("Liste des véhicules")
Application.EnableEvents = False 'désactive les évènements
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 = 8
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement quand une cellule du tableau est modifiée ou validée.

A+

Cliquez pour agrandir...

Ben92290 à dit:

Job75,
Merci pour ton aide précieuse !
Ca à l'air de fonctionner.
J'ai mis à jour mes véhicules dans le fichier "planning d'intervention véhicules", feuille "liste des véhicules" en copiant collant les cellules de la colonne B de la feuille "inventaire" du fichier "inventaire et fiche véhicule".
Cependant les liens hypertextes ne "prennent" pas après le copier coller dans la feuille "liste des véhicules", du fichier "planning d'intervention véhicules".
Je dois remettre les liens un à un ?

Merci encore.

Cliquez pour agrandir...