Création lien hypertexte lors de la création d'onglets
Résolu
Bernie15
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
Bernie15 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bernie15 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Bonjour tout le monde,
bon j'ai réussi à partir d'une liste de noms à creer des feuilles suivant un modèle, à nommer ces feuilles et à copier les noms dans une Feuil(Index).
Maintenant, je voudrais profiter pour aussi creer un lien dans cette Feuil(Index) qui pointerait sur chaque feuille.
Feuil(1) est créée et je voudrais un lien dans la cellule Feuil(Index).A3 qui pointe sur cette feuille, puis Feuil(Index).A4 qui pointe vers Feuil(2), etc...
Et je n'y arrive pas )-:
J'attends vos lumières !!!
le code de ma macro :
Bonjour tout le monde,
bon j'ai réussi à partir d'une liste de noms à creer des feuilles suivant un modèle, à nommer ces feuilles et à copier les noms dans une Feuil(Index).
Maintenant, je voudrais profiter pour aussi creer un lien dans cette Feuil(Index) qui pointerait sur chaque feuille.
Feuil(1) est créée et je voudrais un lien dans la cellule Feuil(Index).A3 qui pointe sur cette feuille, puis Feuil(Index).A4 qui pointe vers Feuil(2), etc...
Et je n'y arrive pas )-:
J'attends vos lumières !!!
le code de ma macro :
Configuration: Macintosh / Safari 13.1.2
A voir également:
- Création lien hypertexte lors de la création d'onglets
- Creation compte gmail - Guide
- Création site web - Guide
- Creation de compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Lien url - Guide
6 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
merci de partager du texte, pas des images. bien sûr, en utilisant les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
as-tu essayé avec l'enregistreur de macros?
merci de partager du texte, pas des images. bien sûr, en utilisant les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
as-tu essayé avec l'enregistreur de macros?
oupssss désolé, je ne connaissais pas ces balises pour présenter mon code.
Je voudrais profiter de la création de l'onglet, après le End With, pour créer un hypertext pointant vers la feuille créée , et je bloque )-:
Je voudrais profiter de la création de l'onglet, après le End With, pour créer un hypertext pointant vers la feuille créée , et je bloque )-:
Sub Creation_Onglets_Selon_Modele()
Dim n As Range 'variable Nom
Dim a As Range 'variable Adresse
Dim l As Range 'variable ligne colonne Nom Index
Application.ScreenUpdating = False
Set n = Worksheets("Listes").Range("A2") 'cellule de départ
Set a = Worksheets("Listes").Range("C2") 'cellule de départ
Set l = Worksheets("Index").Range("B3") 'cellule de départ
Do Until IsEmpty(n) 'boucle tant que n n'est pas vide
l = n.Value 'on remplit Index
Worksheets("Model").Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
'on crée les onglets en copiant le modèle en dernier
With Worksheets(ThisWorkbook.Sheets.Count) 'avec l'onglet créé
.Name = n.Value 'on renomme onglet créé
.Range("B2") = n.Value 'on remplit notre modèle
.Range("A38") = n.Value 'on remplit notre modèle
.Range("A39") = a.Value 'on remplit notre modèle
End With
Set n = n.Offset(1, 0) 'prochaine ligne
Set a = a.Offset(1, 0)
Set l = l.Offset(1, 0)
Loop
Application.ScreenUpdating = True
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
voir ceci:
http://boisgontierjacques.free.fr/pages_site/lienshypertextes.htm#CreationLienVBA
un exemple:
voilà
voir ceci:
http://boisgontierjacques.free.fr/pages_site/lienshypertextes.htm#CreationLienVBA
un exemple:
Option Explicit
Sub lien()
Dim Lig As Long
For Lig = 3 To Worksheets("INDEX").Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Lig).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Range("A" & Lig).Value & "'" & "!A" & Lig, TextToDisplay:=Range("A" & Lig).Value
ActiveCell.Offset(1, 0).Select
Next
End Sub
voilà