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

Ben92290

XLDnaute Nouveau
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
 

Pièces jointes

  • Inventaire et fiche véhicule.xlsx
    886.8 KB · Affichages: 5
  • Planning d'intervention véhicules.xlsx
    132.1 KB · Affichages: 4

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Planning d'intervention véhicules.xlsm
    142.4 KB · Affichages: 2
  • Inventaire et fiche véhicule.xlsx
    886.4 KB · Affichages: 3
Dernière édition:

Ben92290

XLDnaute Nouveau
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+
Top, merci :)
Je vais regarder :)
 

Ben92290

XLDnaute Nouveau
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+
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.
 

Pièces jointes

  • Planning d'intervention véhicules.xlsm
    150.7 KB · Affichages: 4

Ben92290

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
313 204
Messages
2 096 207
Membres
106 529
dernier inscrit
ironmachine