[MACRO excel / resolu ] creation d hyperliens amenant a des feuillets

creation d hyperliens amenant a des feuillets [MACRO excel / resolu ] - VB/VBA/VBS - Programmation

Marsh Posté le 10-11-2005 à 15:18:33    

Bonjour.
 
J'ai un soucis concernant l'insertion d'une variable dans une portion de code.
 
 
j ai un classeur avec enormement de feuilles et j aurai voulu creer une feuille Menu qui rend l accessibilite aux autres feuilles plus simples.
 
J opte donc pour la solution hyperlien.
 
Il me faut donc creer un lien , avec le nom et l adresse vers un autre feuillet.
 
je me retrouve avec cette portion de code.
 
 Cells(i, j).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=feuille1!"A1"  
 
mais je n arrive pas a modifier le subadress correctement pour remplacer feuille1 par une variable 'nom' qui changera au fur et a mesure, de maniere automatiquement tout les liens du classeur.
 
Si qq un connait la syntaxe correcte , ou une solution alternative , cela me servirait beaucoup.
 
Merci d avance.


Message édité par irion_d_alcor le 10-11-2005 à 17:33:38
Reply

Marsh Posté le 10-11-2005 à 15:18:33   

Reply

Marsh Posté le 10-11-2005 à 16:26:57    

Tiens ça devrait te faire ce que tu souhaites :
 

Code :
  1. Sub lien()
  2.      Dim i
  3. 'Passage sur toutes les feuilles du classeur
  4.      For i = 1 To Worksheets.Count
  5.           With Sheets(1).Cells(i, 1) 'J'ai pris la colone A pou mettre les liens
  6.                .Select
  7.                ' mise en place du lien
  8.                .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
  9.                      ' pour le lien concatenation nom de feuille puis cellule
  10.                      Sheets(i).Name & "!A1", _
  11.                      'Dans la cellule j'ai mis le nom de la feuille de destination
  12.                      TextToDisplay:=Sheets(i).Name
  13.           End With
  14.      Next i
  15. End Sub


 
bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 10-11-2005 à 17:07:32    

C'est exactement les infos qu il me fallait !
 
Ca fonctionne au poil. Merci beaucoup !
 

Reply

Marsh Posté le 10-11-2005 à 17:21:54    

De rien, mets un petit résolu sur le titre de ton premier post ça pourra en aider d autres :)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 10-11-2005 à 17:33:52    

Ok ca roule , merci encore.

Reply

Marsh Posté le 06-07-2007 à 16:55:08    

Bonjour
 
J'ai vu que vous aviez répondu à un problème semblable au mien alors je me permets de vous solliciter.
 
Dans un dossier XLS, à partir d'une feuille Menu que l'on remplit soi-même (3 colonnes : un numéro, un nom et une description), je souhaite pouvoir générer en cliquant sur un bouton autant de feuilles qu'il y a de numéros dans la feuille Menu et que les feuilles en question soient toutes selon un modèle précis (feuille modele par exemple) et qu'elles aient comme nom le numéro.
 
Comme je pars de zéro mon problème est un peu plus complexe que le précédent.
D'avance merci pour vos conseils.
 
François

Reply

Marsh Posté le 06-07-2007 à 16:58:13    

plutot que de faire du multi post, créé ton propre topic ca sera plus simple amha

Reply

Marsh Posté le 06-07-2007 à 17:05:17    

ok merci du conseil
je pensais que c'était mieux de pas surcharger, puisque les thématiques des topics étaient semblables...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed