Bonjour,
Déprime totale, cela fait plus de 2 heures que j’essai de créer un lien hypertexte….
Voila le problème,
J’ai créé une macro capable de créer une nouvelle feuille et de renommer directement cette feuille.
Pour renommer cette feuille, elle va lire une liste :
- Feuille1
- Feuille2
Va compter le nombre de feuille créer et va incrémenter la nouvelle feuille du style :
(la liste ne sert pas qu’a cela, donc je la garderai !! je prends de l’avance sur vos ?)
« Feuille » & compteur
Une fois cette feuille créer, je voudrais que d'une page X constante j'ai automatiquement un lien vers cette nouvelle feuille.
voici le code en question :
Le problème vient de la ligne code rouge.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub Creer_Page() Dim Cel_Registre As Range Dim compteur As Integer Set Cel_Registre = Worksheets("Registre").Range("B6") compteur = 1 While Cel_Registre.Offset(compteur) <> "" compteur = compteur + 1 Wend Sheets.Add ActiveSheet.Name = "REGISTRE" & compteur Cel_Registre.Offset(compteur, 1) = "REGISTRE" & compteur Cel_Registre.Offset(compteur, 1).Hyperlinks.Add Anchor:=Selection, SubAddress:="REGISTRE" &compteur , TextToDisplay:="REGISTRE" & compteur
Merci d'avance pour votre aide.
PS: Oui ce code doit vous sembler archaique
Partager