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

Question

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

cs_Le Pivert · Answer

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à

INFSON · Answer

La macro fonctionne bien merci

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

2 réponses

Discussions similaires