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 - 10 août 2020 à 19:13
Bernie15 Messages postés 31 Date d'inscription Statut Membre Dernière intervention - 10 août 2020 à 19:13
A voir également:
- Création lien hypertexte lors de la création d'onglets
- Creation compte gmail - Guide
- Création site web - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Logiciel création karaoké gratuit - Télécharger - DJ & Karaoké
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à