Discussion :

[DomBourti]

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 :

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

Quelqu'un sait comment faire pour faire suivre le lien hypertexte dans la feuille de destination de la copie?

Merci d'avance

[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

[Vesta]

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).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

[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...

[DomBourti]

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

Merci

[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

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

NE PEUT PAS REMPLACER

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

Ça, à la rigueur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

t'a essayé ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[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

Merci encore