XL 2019 liens hypertexte

gestionnaire

XLDnaute Nouveau
Bonjour à tous,
Je reviens vers vous pour une nouvelle interrogation... J'ai un fichier "planning" dans lequel j'ai des liens hypertextes qui vont me chercher des valeurs dans un autre fichier qui contient des onglets nommés au nom des semaines. Chaque onglet contient un tableau identique et les valeurs a aller chercher sont toutes aux mêmes endroits. Le lien est donc toujours le même, il n'y a que le numéro de semaine qui change. Sur mon fichier "planning" on retrouve les n° de semaine.
Ma question est la suivante: n'y a-t-il pas moyen que le lien se modifie en fonction du numéro de semaine noté en haut de chaque semaine du "planning".
Je joins un fichier avec 3 semaines (le fichier original comprend toutes les semaines de l'année), les liens se trouvent a droite de Midi et Soir de chaque jours.
Merci d'avance pour votre aide
 

Pièces jointes

  • 2022.08.11.lien planning et effectifs.xlsm
    51.9 KB · Affichages: 11
Solution
Bonjour gestionnaire,
par contre quelqu'un a t il une autre idée ? je le fais manuellement depuis des années et j'avoue que si je pouvais automatiser cette action je serai bien content...
Voyez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5]) Is Nothing Then Exit Sub
Application.DisplayAlerts = False 'si la feuille n'existe pas
[H:J].Replace "S (*)", "S (" & CStr([A3]) & ")", xlPart
[U:W].Replace "S (*)", "S (" & CStr([N3]) & ")"
[AH:AJ].Replace "S (*)", "S (" & CStr([AA3]) & ")"
End Sub
Elle s'exécute quand on modifie la cellule H5.

A+

job75

XLDnaute Barbatruc
Bonjour gestionnaire,
par contre quelqu'un a t il une autre idée ? je le fais manuellement depuis des années et j'avoue que si je pouvais automatiser cette action je serai bien content...
Voyez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5]) Is Nothing Then Exit Sub
Application.DisplayAlerts = False 'si la feuille n'existe pas
[H:J].Replace "S (*)", "S (" & CStr([A3]) & ")", xlPart
[U:W].Replace "S (*)", "S (" & CStr([N3]) & ")"
[AH:AJ].Replace "S (*)", "S (" & CStr([AA3]) & ")"
End Sub
Elle s'exécute quand on modifie la cellule H5.

A+
 

Pièces jointes

  • 2022.08.11.lien planning et effectifs.xlsm
    58.2 KB · Affichages: 8

Discussions similaires

Réponses
12
Affichages
269

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth