VBA EXCEL récup lien ds onglets crées automatiqt en fonct.colonne de liens HYP
Résolu
INFSON
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
INFSON Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
INFSON Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Je vous sollicite pour terminer une macro en fichier joint
https://www.cjoint.com/c/JHrmQ6yrSjr
J’ai un fichier excel comportant un onglet LISTE et une colonne D avec une liste de lien hypertexte
Je souhaite
1/ créer des onglets renommés avec le nom de chaque lien
2/ copier coller chaque valeur dans l’onglet en D2 qui correspond au nom dans la colonne D
J’ai fait une macro qui à priori fonctionne sauf que je récupère la valeur de la cellule au lieu d’avoir un copier coller du contenu de la cellule avec le lien opérationnel
Par exemple
En D2 de la feuille En Forma de Punteo je souhaiterai avoir le lien cliquable En Forma de Punteo
Cordialement
Je vous sollicite pour terminer une macro en fichier joint
https://www.cjoint.com/c/JHrmQ6yrSjr
J’ai un fichier excel comportant un onglet LISTE et une colonne D avec une liste de lien hypertexte
Je souhaite
1/ créer des onglets renommés avec le nom de chaque lien
2/ copier coller chaque valeur dans l’onglet en D2 qui correspond au nom dans la colonne D
J’ai fait une macro qui à priori fonctionne sauf que je récupère la valeur de la cellule au lieu d’avoir un copier coller du contenu de la cellule avec le lien opérationnel
Par exemple
En D2 de la feuille En Forma de Punteo je souhaiterai avoir le lien cliquable En Forma de Punteo
Cordialement
A voir également:
- VBA EXCEL récup lien ds onglets crées automatiqt en fonct.colonne de liens HYP
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Verificateur de lien - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Bonjour,
comme ceci:
au lieu de mettre D6 tu mets "D" et la dernière ligne:
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
Voilà
comme ceci:
Sub ajout_feuilles()
Dim nom, c
For Each c In Range("D2:D6")
nom = c.Value
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
'je souhaite que la valeur récupérée soit le lien cliquable de la liste et nom de la cellule
Worksheets("LISTE").Cells(c.Row, 4).Copy Worksheets(nom).Cells(2, 4)
Next c
End Sub
au lieu de mettre D6 tu mets "D" et la dernière ligne:
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
Voilà
