Discussion :

[nicobrunet1]

bonjour a tous,
je suis un novice en visual basic (étude de gestion),mais j'essaye de me débrouiller. cependant dans le cadre d'un projet VB, il y a une chose sur laquelle je bloque.

j'ai des liens hypertextes sur ma feuille excel menant a différentes pages internet. je voudrais copier uniquement le texte de ce lien et les copier dans les cellules situées a droite du lien.
pour l'instant je n'y arrive pas. si quelqu'un peut m'éclairer.
merci d'avance.

[DomBourti]

Tu veux copier le texte qui est en hyperlien dans la cellule juste à coté, c'est bien ça?

tu peut essayer de copier la cellule contenant l'hyperlien vers l'autre cellule et ensuite supprimer l'hyperlien.

Quelque chose du genre

Code :

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

1
2
Cells(#ligne, #colonne).Copy Cells(#ligne, #colonne+1)
Cells(#ligne, #colonne+1).Hyperlinks(1).Delete

Pour t'aider, utilise l'enregistreur de macro: tu crée une nouvelle macro, tu fais ce que tu veut que le macro exécute, ensuite tu l'arrête et tu peux voir le code que ca donne. Ca peut toujours dépanner.

[nicobrunet1]

merci beaucoup pour ta réponse, mais le probleme c'est que le texte qui active l'hyperlien est différent de l'adresse. . je vient de trouver une solution pour ceux qui auront le meme probleme plus tard.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim maplage As Range
Set maplage = Range("c5:c300")
 
For i = 1 To maplage.Cells.Count
If maplage.Cells(i).EntireRow.Hidden = False Then
maplage.Cells(i).Select
 
maplage.Cells(i).Offset(0, 1).Value = Selection.Hyperlinks(1).Address
End If
Next i

[nicobrunet1]

pour l'enregistreur de macro j'avais essayer. mais sur ce coup la ca m'a pas vraiment aidé. merci beaucoup de ton aide.
sympa ce site

[DomBourti]

Il ne te reste plus qu'a inscrire ta discussion comme Résolue!, soit dans Outils de la discussion et je crois que tu à aussi un bouton résolue en bas completement.

A+