Bonjour à tous les XLNautes!
Cela fait 2 jours que je cherche sur le forum et les anciens liens(vive le Ctrl+F!) et à chaque fois que je tombe sur un fil prometteur, c'est à côté de mon point
Donc, j'ai un début de solution, un fichier-joint et je résume ci-dessous les besoins:
1-Considérer les nom de la feuil "Index" de "A2:A40"
2-Pour chacune des cellules, aller chercher dans la feuil"Restaurant locations" de "A2:A400" sa correspondante (même nom).
3-Inscrire un hyperlien (conserver le nom) pour chacune de ces cellules sources en "Index" pour qu'elles mènent vers leur correspondante dans la feuil"Restaurant locations".
Évidement, je n'arrive pas à compléter et j'ai bien testé l'enregistreur macro mais j'ai la tête en bouille!
J'a besoin de vos lumières et de votre aide.
Merci beaucoup à tous pour votre support et une très belle journée,
p.s.: Il y a un gros avantage à aider dans ce post, car la pièce-jointe comporte une des plus belle liste de Resto à Montréal !!
Cela fait 2 jours que je cherche sur le forum et les anciens liens(vive le Ctrl+F!) et à chaque fois que je tombe sur un fil prometteur, c'est à côté de mon point
Donc, j'ai un début de solution, un fichier-joint et je résume ci-dessous les besoins:
1-Considérer les nom de la feuil "Index" de "A2:A40"
Code:
For Each Cell In Sheet("Index").Range("A2:A39" & EndxlDown.Row)'Boucle sur la liste
Code:
Recherche V? Non. Insérer recherche à lien alors?
Code:
Sheet("Index").Hyperlinks.Add Cell, Address:="", SubAddress:="'" & Cell.Name & "'!A1", TextToDisplay:=Cell.Name 'Ajoute les liens
Évidement, je n'arrive pas à compléter et j'ai bien testé l'enregistreur macro mais j'ai la tête en bouille!
J'a besoin de vos lumières et de votre aide.
Merci beaucoup à tous pour votre support et une très belle journée,
p.s.: Il y a un gros avantage à aider dans ce post, car la pièce-jointe comporte une des plus belle liste de Resto à Montréal !!
Pièces jointes
Dernière modification par un modérateur: