Sujet Précédent Sujet Suivant

Excel : création automatique liens hypertexte

Résolu/Fermé
juju93110 Messages postés 19 Date d'inscription lundi 17 décembre 2007 Statut Membre Dernière intervention 10 décembre 2013 - 13 nov. 2008 à 15:11
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 14 nov. 2008 à 12:04
Bonjour,

Je dispose d'un classeur excel avec plusieurs onglets. Le permier onglet (index) sert de table des matières avec 2 colonnes :

- lieu
- numéro de série

Les autres onglets sont numérotés à partir des numéros de série présents dans le tableau d'index.

Je souhaite créer à partir d'une macro un lien hypertexte à partir de chaque nom de lieu vers l'onglet concerné. J'ai rédigé ce petit bout de code :

----------------------------------------------------------

Sheets("Index").Select

decalage_ligne = 0

Do While Range("A8").Offset(decalage_ligne, 0).Value <> ""

lieu = Range("A8").Offset(decalage_ligne, 0).Value
numero = Range("C8").Offset(decalage_ligne, 0).Value

Range("A8").Offset(decalage_ligne, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=????, TextToDisplay:=lieu

Loop

----------------------------------------------

Le problème est que je ne sais pas comment définir l'adresse de destination du lien ( SubAddress:=???? ). Les onglets sont numérotés sur 3 chiffres.

Pouvez-vous m'aider ? Merci d'avance.
A voir également:

2 réponses

Réponse 1 / 2
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
13 nov. 2008 à 16:48
Bonjour,

Je pense que tu peux écrire l'instruction suivante : 


SubAddress:=Str(numero) & "!A1"

Ne pas oublier d'incrémenter le decalage_ligne :

decalage_ligne = decalage_ligne + 1


Par contre fais attention si des numéros de série commencent par 0 tu risque d'avoir un problème
0
Réponse 2 / 2
juju93110 Messages postés 19 Date d'inscription lundi 17 décembre 2007 Statut Membre Dernière intervention 10 décembre 2013
14 nov. 2008 à 08:45
Merci pour ta réponse, ça fonctionne très bien.

Mes numéros d'onglets ne commencent jamais par 0.
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
14 nov. 2008 à 12:04
Bonjour,

Heureux d'avoir pu rendre service
(ne pas oublier de marquer Résolu)

A+
0