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

[Ben92290]

Bonjour,
Fichier 1 : "inventaire et fiche véhicule"
Fichier 2 : "planning intervention véhicule"

Dans le fichier 2 se trouve une feuille "liste des véhicules". Chaque véhicule de cette colonne (ou presque) possède un lien hypertexte faisant référence au fichier 1 (une fiche par véhicule avec immatriculation).

-> Dans le fichier 2, feuille "planning global 2023", j'aimerai créer des menus déroulant dans le calendrier en référence à la feuille "liste des véhicules" de ce même fichier tout en gardant les liens hypertextes afin de pouvoir avoir avec accès à la fiche du véhicule dès lors que je rentre un véhicule dans le planning.

Merci de votre aide

 

[job75]

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+

 

[job75]

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 :

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+

 

[Ben92290]

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+

Bonjour Job75,

Aïe ! je vais regarder.

Merci.

 

[Ben92290]

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 :

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+

Top, merci
Je vais regarder

 

[Ben92290]

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 :

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+

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.

 

[Ben92290]

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.

 

[Ben92290]

Grrrrr l'autre fichier est trop volumineux pour l'envoyer

 

[Ben92290]

je l'envoie en lien :
https://www.cjoint.com/c/MIAjtyczjxl

 

[job75]

Bonjour Ben92290,

Dans la feuille "Liste des véhicule" seuls les liens en B5 et B6 font référence au fichier "Inventaire".

A+