[VBA-E]Copier un lien hypertexte d'une feuille à une autre

Version imprimable

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:
Code:

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
Quelqu'un sait comment faire pour faire suivre le lien hypertexte dans la feuille de destination de la copie?

Merci d'avance

28/04/2006, 15h09
illight

Peut etre utiliser la fonction "copy" plutot qu'une égalité entre 2 cellules :)

Regarde l'aide de la fontion Copy tu trouvera surement ton bonheur :)

Code:

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).copy Worksheet("Tableau").Cells(lignet, colc)
    Else: toutelaligne = True
    End If
Loop

Par exemple sinon direct copier toute la plage de valeurs (Range(...).copy destination

28/04/2006, 15h36
DomBourti

je vien de tester ton con code avec .copy plutot que .value = ... et ca ne fonctionne pas, en faite, ca ne copy rien du tout. J'ai aussi consulter les sources, avec Aucune réponse n'est associée à ce/ces mots clés pour réponse à ma recherche...
28/04/2006, 15h54
DomBourti

Désolé sa fonctionne le copy en fin dcompte! C'étais mon erreur :oops:

Merci
28/04/2006, 16h05
ouskel'n'or
Fatigués en fin de semaine ?
Déjà si tu veux mettre copy au lieu de =, il faut inverser les propositions... Un peu de logique

Citation:

Worksheets("Compilation").Cells(lignec, colc).copy Worksheet("Tableau").Cells(lignet, colc)

NE PEUT PAS REMPLACER

Citation:

Worksheets("Compilation").Cells(lignec, colc).Value = Worksheet("Tableau").Cells(lignet, colc).Value

Ça, à la rigueur
Code:

1 2 Worksheet("Tableau").Cells(lignet, colc).copy Worksheets("Compilation").Cells(lignec, colc)
;)

A+
28/04/2006, 16h24
DomBourti

Merci ouskel'n'or pour tes précisions, mais j'avais déja compris qu'il fallait inverser la condition pour l'effet voulu.

Une autre petite question: Je veux faire une condition qui vérifie s'il y a quelque chose dans une cellule, mais je n'arrive pas a trouver la syntaxe...

du genre l'inverse de la ligne suivante:

Code:

If Worksheets("Compilation").Cells(ligneaefface0, 1).Value = Empty Then

J'ai essayer avec un ! juste avant Empty, j'ai essayer Not avant Empty et aussi juste avant Worksheets.... et rien ne marche.

Merci tout lmonde en passant

:lol: t'a essayé ?

Code:

1
2
 
if not Worksheets("Feuil1").Cells(15000, 1) = Empty

A+

28/04/2006, 17h01
DomBourti

Ah ha! Sa semble fonctionner! Merci beaucoup.

J'avais essayer avec le Not juste avant le Worksheets(... mais j'avais laisser le .value à la fin, ce qui était probablement la cause du problème. Avec le temps, je débute de moins en moins en VB lol :aie:

Merci encore