BOnjour à tous,
Je doit copier le contenu de plusieurs cellules dont certaines contiennent un lien hypertexte d'une feuille(Tableau) à une autre(Compilation). Le code copie le contenu de la cellule, mais pas le lien qui s'y rattache.
Voici le code de copie:
Quelqu'un sait comment faire pour faire suivre le lien hypertexte dans la feuille de destination de la copie?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 toutelaligne = False colc = 0 ' Transfert de chaque cellule de l'offre d'emploi Do While Not toutelaligne If colc < 17 Then colc = colc + 1 Worksheets("Compilation").Cells(lignec, colc).Value = Worksheet("Tableau").Cells(lignet, colc).Value Else: toutelaligne = True End If Loop
Merci d'avance
Partager