VBA EXCEL récup lien ds onglets crées automatiqt en fonct.colonne de liens HYP

Résolu/Fermé
INFSON Messages postés 23 Date d'inscription lundi 17 août 2020 Statut Membre Dernière intervention 1 avril 2023 - 17 août 2020 à 14:45
INFSON Messages postés 23 Date d'inscription lundi 17 août 2020 Statut Membre Dernière intervention 1 avril 2023 - 21 août 2020 à 19:12
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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 17 août 2020 à 19:12
Bonjour,

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à

1
INFSON Messages postés 23 Date d'inscription lundi 17 août 2020 Statut Membre Dernière intervention 1 avril 2023
21 août 2020 à 19:12
La macro fonctionne bien merci
0